--- loncom/homework/structuretags.pm 2002/03/20 22:13:19 1.85 +++ loncom/homework/structuretags.pm 2002/05/24 21:57:38 1.95 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.85 2002/03/20 22:13:19 sakharuk Exp $ +# $Id: structuretags.pm,v 1.95 2002/05/24 21:57:38 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -150,11 +150,10 @@ permanent record is left in the system.< Checking out resources is subject to course policies, and may exclude future credit even if done erroneously. - -
ENDCHECKOUT } @@ -174,12 +173,14 @@ sub start_problem { $Apache::inputtags::part='0'; @Apache::inputtags::responselist = (); @Apache::inputtags::previous=(); - &initialize_storage(); - if ($target eq 'web') { - &Apache::lonhomework::showhash(%Apache::lonhomework::history); + if ($target ne 'analyze') { + &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:"); } - $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 '') { my $uri=$ENV{'request.uri'}; if ($uri=~/\.(\w+)$/) { @@ -265,6 +266,9 @@ sub start_problem { $rndseed.'" /> + Show All Foils