--- loncom/homework/structuretags.pm	2004/08/29 07:49:35	1.266
+++ loncom/homework/structuretags.pm	2004/09/09 08:59:56	1.267
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.266 2004/08/29 07:49:35 albertel Exp $
+# $Id: structuretags.pm,v 1.267 2004/09/09 08:59:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,7 +36,7 @@ use Apache::File();
 use Apache::lonmenu;
 use Apache::lonlocal;
 use Apache::lonxml;
-
+use Time::HiRes qw( gettimeofday tv_interval );
 BEGIN {
     &Apache::lonxml::register('Apache::structuretags',('block','languageblock','instructorcomment','while','randomlist','problem','library','web','tex','part','preduedate','postanswerdate','solved','notsolved','problemtype','startouttext','endouttext','simpleeditbutton','definetag'));
 }
@@ -396,12 +396,14 @@ sub set_problem_state {
 
 sub get_problem_status {
     my ($part)=@_;
-    my $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'});
+    my $problem_status;
     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'});
     }
     return $problem_status;
 }
@@ -485,7 +487,16 @@ sub start_problem {
 		    '<input type="submit" name="resetdata"
                              value="'.&mt('New Problem Variation').'" />'.
 		    '<input type="hidden" name="username"
-                             value="'.$ENV{'form.username'}.'" /> <br />';
+                             value="'.$ENV{'form.username'}.'" />';
+	    if ($ENV{'user.adv'}) {
+		$form_tag_start.=
+		    ' <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.='<hr />';
 	}
 	($status,$accessmsg) = &Apache::lonhomework::check_access('0');
 	push (@Apache::inputtags::status,$status);