[LON-CAPA-cvs] cvs: loncom /homework bridgetask.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 19 May 2005 21:28:08 -0000
albertel Thu May 19 17:28:08 2005 EDT
Modified files:
/loncom/homework bridgetask.pm
Log:
- some ' vs. " typos
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.25 loncom/homework/bridgetask.pm:1.26
--- loncom/homework/bridgetask.pm:1.25 Thu May 19 17:22:44 2005
+++ loncom/homework/bridgetask.pm Thu May 19 17:28:06 2005
@@ -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 @@
$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 @@
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"};