--- loncom/homework/structuretags.pm 2003/03/14 23:23:45 1.156 +++ 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.156 2003/03/14 23:23:45 albertel Exp $ +# $Id: structuretags.pm,v 1.157 2003/04/02 19:52:05 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -337,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 |