albertel Fri Apr 18 04:00:04 2003 EDT
Modified files:
/loncom/homework essayresponse.pm
Log:
- no longer bombs
- does grade more correctly (all but supporting multiple essays together)
Index: loncom/homework/essayresponse.pm
diff -u loncom/homework/essayresponse.pm:1.27 loncom/homework/essayresponse.pm:1.28
--- loncom/homework/essayresponse.pm:1.27 Fri Apr 18 03:12:13 2003
+++ loncom/homework/essayresponse.pm Fri Apr 18 04:00:04 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# essay (ungraded) style responses
#
-# $Id: essayresponse.pm,v 1.27 2003/04/18 07:12:13 albertel Exp $
+# $Id: essayresponse.pm,v 1.28 2003/04/18 08:00:04 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -99,9 +99,18 @@
if ($collaborators ne $previous_list);
}
if ( defined($ENV{'form.submitted'}) &&
- $ENV{'form.submitted'}='scantron' ) {
+ $ENV{'form.submitted'} eq 'scantron' ) {
my $repetition=&Apache::response::repetition();
$increment=$repetition;
+ my $score=0;
+ for (my $i=0;$i<$repetition;$i++) {
+ my $increase=&Apache::response::getresponse($i+1);
+ if ($increase ne '') { $score+=$increase+1; }
+ }
+ my $weight = &Apache::lonnet::EXT("resource.$id.weight");
+ my $pcr=$score/$weight;
+ #FIXME, won't work for multiple essay in a single part
+ $Apache::lonhomewok::results{"resource.$id.awarded"};
} elsif ( defined($ENV{'form.submitted'}) ) {
my $response = $ENV{'form.HWVAL_'.$id};
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'};