--- loncom/homework/structuretags.pm 2001/08/18 16:08:34 1.58
+++ 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 tags
-# 8/17,8/18 Gerd Kortemeyer
+# 8/17,8/18,8/20 Gerd Kortemeyer
package Apache::structuretags;
@@ -98,26 +98,29 @@ 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') {
- print "Cool, I was called";
-
+
return (<
+ display="Document ID checked out">
+ display="Time checked out">
+ display="Client IP checked out from">
+ display="Document ID checked in">
+ display="Time checked in">
+ display="Client IP checked in from">
ENDSTORES
}
}
@@ -147,8 +150,9 @@ Checking out resources is subject to cou
credit even if done erroneously.
ENDCHECKOUT
}