--- loncom/homework/structuretags.pm	2001/08/18 16:38:00	1.59
+++ loncom/homework/structuretags.pm	2001/08/20 15:56:47	1.62
@@ -2,7 +2,7 @@
 # definition of tags that give a structure to a document
 # 2/19 Guy
 # 6/26/2001 fixed extra web display at end of <web></web> tags
-# 8/17,8/18 Gerd Kortemeyer
+# 8/17,8/18,8/20 Gerd Kortemeyer
 
 package Apache::structuretags; 
 
@@ -98,8 +98,12 @@ sub start_problem {
           my $token=$Apache::lonhomework::history{"resource.0.outtoken"};
           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{'user.adv'}) {
+	      $body_tag_start.=&Apache::lonxml::tokeninputfield;
+          }
       }
       if ($target eq 'meta') {
      
@@ -146,8 +150,9 @@ Checking out resources is subject to cou
 credit even if done erroneously.<p />
 </font>  
 <form method=post>
-<input type=submit name="doescheckout" 
-value="Check out Exam for Viewing" />
+<input type=button name="doescheckout" 
+value="Check out Exam for Viewing" 
+onClick="if (confirm('Check out Exam?')) { this.form.submit(); }" />
 </form>
 ENDCHECKOUT
         }