--- loncom/homework/bridgetask.pm 2005/05/19 21:22:44 1.25 +++ loncom/homework/bridgetask.pm 2005/05/19 21:28:06 1.26 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.25 2005/05/19 21:22:44 albertel Exp $ +# $Id: bridgetask.pm,v 1.26 2005/05/19 21:28:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -347,15 +347,15 @@ sub end_Task { $Apache::lonhomework::results{"resource.$version.0.awarded"}='1'; &remove_from_queue(); } - $Apache::lonhomework::results{'resource.status'}= - $Apache::lonhomework::results{'resource.$version.status'}; - if (defined($Apache::lonhomework::results{'resource.$version.awarded'})) { - $Apache::lonhomework::results{'resource.0.award'}= - $Apache::lonhomework::results{'resource.$version.award'}; - $Apache::lonhomework::results{'resource.0.awarded'}= - $Apache::lonhomework::results{'resource.$version.awarded'}; - $Apache::lonhomework::results{'resource.0.solved'}= - $Apache::lonhomework::results{'resource.$version.solved'}; + $Apache::lonhomework::results{"resource.status"}= + $Apache::lonhomework::results{"resource.$version.status"}; + if (defined($Apache::lonhomework::results{"resource.$version.awarded"})) { + $Apache::lonhomework::results{"resource.0.award"}= + $Apache::lonhomework::results{"resource.$version.award"}; + $Apache::lonhomework::results{"resource.0.awarded"}= + $Apache::lonhomework::results{"resource.$version.awarded"}; + $Apache::lonhomework::results{"resource.0.solved"}= + $Apache::lonhomework::results{"resource.$version.solved"}; } &Apache::structuretags::finalize_storage(); } @@ -638,8 +638,8 @@ sub get_instance { my $version=&get_version(); if ($target eq 'web') { $result=$dimension{'intro'}.$dimension{$instance.'.text'}; - if ($Apache::lonhomework::history{'resource.$version.status'} eq 'pass' || - $Apache::lonhomework::history{'resource.$version.status'} eq 'fail') { + if ($Apache::lonhomework::history{"resource.$version.status"} eq 'pass' || + $Apache::lonhomework::history{"resource.$version.status"} eq 'fail') { foreach my $id (@{$dimension{$instance.'.criterias'}}) { my $status=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.status"}; my $comment=$Apache::lonhomework::history{"resource.$version.$dim.$instance.$id.comment"};