--- loncom/homework/structuretags.pm	2002/04/25 21:38:09	1.92
+++ loncom/homework/structuretags.pm	2002/05/24 21:57:38	1.95
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.92 2002/04/25 21:38:09 sakharuk Exp $
+# $Id: structuretags.pm,v 1.95 2002/05/24 21:57:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -266,6 +266,9 @@ sub start_problem {
 	       $rndseed.'" />
              <input type="submit" name="changerandseed" value="Change" />
              <input type="submit" name="resetdata" value="Reset Submissions" />
+             <input type="checkbox" name="showallfoils" ';
+	  if (defined($ENV{'form.showallfoils'})) { $result.='checked="on"'; }
+	  $result.= ' /> Show All Foils
              <hr />';
 	}
 	# if we are viewing someone else preserve that info
@@ -512,6 +515,7 @@ sub end_randomlist {
 
 sub start_part {
   my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+  my $result='';
   my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
   if ($id eq '') { $id = $Apache::lonxml::curdepth; }
   $Apache::inputtags::part=$id;
@@ -519,7 +523,7 @@ sub start_part {
   @Apache::inputtags::previous=();
   if ($target eq 'meta') {
     return &Apache::response::mandatory_part_meta;
-  } elsif ($target eq 'web' || $target eq 'grade' || $target eq 'answer') {
+  } elsif ($target eq 'web' || $target eq 'grade' || $target eq 'answer' || $target eq 'tex') {
     my ($status,$accessmsg) = &Apache::lonhomework::check_access($id);
     push (@Apache::inputtags::status,$status);
     my $expression='$external::datestatus="'.$status.'";';
@@ -528,15 +532,17 @@ sub start_part {
     if ( $status eq 'CLOSED' ) {
       my $bodytext=&Apache::lonxml::get_all_text("/part",$$parser[$#$parser]);
       if ( $target eq "web" ) {
-	return "<br />Part is not open to be viewed. It $accessmsg<br />";
+	$result="<br />Part is not open to be viewed. It $accessmsg<br />";
+      } elsif ( $target eq 'tex' ) {
+	$result="\\vskip 0 mm Part is not open to be viewed. It $accessmsg \\\\";
+      }
+    } else {
+      if ($target eq 'tex') {
+	$result='\vskip 0 mm';
       }
     }
   }
-  if ($target eq 'tex') {
-      return '\\\\';
-  } else {
-      return '';
-  }
+  return $result;
 }
 
 sub end_part {