--- loncom/homework/structuretags.pm 2003/03/06 21:05:27 1.154 +++ loncom/homework/structuretags.pm 2003/04/02 19:52:05 1.157 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: structuretags.pm,v 1.154 2003/03/06 21:05:27 albertel Exp $ +# $Id: structuretags.pm,v 1.157 2003/04/02 19:52:05 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -241,6 +241,7 @@ ENDCHECKOUT sub start_problem { my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; + $Apache::lonhomework::parsing_a_problem=1; # meta is called from lonpublisher, which doesn't uses the normal # lonhomework method of parsing the file which means that inputtags # won't get reset @@ -253,6 +254,7 @@ sub start_problem { $Apache::inputtags::part='0'; @Apache::inputtags::responselist = (); @Apache::inputtags::previous=(); + @Apache::inputtags::previous_version=(); $Apache::structuretags::printanswer='No'; if ($target ne 'analyze') { &initialize_storage(); @@ -335,8 +337,13 @@ sub start_problem { my $name= &get_resource_name($parstack,$safeeval); if ($status eq 'CAN_ANSWER') { # create a page header and exit + my $WeightOfProblem = ''; + if ($Apache::lonhomework::type eq 'exam') { + my $weight = &Apache::lonnet::EXT("resource.$Apache::inputtags::part.weight"); + $WeightOfProblem = "
$weight pt |