--- loncom/homework/grades.pm 2004/03/19 04:20:24 1.183 +++ loncom/homework/grades.pm 2004/03/30 20:46:24 1.184 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.183 2004/03/19 04:20:24 albertel Exp $ +# $Id: grades.pm,v 1.184 2004/03/30 20:46:24 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -511,7 +511,7 @@ sub verifyreceipt { my $request = shift; my $courseid = $ENV{'request.course.id'}; - my $receipt = unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}).'-'. + my $receipt = &Apache::lonnet::recprefix($courseid).'-'. $ENV{'form.receipt'}; $receipt =~ s/[^\-\d]//g; my $url = $ENV{'form.url'}; @@ -4441,17 +4441,18 @@ GRADINGMENUJS $result.='
'. - ''. - ' scores from file | |
'. ' scantron forms | |
'. - ''. - ' submission Receipt no: '.unpack("%32C*",$Apache::lonnet::perlvar{'lonHostID'}). + ''. + ' '.&mt('receipt').': '. + &Apache::lonnet::recprefix($ENV{'request.course.id'}). '-'. ' |