--- loncom/homework/structuretags.pm 2001/08/17 15:51:00 1.56
+++ loncom/homework/structuretags.pm 2001/08/20 15:47:22 1.61
@@ -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 Gerd Kortemeyer
+# 8/17,8/18,8/20 Gerd Kortemeyer
package Apache::structuretags;
@@ -82,6 +82,7 @@ sub start_problem {
&Apache::lonxml::debug("Using default type, problem, :$uri:");
}
}
+
#adeed vars to the scripting enviroment
my $expression='$external::part='.$Apache::inputtags::part.';';
&Apache::run::run($expression,$safeeval);
@@ -92,6 +93,34 @@ sub start_problem {
my ($result,$head_tag_start,$body_tag_start)=
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
+ if ($Apache::lonhomework::type eq 'exam') {
+ if ($target eq 'web') {
+ 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 ($target eq 'meta') {
+
+ return (<
+
+
+
+
+
+
+ENDSTORES
+ }
+ }
if ($target eq 'web' || $target eq 'grade') {
($status,$accessmsg) = &Apache::lonhomework::check_access('0');
push (@Apache::inputtags::status,$status);
@@ -118,8 +147,9 @@ Checking out resources is subject to cou
credit even if done erroneously.
ENDCHECKOUT
}