--- loncom/homework/grades.pm 2003/11/07 08:56:52 1.148
+++ loncom/homework/grades.pm 2003/11/07 18:05:33 1.149
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.148 2003/11/07 08:56:52 albertel Exp $
+# $Id: grades.pm,v 1.149 2003/11/07 18:05:33 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -189,8 +189,7 @@ sub get_order {
('grade_courseid' =>
$ENV{'request.course.id'}),
('grade_username' => $uname));
- (my $debug,$subresult)=split(/_HASH_REF__/,$subresult,2);
- Apache->request->print($debug);
+ (undef,$subresult)=split(/_HASH_REF__/,$subresult,2);
my %analyze=&Apache::lonnet::str2hash($subresult);
return ($analyze{"$partid.$respid.shown"});
}
@@ -1621,7 +1620,7 @@ KEYWORDS
'
'.$similar."\n"
if ($ENV{'form.lastSub'} eq 'lastonly' ||
($ENV{'form.lastSub'} eq 'hdgrade' &&
- $$handgrade{$part} =~ /:yes$/));
+ $$handgrade{$part} eq 'yes'));
}
}
}