--- loncom/homework/structuretags.pm 2006/04/20 19:07:09 1.352 +++ loncom/homework/structuretags.pm 2006/05/23 19:05:42 1.355 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.352 2006/04/20 19:07:09 albertel Exp $ +# $Id: structuretags.pm,v 1.355 2006/05/23 19:05:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -160,6 +160,14 @@ sub page_start { $form_tag_start.=&Apache::edit::form_change_detection(); } $form_tag_start.='>'; + + my $symb=&Apache::lonnet::symbread(); + if ($symb =~ /\S/) { + $symb= + &HTML::Entities::encode(&Apache::lonenc::check_encrypt($symb)); + $form_tag_start.= + ''; + } } return ($page_start,$form_tag_start); } @@ -331,9 +339,16 @@ Feedback Mode: } sub initialize_storage { - %Apache::lonhomework::results=(); - %Apache::lonhomework::history=(); + undef(%Apache::lonhomework::results); + undef(%Apache::lonhomework::history); my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); + + # anonymous users (CODEd exams) have no data + if ($name eq 'anonymous' + && !defined($domain)) { + return; + } + if ($env{'request.state'} eq 'construct' || $symb eq '' || $Apache::lonhomework::type eq 'practice') { @@ -353,6 +368,7 @@ sub initialize_storage { %Apache::lonhomework::history= &Apache::lonnet::restore($symb,$courseid,$domain,$name); } + #ignore error conditions my ($temp)=keys %Apache::lonhomework::history ; if ($temp =~ m/^error:.*/) { %Apache::lonhomework::history=(); } @@ -598,7 +614,8 @@ sub start_problem { my $name= &get_resource_name($parstack,$safeeval); my ($result,$form_tag_start); - if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex') { + if ($target eq 'web' || $target eq 'webgrade' || $target eq 'tex' + || $target eq 'edit') { ($result,$form_tag_start) = &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval, $name);