--- loncom/homework/structuretags.pm 2003/03/07 23:41:29 1.155 +++ 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.155 2003/03/07 23:41:29 albertel Exp $ +# $Id: structuretags.pm,v 1.157 2003/04/02 19:52:05 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -254,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(); @@ -336,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 |