--- loncom/homework/structuretags.pm	2002/03/29 18:32:46	1.87
+++ loncom/homework/structuretags.pm	2002/05/24 20:33:55	1.94
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.87 2002/03/29 18:32:46 albertel Exp $
+# $Id: structuretags.pm,v 1.94 2002/05/24 20:33:55 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -150,11 +150,10 @@ permanent record is left in the system.<
 <font color=red>
 Checking out resources is subject to course policies, and may exclude future
 credit even if done erroneously.<p />
-</font>  
-<form method=post>
-<input type=button name="doescheckout" 
-value="Check out Exam for Viewing" 
-onClick="if (confirm('Check out Exam?')) { this.form.submit(); }" />
+</font>
+<form name="checkout" method="POST" action="$ENV{'request.uri'}">
+<input type="hidden" name="doescheckout" value="yes" />
+<input type="button" name="checkoutbutton" value="Check out Exam for Viewing" onClick="javascript:if (confirm('Check out Exam?')) { document.checkout.submit(); }" />
 </form>
 ENDCHECKOUT
 }
@@ -267,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
@@ -315,7 +317,8 @@ sub end_problem {
     if ( $target eq 'grade' && $Apache::inputtags::part eq '0') {
       # if part is zero, no <part>s existed, so we need to the grading
       &Apache::inputtags::grade;
-    } elsif ( $target eq 'web' && $Apache::inputtags::part eq '0') {
+    } elsif ( $target eq 'web' && $Apache::inputtags::part eq '0' && 
+	      $status ne 'UNCHECKEDOUT') {
       # if part is zero, no <part>s existed, so we need show the current 
       # grading status
       $result.= &Apache::inputtags::gradestatus($Apache::inputtags::part);
@@ -326,7 +329,8 @@ sub end_problem {
        ) {
       if ($status eq 'CAN_ANSWER') {
 	$result.="</form></body>\n"; 
-      } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER') {
+      } elsif ($status eq 'SHOW_ANSWER' || $status eq 'CANNOT_ANSWER' ||
+	       $status eq 'UNCHECKEDOUT' ) {
 	$result.="</body>\n";
       }
       $result.=&Apache::lonxml::xmlend();
@@ -343,7 +347,7 @@ sub end_problem {
     &Apache::lonxml::debug("in end_problem with $target, edit");
     $result='<br /><input type="submit" name="submit" value="Submit Changes" />';
   } elsif ($target eq 'tex') {
-      $result .= '\noindent\makebox[9.0cm][b]{\hrulefill}\end{document}';
+      $result .= '\vskip 0.5mm\noindent\makebox[9.0cm][b]{\hrulefill}\end{document}';
   }
   return $result;
 }
@@ -531,7 +535,11 @@ sub start_part {
       }
     }
   }
-  return '';
+  if ($target eq 'tex') {
+      return '\vskip 0 mm';
+  } else {
+      return '';
+  }
 }
 
 sub end_part {