--- loncom/homework/structuretags.pm 2001/09/14 20:17:35 1.67 +++ loncom/homework/structuretags.pm 2001/12/04 14:53:59 1.73 @@ -68,7 +68,7 @@ sub initialize_storage { my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); if ($ENV{'request.state'} eq 'construct') { %Apache::lonhomework::history= - &Apache::lonnet::restore($ENV{'request.uri'},'nohist_construct',$domain,$name); + &Apache::lonnet::tmprestore($ENV{'request.uri'},'',$domain,$name); my ($temp)=keys %Apache::lonhomework::history ; &Apache::lonxml::debug("Return message of $temp"); } else { @@ -90,9 +90,8 @@ sub finalize_storage { if ( $temp ne '' ) { my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); if ($ENV{'request.state'} eq 'construct') { - $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, - $ENV{'request.uri'},'nohist_construct', - $domain,$name); + $result=&Apache::lonnet::tmpstore(\%Apache::lonhomework::results, + $ENV{'request.uri'},'',$domain,$name); &Apache::lonxml::debug('Construct Store return message:'.$result); } else { $result=&Apache::lonnet::cstore(\%Apache::lonhomework::results, @@ -128,6 +127,9 @@ sub start_problem { @Apache::inputtags::responselist = (); @Apache::inputtags::previous=(); &initialize_storage(); + if ($target eq 'web') { + &Apache::lonhomework::showhash(%Apache::lonhomework::history); + } $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type'); &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:"); if ($Apache::lonhomework::type eq '') { @@ -152,7 +154,7 @@ sub start_problem { &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval); - if ($target eq 'web' || $target eq 'grade') { + if ($target eq 'web' || $target eq 'grade' || $target eq 'answer') { #handle exam checkout if ($Apache::lonhomework::type eq 'exam') { my $token=$Apache::lonhomework::history{"resource.0.outtoken"}; @@ -210,8 +212,12 @@ sub start_problem { $result.= ' + Random Seed: