--- loncom/homework/structuretags.pm	2004/12/10 17:50:30	1.275
+++ loncom/homework/structuretags.pm	2005/11/08 21:09:08	1.318
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.275 2004/12/10 17:50:30 albertel Exp $
+# $Id: structuretags.pm,v 1.318 2005/11/08 21:09:08 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -68,6 +68,33 @@ sub end_tex {
     return '';
 }
 
+sub body_tag_start {
+    my ($target,$background,$bgcolor)=@_;
+    my $body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.
+	'onunload="'.&Apache::lonmenu::unloadevents().'" ';
+    if ($env{'browser.imagesuppress'} eq 'on') { $background=''; }
+    if ($background) {
+	&Apache::lonxml::extlink($background);
+	$body_tag_start.='background="'.$background.'" ';
+    } else {
+	if (($bgcolor) && ($env{'browser.blackwhite'} ne 'on')) {
+	    $body_tag_start.='bgcolor="'.$bgcolor.'" ';
+	} else {
+	    $body_tag_start.='bgcolor="#ffffff"';
+	}
+    }
+    if ($env{'browser.fontenhance'} eq 'on') {
+	$body_tag_start.=' style="font-size: x-large;" ';
+    }
+    $body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);
+    
+    &Apache::lontexconvert::jsMath_reset();
+    if ($env{'environment.texengine'} eq 'jsMath') {
+	$body_tag_start.=&Apache::lontexconvert::jsMath_header();
+    }
+    return $body_tag_start;
+}
+
 sub page_start {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my %found;
@@ -88,34 +115,26 @@ sub page_start {
 	    &Apache::lonxml::fontsettings();     
     }
     my $body_tag_start;
-    if (!defined($found{'body'}) && $ENV{'request.state'} eq 'construct'
-	&& $ENV{'environment.remote'} eq 'off') {
-	$body_tag_start=&Apache::loncommon::bodytag();
-	$body_tag_start.=&Apache::lonxml::message_location();
-    } elsif (!defined($found{'body'})) {
-	$body_tag_start='<body onload="'.&Apache::lonmenu::loadevents().'" '.
-	    'onunload="'.&Apache::lonmenu::unloadevents().'" ';
-	my $background=&Apache::lonxml::get_param('background',$parstack,
-						  $safeeval);
-	if ($ENV{'browser.imagesuppress'} eq 'on') { $background=''; }
-	if ($background) {
-	    $Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]=
-		$background;
-	    $body_tag_start.='background="'.$background.'" ';
+    if (!defined($found{'body'}) && $env{'request.state'} eq 'construct') {
+	if ($env{'environment.remote'} eq 'off') {
+	    if ($target eq 'web' || $target eq 'edit') {
+		$body_tag_start=&Apache::loncommon::bodytag();
+		$body_tag_start.=&Apache::lonxml::message_location();
+	    }
 	} else {
-	    my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
-						   $safeeval);
-	    if (($bgcolor) && ($ENV{'browser.blackwhite'} ne 'on')) {
-		$body_tag_start.='bgcolor="'.$bgcolor.'" ';
-	    } else {
-		$body_tag_start.='bgcolor="#ffffff"';
+	    if ($target eq 'web' || $target eq 'edit') {
+		$body_tag_start=&Apache::loncommon::bodytag(undef,undef,undef,1);
+		$body_tag_start.=&Apache::lonxml::message_location();
 	    }
 	}
-	if ($ENV{'browser.fontenhance'} eq 'on') {
-	    $body_tag_start.=' style="font-size: x-large;" ';
-	}
-	$body_tag_start.='>'.&Apache::lonmenu::menubuttons(undef,$target,1);
-	if ($target eq 'web' && $ENV{'request.state'} ne 'construct') {
+    } elsif (!defined($found{'body'})) {
+	my $background=&Apache::lonxml::get_param('background',$parstack,
+						  $safeeval);
+	my $bgcolor=&Apache::lonxml::get_param('bgcolor',$parstack,
+					       $safeeval);
+	$body_tag_start=&body_tag_start($target,$background,$bgcolor);
+	if ( ($target eq 'web' || $target eq 'webgrade')
+	     && $env{'request.state'} ne 'construct') {
 	    my ($symb,undef,undef,undef,$publicuser)=
 		&Apache::lonxml::whichuser();
 	    if ($symb eq '' && !$publicuser) {
@@ -128,9 +147,9 @@ sub page_start {
     }
     my $form_tag_start;
     if (!defined($found{'form'})) {
-	$form_tag_start='<form name="lonhomework" method="post" action="';
-	my $uri=$ENV{'request.uri'};
-	if ($ENV{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
+	$form_tag_start='<form name="lonhomework" enctype="multipart/form-data" method="POST" action="';
+	my $uri=$env{'request.uri'};
+	if ($env{'request.enc'}) { $uri=&Apache::lonenc::encrypted($uri); }
 	$form_tag_start.=$uri.'">';
     }
     return ($result,$head_tag_start,$body_tag_start,$form_tag_start);
@@ -142,13 +161,14 @@ sub get_resource_name {
     if (defined($Apache::lonhomework::name)) {
 	return $Apache::lonhomework::name;
     }
-    my $name=&Apache::lonnet::gettitle();
+    my ($symb)=&Apache::lonxml::whichuser();
+    my $name=&Apache::lonnet::gettitle($symb);
     if ($name eq '') {
 	$name=&Apache::lonnet::EXT('resource.title');
 	if ($name eq 'con_lost') { $name = ''; }
     }
     if ($name!~/\S+/) {
-	$name=$ENV{'request.uri'};
+	$name=$env{'request.uri'};
 	$name=~s-.*/([^/]+)$-$1-;
     }
     $Apache::lonhomework::name=$name;
@@ -159,26 +179,28 @@ sub setup_rndseed {
     my ($safeeval)=@_;
     my $rndseed;
     my ($symb)=&Apache::lonxml::whichuser();
-    if ($ENV{'request.state'} eq "construct" || $symb eq '' ||
+    if ($env{'request.state'} eq "construct" || $symb eq '' ||
           $Apache::lonhomework::history{'resource.CODE'}) {
-	$rndseed=$ENV{'form.rndseed'};
+	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+						['rndseed']);
+	$rndseed=$env{'form.rndseed'};
 	if (!$rndseed) {
 	    $rndseed=$Apache::lonhomework::history{'rndseed'};
 	    if (!$rndseed) {
 		$rndseed=time;
 	    }
-	    $ENV{'form.rndseed'}=$rndseed;
+	    $env{'form.rndseed'}=$rndseed;
 	}
-	if ($ENV{'form.resetdata'} eq &mt('New Problem Variation') ||
-	    $ENV{'form.newrandomization'} eq &mt('New Randomization')) {
+	if ($env{'form.resetdata'} eq &mt('New Problem Variation') ||
+	    $env{'form.newrandomization'} eq &mt('New Randomization')) {
 	    srand(time);
 	    $rndseed=int(rand(2100000000));
-	    $ENV{'form.rndseed'}=$rndseed;
-	    delete($ENV{'form.resetdata'});
-	    delete($ENV{'form.newrandomization'});
+	    $env{'form.rndseed'}=$rndseed;
+	    delete($env{'form.resetdata'});
+	    delete($env{'form.newrandomization'});
 	}
 	if (defined($rndseed) && $rndseed ne int($rndseed)) {
-	   $rndseed=join(',',&Math::Random::random_seed_from_phrase($rndseed));
+	    $rndseed=join(':',&Apache::lonnet::digest($rndseed));
         }
         if ($Apache::lonhomework::history{'resource.CODE'}) {
 	   $rndseed=&Apache::lonnet::rndseed();
@@ -193,9 +215,9 @@ sub setup_rndseed {
 
 sub remember_problem_state {
     return '
-       <input type="hidden" name="problemstate" value="'.$ENV{'form.problemstate'}.'" />
-       <input type="hidden" name="problemtype" value="'.$ENV{'form.problemtype'}.'" />
-       <input type="hidden" name="problemstatus" value="'.$ENV{'form.problemstatus'}.'" />';
+       <input type="hidden" name="problemstate" value="'.$env{'form.problemstate'}.'" />
+       <input type="hidden" name="problemtype" value="'.$env{'form.problemtype'}.'" />
+       <input type="hidden" name="problemstatus" value="'.$env{'form.problemstatus'}.'" />';
 }
 
 sub problem_edit_header {
@@ -209,20 +231,20 @@ sub problem_edit_header {
        <input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /><table><tr><td>'.
        &Apache::loncommon::help_open_menu('','Problem Editing Help','Problem_Editor_XML_Index','',5,'Authoring',undef,undef,undef,'Problem Editing Help')
        .'</td></tr></table>'.
-       '<table border="0"><tr><td bgcolor="#DDDDDD">';
+       '<table border="0" width="100%"><tr><td bgcolor="#DDDDDD">';
 }
 
 sub problem_edit_footer {
     return '</td></tr></table><br /><input type="submit" name="submit" value="'.&mt('Submit Changes and Edit').'" />
     <input type="submit" name="submit" value="'.&mt('Submit Changes and View').'" />'.
     &Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields).
-    "\n</form>\n</body>\n</html>";
+    "\n</form>\n".&Apache::loncommon::endbodytag()."\n</html>";
 }
 
 sub option {
     my ($value,$name) = @_;
     my $result ="<option value='".$value."' ";
-    if ($ENV{'form.'.$name} eq $value) {
+    if ($env{'form.'.$name} eq $value) {
 	$result.=" selected='on' ";
     }
     $result.='>';
@@ -231,21 +253,29 @@ sub option {
 
 sub problem_web_to_edit_header {
     my ($rndseed)=@_;
-    my $result.='<input type="hidden" name="problemmode" value="'.&mt('View').'" />
-             <input type="submit" name="problemmode" accesskey="e" value="'.&mt('Edit').'" />
-             <input type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
+    my $result.='<input type="hidden" name="problemmode" value="'.&mt('View').'" />';
+    if (!$Apache::lonhomework::parsing_a_task) {
+	$result .= '<input type="submit" name="problemmode" accesskey="e" value="'.&mt('Edit').'" />';
+    }
+    $result .= '<input type="submit" name="problemmode" accesskey="x" value="'.&mt('EditXML').'" />
              <input type="submit" name="newrandomization" accesskey="a" value="'.&mt('New Randomization').'" />
              <input type="submit" name="resetdata" accesskey="r" value="'.&mt('Reset Submissions').'" />
              <nobr><input type="submit" name="changerandseed" value="'.&mt('Change Random Seed To:').'" />
               <input type="text" name="rndseed" size="10" value="'.
 	       $rndseed.'"
            onchange="javascript:document.lonhomework.changerandseed.click()" /></nobr>
-             <input type="checkbox" name="showallfoils" ';
-    if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }
-    $result.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
+             <label><input type="checkbox" name="showallfoils" ';
+    my $show_all_foils_text = 
+	($Apache::lonhomework::parsing_a_task) ?
+	&mt('&nbsp;Show&nbsp;All&nbsp;Instances')
+	: &mt('&nbsp;Show&nbsp;All&nbsp;Foils');
+
+    if (defined($env{'form.showallfoils'})) { $result.='checked="on"'; }
+    $result.= ' />'.$show_all_foils_text.
 	&Apache::loncommon::help_open_topic('Problem_Editor_Testing_Area','Testing Problems').
-	'<hr />';
-    $result.="
+	'</label><hr />';
+    if (!$Apache::lonhomework::parsing_a_task) {
+	$result.="
 <nobr>
 Problem Status:
 <select name='problemstate'>
@@ -276,15 +306,16 @@ Feedback Mode:
 </nobr>
 <input type='submit' name='changeproblemmode' value='".&mt("Change")."' />
 <hr />";
-    my $numtoanalyze=$ENV{'form.numtoanalyze'};
-    if (!$numtoanalyze) { $numtoanalyze=20; }
-    $result.= '<input type="submit" name="problemmode" value='.
-	&mt('"Calculate answers').'" /> for
+	my $numtoanalyze=$env{'form.numtoanalyze'};
+	if (!$numtoanalyze) { $numtoanalyze=20; }
+	$result.= '<input type="submit" name="problemmode" value='.
+	    &mt('"Calculate answers').'" /> for
              <input type="text" name="numtoanalyze" value="'.
 	     $numtoanalyze.'" size="5" /> '.&mt('versions of this problem').
 	     '.'.&Apache::loncommon::help_open_topic("Analyze_Problem",
 						     '',undef,undef,300).
 						     '<hr />';
+    }
     return $result;
 }
 
@@ -292,9 +323,9 @@ sub initialize_storage {
     %Apache::lonhomework::results=();
     %Apache::lonhomework::history=();
     my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
-    if ($ENV{'request.state'} eq 'construct' || $symb eq '') {
+    if ($env{'request.state'} eq 'construct' || $symb eq '') {
 	%Apache::lonhomework::history=
-	    &Apache::lonnet::tmprestore($ENV{'request.uri'},'',$domain,$name);
+	    &Apache::lonnet::tmprestore($env{'request.uri'},'',$domain,$name);
 	my ($temp)=keys %Apache::lonhomework::history ;
 	&Apache::lonxml::debug("Return message of $temp");
     } else {
@@ -310,24 +341,69 @@ sub initialize_storage {
 # Stores away the result has to a student's environment
 # checks form.grade_ for specific values, other wises stores
 # to the running users environment
+# Will increment totals for attempts, students, and corrects
+# if running user has student role.  
 sub finalize_storage {
     my $result;
-    my ($temp) = keys %Apache::lonhomework::results;
-    if ( $temp ne '' ) {
+    if (%Apache::lonhomework::results) {
 	my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser();
-	if ($ENV{'request.state'} eq 'construct' || $symb eq '') {
-	    $Apache::lonhomework::results{'rndseed'}=$ENV{'form.rndseed'};
+	if ($env{'request.state'} eq 'construct' || $symb eq '') {
+	    $Apache::lonhomework::results{'rndseed'}=$env{'form.rndseed'};
 	    $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results,
-					$ENV{'request.uri'},'',$domain,$name);
+					$env{'request.uri'},'',$domain,$name);
 	    &Apache::lonxml::debug('Construct Store return message:'.$result);
 	} else {
 	    $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results,
 					    $symb,$courseid,$domain,$name);
 	    &Apache::lonxml::debug('Store return message:'.$result);
+            if ($env{'request.role'} =~/^st/) {
+                &store_aggregates($symb,$courseid);
+            }
 	}
     }
     return $result;
 }
+use Data::Dumper;
+
+# -------------------------------------------------------------store_aggregates
+# Sends hash of values to be incremented in nohist_resourcetracker.db
+# for the course. Increments total number of attempts, unique students 
+# and corrects for each part for an instance of a problem, as appropriate.
+sub store_aggregates {
+    my ($symb,$courseid) = @_;
+    my %aggregate;
+    my @parts;
+    my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
+    foreach my $key (keys(%Apache::lonhomework::results)) {
+        if ($key =~ /resource\.([^\.]+)\.tries/) {
+            push(@parts, $1);
+        }
+    }
+    foreach my $part (@parts) {
+        if ($Apache::lonhomework::results{'resource.'.$part.'.award'}
+	    eq 'APPROX_ANS' ||
+	    $Apache::lonhomework::results{'resource.'.$part.'.award'}
+	    eq 'EXACT_ANS') {
+            $aggregate{$symb."\0".$part."\0correct"} = 1;
+        }
+        if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) {
+            $aggregate{$symb."\0".$part."\0users"} = 1;
+        } else {
+            my (undef,$last_reset) = &Apache::grades::get_last_resets($symb,$env{'request.course.id'},[$part]); 
+            if ($last_reset) {
+                if (&Apache::grades::get_num_tries(\%Apache::lonhomework::history,$last_reset,$part) == 0) {
+                    $aggregate{$symb."\0".$part."\0users"} = 1;
+                }
+            }
+        }
+        $aggregate{$symb."\0".$part."\0attempts"} = 1;
+    }
+    if (keys (%aggregate) > 0) {
+	&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate,
+                            $cdomain,$cname);
+    }
+}
 
 sub checkout_msg {
     my %lt=&Apache::lonlocal::texthash( 
@@ -342,7 +418,7 @@ sub checkout_msg {
 <font color="red">
 <p>$lt{'warning'}</p>
 </font>
-<form name="checkout" method="post" action="$ENV{'request.uri'}">
+<form name="checkout" method="POST" action="$env{'request.uri'}">
 <input type="hidden" name="doescheckout" value="yes" />
 <input type="button" name="checkoutbutton" value="$lt{'checkout'}" onClick="javascript:if (confirm('$lt{'checkout?'}')) { document.checkout.submit(); }" />
 </form>
@@ -356,7 +432,7 @@ sub firstaccess_msg {
     &Apache::lonxml::debug("map is $map title is $foldertitle");
     return (<<ENDCHECKOUT);
 <h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2>
-<form name="markaccess" method="post" action="$ENV{'request.uri'}">
+<form name="markaccess" method="POST" action="$env{'request.uri'}">
 <input type="hidden" name="markaccess" value="yes" />
 <input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />
 </form>
@@ -366,16 +442,26 @@ ENDCHECKOUT
 sub init_problem_globals {
     my ($type)=@_;
     #initialize globals
+    #   For problems, we start out in part 0 (outside a <part> tag).
+    #   and part 0 is used to describe the main body of the <problem>
+    #
     if ($type eq 'problem') {
 	$Apache::inputtags::part='0';
 	@Apache::inputtags::partlist=('0');
 	$Apache::lonhomework::problemstatus=&get_problem_status('0');
 	$Apache::lonhomework::ignore_response_errors=0;
+
     } elsif ($type eq 'library') {
 	$Apache::inputtags::part='';
 	@Apache::inputtags::partlist=();
 	$Apache::lonhomework::problemstatus='';	
 	$Apache::lonhomework::ignore_response_errors=1;
+
+    } elsif ($type eq 'Task') {
+	$Apache::inputtags::part='0';
+	@Apache::inputtags::partlist=('0');
+	$Apache::lonhomework::problemstatus='';	
+	$Apache::lonhomework::ignore_response_errors=1;
     }
     @Apache::inputtags::responselist = ();
     @Apache::inputtags::importlist = ();
@@ -403,7 +489,7 @@ sub reset_problem_globals {
 
 sub set_problem_state {
     my ($part)=@_;
-    if ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
+    if ($env{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
 	$Apache::lonhomework::history{"resource.$part.solved"}=
 	    'correct_by_student';
     }
@@ -412,13 +498,13 @@ sub set_problem_state {
 sub get_problem_status {
     my ($part)=@_;
     my $problem_status;
-    if ($ENV{'request.state'} eq 'construct' &&
-	defined($ENV{'form.problemstatus'})) {
-	$problem_status=$ENV{'form.problemstatus'};
+    if ($env{'request.state'} eq 'construct' &&
+	defined($env{'form.problemstatus'})) {
+	$problem_status=$env{'form.problemstatus'};
     } else {
 	$problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
 	&Apache::lonxml::debug("problem status for $part is $problem_status");
-	&Apache::lonxml::debug("env probstat is ".$ENV{'form.problemstatus'});
+	&Apache::lonxml::debug("env probstat is ".$env{'form.problemstatus'});
     }
     return $problem_status;
 }
@@ -426,6 +512,12 @@ sub get_problem_status {
 sub start_problem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
 
+    # We'll use the redirection to fix up printing of duedates.
+    &Apache::lonxml::startredirection();
+
+    # Problems don't nest and we don't allow more than one <problem> in
+    # a .problem file.
+    #
     if ( $Apache::inputtags::part ne '' ||
 	 $Apache::lonhomework::parsing_a_problem) {
 	&Apache::lonxml::error('Only one &lt;problem&gt; allowed in a .problem file');
@@ -436,7 +528,7 @@ sub start_problem {
     $Apache::lonhomework::parsing_a_problem=1;
     &init_problem_globals('problem');
 
-    if (defined($ENV{'scantron.maxquest'})) {
+    if (defined($env{'scantron.maxquest'})) {
 	$Apache::lonhomework::scantronmode=1;
     }
 
@@ -445,16 +537,16 @@ sub start_problem {
 	if ($target eq 'web') {
 	    &Apache::lonhomework::showhash(%Apache::lonhomework::history);
 	}
-       	if ($ENV{'request.state'} eq 'construct') { &set_problem_state('0'); }
+       	if ($env{'request.state'} eq 'construct') { &set_problem_state('0'); }
 	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
-	if (($ENV{'request.state'} eq 'construct') &&
-	    defined($ENV{'form.problemtype'})) {
-	    $Apache::lonhomework::type=$ENV{'form.problemtype'};
+	if (($env{'request.state'} eq 'construct') &&
+	    defined($env{'form.problemtype'})) {
+	    $Apache::lonhomework::type=$env{'form.problemtype'};
 	}
 	&Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");
     }
     if ($Apache::lonhomework::type eq '' ) {
-	my $uri=$ENV{'request.uri'};
+	my $uri=$env{'request.uri'};
 	if ($uri=~/\.(\w+)$/) {
 	    $Apache::lonhomework::type=$1;
 	    &Apache::lonxml::debug("Using type of $1");
@@ -463,6 +555,7 @@ sub start_problem {
 	    &Apache::lonxml::debug("Using default type, problem, :$uri:");
 	}
     }
+    $Apache::lonhomework::default_type = $Apache::lonhomework::type;
 
     #added vars to the scripting enviroment
     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
@@ -474,7 +567,7 @@ sub start_problem {
     #should get back a <html> or the neccesary stuff to start XML/MathML
     my ($result,$head_tag_start,$body_tag_start,$form_tag_start)=
 	&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
-    if ($target eq 'tex' and $ENV{'request.symb'} =~ m/\.page_/) {$result='';}
+    if ($target eq 'tex' and $env{'request.symb'} =~ m/\.page_/) {$result='';}
 
     if ($target eq 'analyze') { my $rndseed=&setup_rndseed($safeeval); }
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
@@ -483,33 +576,34 @@ sub start_problem {
 	if ($Apache::lonhomework::type eq 'exam') {
 	    my $token=
 		$Apache::lonhomework::history{"resource.0.outtoken"};
-	    if (($ENV{'form.doescheckout'}) && (!$token)) {
+	    if (($env{'form.doescheckout'}) && (!$token)) {
 		$token=&Apache::lonxml::maketoken();
 		$Apache::lonhomework::history{"resource.0.outtoken"}=
 		    $token;
 	    }
 	    $body_tag_start.=&Apache::lonxml::printtokenheader($target,$token);
 	}
-	if ($ENV{'form.markaccess'}) {
+	if ($env{'form.markaccess'}) {
 	    &Apache::lonnet::set_first_access('map');
 	}
 	#handle rand seed in construction space
 	my $rndseed=&setup_rndseed($safeeval);
 	my ($symb)=&Apache::lonxml::whichuser();
-	if ($ENV{'request.state'} ne "construct" && $symb eq '') {
+	if ($env{'request.state'} ne "construct" && $symb eq '') {
 	    $form_tag_start.='<input type="hidden" name="rndseed" value="'.
 		$rndseed.'" />'.
 		    '<input type="submit" name="resetdata"
                              value="'.&mt('New Problem Variation').'" />'.
 		    '<input type="hidden" name="username"
-                             value="'.$ENV{'form.username'}.'" />';
-	    if ($ENV{'user.adv'}) {
+                             value="'.$env{'form.username'}.'" />';
+	    if ($env{'user.adv'}) {
 		$form_tag_start.=
-		    ' <input type="checkbox" name="showallfoils" ';
-		if (defined($ENV{'form.showallfoils'})) {
+		    ' <label><input type="checkbox" name="showallfoils" ';
+		if (defined($env{'form.showallfoils'})) {
 		    $form_tag_start.='checked="on"';
 		}
-		$form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils');
+		$form_tag_start.= ' />'.&mt('&nbsp;Show&nbsp;All&nbsp;Foils').
+		    '</label>';
 	    }
 	    $form_tag_start.='<hr />';
 	}
@@ -556,24 +650,24 @@ sub start_problem {
               $body_tag_start \n $form_tag_start".	
 	      '<input type="hidden" name="submitted" value="yes" />';
 	    # create a page header and exit
-	    if ($ENV{'request.state'} eq "construct") {
-		$result.= &problem_web_to_edit_header($ENV{'form.rndseed'});
+	    if ($env{'request.state'} eq "construct") {
+		$result.= &problem_web_to_edit_header($env{'form.rndseed'});
 	    }
 	    # if we are viewing someone else preserve that info
-	    if (defined $ENV{'form.grade_symb'}) {
+	    if (defined $env{'form.grade_symb'}) {
 		foreach my $field ('symb','courseid','domain','username') {
 		    $result .= '<input type="hidden" name="grade_'.$field.
-			'" value="'.$ENV{"form.grade_$field"}.'" />'."\n";
+			'" value="'.$env{"form.grade_$field"}.'" />'."\n";
 		}
 	    }
 	} elsif ($target eq 'tex') {
 	    my $startminipage = '';
-	    if (not $ENV{'form.problem_split'}=~/yes/) {
+	    if (not $env{'form.problem_split'}=~/yes/) {
 		$startminipage = '\begin{minipage}{\textwidth}';
 	    }
 	    my $id = $Apache::inputtags::part;
 	    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
-	    my $packages=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');
+	    my $packages=&Apache::lonnet::metadata($env{'request.uri'},'packages');
 	    my @packages = split /,/,$packages;
 	    my $allow_print_points = 0;
 	    foreach my $partial_key (@packages) {
@@ -581,35 +675,55 @@ sub start_problem {
 		    $allow_print_points=1;
 		}
 	    }
-	    my $duedate = &Apache::lonnet::EXT("resource.$id.duedate"); 
-	    $duedate = POSIX::strftime("%c",localtime($duedate));
+	    my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
+	    if (defined($maxtries) && $maxtries < 0) { $allow_print_points=0; }
+	    if (lc($env{'course.'.$env{'request.course.id'}.
+			    '.disableexampointprint'}) eq 'yes') {
+		$allow_print_points=0;
+	    }
+	    my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
+	    my $begin_doc='\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$env{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent ';
+	    my $toc_line='\vskip 1 mm\noindent '.$startminipage.
+		'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
+
+	    #  Figure out what the due date is and if we need to print
+	    #  it in the problem header.  We have been logging the
+	    #  last due date written to file. 
+
+	    my $duetime = &Apache::lonnet::EXT("resource.$id.duedate"); 
+	    my $duedate = POSIX::strftime("%c",localtime($duetime));
 	    my $temp_file;
-	    my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout.due";
+	    my $filename = "/home/httpd/prtspool/$env{'user.name'}_$env{'user.domain'}_printout.due";
+
+	    # Figure out what the last printed due date is or set it
+	    # to the epoch if no duedates have been printed.
+
+	    my $due_file_content = 0;      #   If the file does not yet exist, time is the epoch.
 	    if (-e $filename) {
 		$temp_file = Apache::File->new($filename);
-	    } else {
-		$temp_file = Apache::File->new('>>'.$filename);
-	    }
-	    my @due_file_content = <$temp_file>;
-	    my $due_file_content = $due_file_content[$#due_file_content];
-	    chomp $due_file_content;
-	    my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
-	    if ($due_file_content ne $duedate) {
+		my @due_file      = <$temp_file>;
+		$due_file_content = $due_file[$#due_file];
+		chomp $due_file_content;
+	    } 
+
+	    # comparisons of the absolute times
+	    if ($due_file_content != $duetime) {
 		$temp_file = Apache::File->new('>'.$filename);
-		print $temp_file "$duedate\n";
-		if (not $ENV{'request.symb'} =~ m/\.page_/) {
+		print $temp_file "$duetime\n";
+		if (not $env{'request.symb'} =~ m/\.page_/) {
 		    if(not $duedate=~m/1969/ and $Apache::lonhomework::type ne 'exam') {
-			$result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent\textit{Due date: '.$duedate.'} \vskip 1 mm\noindent '.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';	
+			$result .= $begin_doc.
+			    '\textit{Due date: '.$duedate.'} '.$toc_line;
 		    } else {
-			$result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm \noindent'.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';
+			$result .= $begin_doc.$toc_line;
 			if ($Apache::lonhomework::type eq 'exam' and $allow_print_points==1) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
 		    }
 		} else {
 		    $result .= '\vskip 1mm\textit{Due date: '.$duedate.'} \\\\\\\\';
 		}
 	    } else {
-		if (not $ENV{'request.symb'} =~ m/\.page_/) {
-		    $result .= '\begin{document} \typeout{STAMPOFPASSEDRESOURCESTART Resource <h2>"'.$name_of_resourse.'"</h2> located in <br /><small><b>'.$ENV{'request.uri'}.'</b></small><br /> STAMPOFPASSEDRESOURCEEND} \noindent \vskip 1 mm\noindent'.$startminipage.'\addcontentsline{toc}{subsection}{'.$name_of_resourse.'}';	
+		if (not $env{'request.symb'} =~ m/\.page_/) {
+		    $result .= $begin_doc.$toc_line;
 		    if (($Apache::lonhomework::type eq 'exam') and ($allow_print_points==1)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
 		} else {
 		    $result .= '\vskip 1mm \\\\\\\\';
@@ -635,7 +749,8 @@ sub start_problem {
 
 sub end_problem {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
-    my $result='';
+    my $result= &Apache::lonxml::endredirection(); # started in &start_problem
+
     my $status=$Apache::inputtags::status['-1'];
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
 	$target eq 'tex') {
@@ -656,28 +771,27 @@ sub end_problem {
 	    $result.= $gradestatus;
 	}
 	if (
-	    (($target eq 'web') && ($ENV{'request.state'} ne 'construct')) ||
+	    (($target eq 'web') && ($env{'request.state'} ne 'construct')) ||
 	    ($target eq 'answer') || ($target eq 'tex')
 	   ) {
 	    if ($target ne 'tex' &&
-		$ENV{'form.answer_output_mode'} ne 'tex') {
+		$env{'form.answer_output_mode'} ne 'tex') {
 		$result.="</form>";
 		$result.=&Apache::lonhtmlcommon::htmlareaselectactive(@Apache::lonxml::htmlareafields);
-		$result.="</body>\n";
 	    }
 	    if ($target eq 'web') {
-		$result.=&Apache::lonxml::xmlend();
+		$result.=&Apache::lonxml::xmlend().'</html>';
 	    } elsif ($target eq 'tex') {
 		my $endminipage = '';
-		if (not $ENV{'form.problem_split'}=~/yes/) {
+		if (not $env{'form.problem_split'}=~/yes/) {
 		    $endminipage = '\end{minipage}';
 		}
-                if ($ENV{'form.print_discussions'} eq 'yes') {
+                if ($env{'form.print_discussions'} eq 'yes') {
 		    $result.=&Apache::lonxml::xmlend($target,$parser);
 		    $result=~s/<\/html>//;
 		} else {
 		    $result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
-		    if (not $ENV{'request.symb'} =~ m/\.page_/) {
+		    if (not $env{'request.symb'} =~ m/\.page_/) {
 			$result .= $endminipage.'\end{document} ';
 		    } else {
 			$result .= '';
@@ -689,9 +803,10 @@ sub end_problem {
 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
 	    &finalize_storage();
 	}
-	if ($target eq 'answer' && ($ENV{'request.state'} eq 'construct')
-	    && $ENV{'form.answer_output_mode'} ne 'tex') {
-	    $result.='</html>'; # normally we get it from xmlend, but in CSTR
+	if ($target eq 'answer' && ($env{'request.state'} eq 'construct')
+	    && $env{'form.answer_output_mode'} ne 'tex') {
+	    $result.=&Apache::lonxml::xmlend().'</html>';
+	                        # normally we get it from above, but in CSTR
 	                        # we always show answer mode too.
 	}
     } elsif ($target eq 'meta') {
@@ -703,10 +818,10 @@ sub end_problem {
 	$result.=&Apache::response::meta_response_order();
     } elsif ($target eq 'edit') {
 	&Apache::lonxml::debug("in end_problem with $target, edit");
-	$result = &problem_edit_footer();
+	$result .= &problem_edit_footer();
     }
 
-    if ($ENV{'request.state'} eq 'construct' && $target eq 'web') {
+    if ($env{'request.state'} eq 'construct' && $target eq 'web') {
 	&Apache::inputtags::check_for_duplicate_ids();
     }
 
@@ -734,7 +849,7 @@ sub start_library {
 	$result=$token->[4];
 	$result.=&Apache::edit::handle_insert();
     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
-	     $ENV{'request.state'} eq "construct" ) {
+	     $env{'request.state'} eq "construct" ) {
 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
 	my $name=&get_resource_name($parstack,$safeeval);
@@ -753,8 +868,9 @@ sub end_library {
     if ($target eq 'edit') {
 	$result=&problem_edit_footer();
     } elsif ($target eq 'web' && $$tagstack[0] ne 'problem' &&
-	     $ENV{'request.state'} eq "construct") {
-	$result.='</form></body>'.&Apache::lonxml::xmlend();
+	     $env{'request.state'} eq "construct") {
+	$result.='</form>'.&Apache::loncommon::endbodytag().
+	    &Apache::lonxml::xmlend();
     }
     if ($$tagstack[0] eq 'library') { &reset_problem_globals('library') };
     return $result;
@@ -888,8 +1004,8 @@ sub start_instructorcomment {
 
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' ||
 	$target eq 'tex' || $target eq 'analyze') {
-        $result=($ENV{'request.role'}=~/^(in|cc|au|ca|li)/);
-	if ( (! $result) or ($ENV{'form.instructor_comments'} eq 'hide')) {
+        $result=($env{'request.role'}=~/^(in|cc|au|ca|li)/);
+	if ( (! $result) or ($env{'form.instructor_comments'} eq 'hide')) {
 	    my $skip=&Apache::lonxml::get_all_text("/instructorcomment",
 						   $parser,$style);
 	    &Apache::lonxml::debug("skipping ahead :$skip: $$parser[-1]");
@@ -985,7 +1101,9 @@ sub start_randomlist {
     if ($target eq 'answer' || $target eq 'grade' || $target eq 'web' ||
 	$target eq 'tex' || $target eq 'analyze') {
 	my $body= &Apache::lonxml::get_all_text("/randomlist",$parser);
-	my $b_parser= HTML::TokeParser->new(\$body);
+	my $b_parser= HTML::LCParser->new(\$body);
+	$b_parser->xml_mode(1);
+	$b_parser->marked_sections(1);
 	my $b_tok;
 	my @randomlist;
 	my $list_item;
@@ -1009,17 +1127,19 @@ sub start_randomlist {
 	    #  print "<b>END-TAG $b_tok->[1]</b><br />";
 	    # }
 	}
-	my @idx_arr = (0 .. $#randomlist);
-	&Apache::structuretags::shuffle(\@idx_arr);
-	my $bodytext = '';
-	my $show=$#randomlist;
-	my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
-	$showarg--;
-	if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
-	for(0 .. $show) {
-	    $bodytext .= "$randomlist[ $idx_arr[$_] ]";
+	if (@randomlist) {
+	    my @idx_arr = (0 .. $#randomlist);
+	    &Apache::structuretags::shuffle(\@idx_arr);
+	    my $bodytext = '';
+	    my $show=$#randomlist;
+	    my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
+	    $showarg--;
+	    if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
+	    for(0 .. $show) {
+		$bodytext .= "$randomlist[ $idx_arr[$_] ]";
+	    }
+	    &Apache::lonxml::newparser($parser,\$bodytext);
 	}
-	&Apache::lonxml::newparser($parser,\$bodytext);
     } elsif ($target eq 'edit' ) {
 	$result .=&Apache::edit::tag_start($target,$token);
 	$result .=&Apache::edit::text_arg('Maximum Tags to Show:','show',
@@ -1036,7 +1156,7 @@ sub start_randomlist {
 sub shuffle {
     my $a=shift;
     my $i;
-    if (defined(@$a)) {
+    if (ref($a) eq 'ARRAY' && @$a) {
 	&Apache::response::pushrandomnumber();
 	for($i=@$a;--$i;) {
 	    my $j=int(&Math::Random::random_uniform() * ($i+1));
@@ -1057,11 +1177,24 @@ sub end_randomlist {
     return $result;
 }
 
+sub ordered_show_check {
+    my $last_part=$Apache::inputtags::partlist[-2];
+    my $in_order=
+	&Apache::lonnet::EXT('resource.'.$Apache::inputtags::part.'.ordered');
+    my $in_order_show=1;
+    if ($last_part ne '0' && lc($in_order) eq 'yes') {
+	$in_order_show=&Apache::response::check_status($last_part);
+    }
+    return $in_order_show;
+}
+
 sub start_part {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+    &Apache::lonxml::startredirection(); # we'll use redirection to fix up 
+                                         # duedates.
     my $result='';
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
-    if ($id eq '') { $id = $Apache::lonxml::curdepth; }
+    if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
     $Apache::inputtags::part=$id;
     push(@Apache::inputtags::partlist,$id);
     @Apache::inputtags::response=();
@@ -1071,7 +1204,7 @@ sub start_part {
     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
     my $newtype=&Apache::lonnet::EXT("resource.$id.type");
     if ($newtype) { $Apache::lonhomework::type=$newtype; }
-
+    my $in_order_show=&ordered_show_check();
     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
     $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
     &Apache::run::run($expression,$safeeval);
@@ -1082,7 +1215,7 @@ sub start_part {
 	       &Apache::response::meta_parameter_write('display','string',$display,'Part Description');
     } elsif ($target eq 'web' || $target eq 'grade' ||
 	     $target eq 'answer' || $target eq 'tex') {
-	if ($hidden) {
+	if ($hidden || !$in_order_show) {
 	    my $bodytext=&Apache::lonxml::get_all_text("/part",$parser);
 	} else {
 	    my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
@@ -1090,7 +1223,7 @@ sub start_part {
 	    my $expression='$external::datestatus="'.$status.'";';
 	    $expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
 	    &Apache::run::run($expression,$safeeval);
-	    if ($ENV{'request.state'} eq 'construct') {
+	    if ($env{'request.state'} eq 'construct') {
 		&set_problem_state($Apache::inputtags::part); 
 	    }
 	    if (( $status eq 'CLOSED' ) ||
@@ -1103,7 +1236,7 @@ sub start_part {
 		if ( $target eq "web" ) {
 		    $result="<br />".&mt('Part is not open to be viewed. It')." $accessmsg<br />";
 		} elsif ( $target eq 'tex' ) {
-		    if (not $ENV{'form.problem_split'}=~/yes/) {
+		    if (not $env{'form.problem_split'}=~/yes/) {
 			$result="\\end{minipage}\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\\\begin{minipage}{\\textwidth}";
 		    } else {
 			$result="\\vskip 0 mm ".&mt('Part is not open to be viewed. It')." $accessmsg \\\\";
@@ -1111,7 +1244,7 @@ sub start_part {
 		}
 	    } else {
 		if ($target eq 'tex') {
-		    if (not $ENV{'form.problem_split'}=~/yes/) {
+		    if (not $env{'form.problem_split'}=~/yes/) {
 			if ($$tagstack[-2] eq 'td') {
 			    $result.='\vskip 0 mm \noindent \begin{minipage}{\textwidth}\noindent';
 			} else {
@@ -1119,7 +1252,7 @@ sub start_part {
 			}
 		    }
 		    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
-		    my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'packages');
+		    my $allkeys=&Apache::lonnet::metadata($env{'request.uri'},'packages');
 		    my @allkeys = split /,/,$allkeys;
 		    my $allow_print_points = 0;
 		    foreach my $partial_key (@allkeys) {
@@ -1131,6 +1264,10 @@ sub start_part {
 		    if (defined($maxtries) && $maxtries < 0) {
 			$allow_print_points=0;
 		    }
+		    if (lc($env{'course.'.$env{'request.course.id'}.
+				    '.disableexampointprint'}) eq 'yes') {
+			$allow_print_points=0;
+		    }
 		    if (($Apache::lonhomework::type eq 'exam') && ($allow_print_points)) { $result .= '\fbox{\textit{'.$weight.' pt}}';}
 		} elsif ($target eq 'web') {
 		    $result.='<a name="'.&Apache::lonnet::escape($Apache::inputtags::part).'" />';
@@ -1162,30 +1299,31 @@ sub end_part {
     &Apache::lonxml::debug("in end_part $target ");
     my $status=$Apache::inputtags::status['-1'];
     my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
-    my $result='';
-    if ( $target eq 'meta' ) {
-	$result='';
-    } elsif ($target eq 'grade') {
+    my $in_order_show=&ordered_show_check();
+    my $result= &Apache::lonxml::endredirection(); # started in &start_part
+    if ($target eq 'grade') {
 	if (($status eq 'CAN_ANSWER' || $Apache::lonhomework::scantronmode) &&
-	    !$hidden) {
-	    $result=&Apache::inputtags::grade;
+	    !$hidden && $in_order_show) {
+	    $result.=&Apache::inputtags::grade;
 	} else {
 	    # move any submission data to .hidden
 	    &Apache::inputtags::hidealldata($Apache::inputtags::part);
 	}
-    } elsif (($target eq 'web' || $target eq 'tex') && !$hidden ) {
+    } elsif (($target eq 'web' || $target eq 'tex') &&
+	     !$hidden && $in_order_show) {
 	my $gradestatus=&Apache::inputtags::gradestatus($Apache::inputtags::part,
 							$target);
 	if ($Apache::lonhomework::type eq 'exam' && $target eq 'tex') {
 	    $gradestatus='';
 	}
-	$result=$gradestatus;
+	$result.=$gradestatus;
 	if ($$tagstack[-2] eq 'td' and $target eq 'tex') {$result.='\end{minipage}';} 
     } elsif ($target eq 'edit') {
-	$result=&Apache::edit::end_table();
+	$result.=&Apache::edit::end_table();
     }
     pop @Apache::inputtags::status;
     $Apache::inputtags::part='';
+    $Apache::lonhomework::type = $Apache::lonhomework::default_type;
     return $result;
 }
 
@@ -1193,7 +1331,8 @@ sub start_preduedate {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     if ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {
 	&Apache::lonxml::debug("State in preduedate is ". $Apache::inputtags::status['-1']);
-	if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
+	if (!$Apache::lonhomework::scantronmode &&
+	    $Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
 	    $Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
 	    &Apache::lonxml::debug("Wha? ". ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER'));
 	    &Apache::lonxml::get_all_text("/preduedate",$parser);
@@ -1209,7 +1348,8 @@ sub end_preduedate {
 sub start_postanswerdate {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     if ($target eq 'web' || $target eq 'grade') {
-	if ($Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
+	if ($Apache::lonhomework::scantronmode ||
+	    $Apache::inputtags::status['-1'] ne 'SHOW_ANSWER') {
 	    &Apache::lonxml::get_all_text("/postanswerdate",$parser);
 	}
     } elsif ($target eq 'tex') {
@@ -1368,13 +1508,14 @@ sub delete_startouttext {
 sub start_simpleeditbutton {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result='';
-    if (($ENV{'form.simple_edit_button'} ne 'off') &&
+    if (($env{'form.simple_edit_button'} ne 'off') &&
 	($target eq 'web') &&
-        (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
-        my $url=$ENV{'request.noversionuri'};
+        (&Apache::lonnet::allowed('srm',$env{'request.course.id'}))) {
+        my $url=$env{'request.noversionuri'};
         $url=~s/\?.*$//;
+	my ($symb) = &Apache::lonxml::whichuser();
 	$result='<table width="100%" bgcolor="#FFFFAA" border="2"><tr><td>'.
-                '<a href="'.$url.'/smpedit">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
+                '<a href="'.$url.'/smpedit?symb='.&Apache::lonnet::escape($symb).'">'.&mt('Edit').'</a> - '.&mt('Note: it can take up to 10 minutes for changes to take effect for all users.').
 &Apache::loncommon::help_open_topic('Caching').'</td></tr></table><br />';
     }
     return $result;
