--- loncom/homework/grades.pm 2013/08/28 18:26:57 1.596.2.12.2.21
+++ loncom/homework/grades.pm 2013/09/22 18:20:03 1.596.2.12.2.23
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.596.2.12.2.21 2013/08/28 18:26:57 raeburn Exp $
+# $Id: grades.pm,v 1.596.2.12.2.23 2013/09/22 18:20:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -811,7 +811,7 @@ sub verifyreceipt {
'
'.
&mt('Verifying Receipt No. [_1]',$receipt).
'
'."\n".
- ''.&mt('Resource: [_1]',$env{'form.probTitle'}).
+ ''.&mt('[_1]Resource: [_2]','',''.$env{'form.probTitle'}).
'
'."\n";
my ($string,$contents,$matches) = ('','',0);
@@ -2044,7 +2044,7 @@ sub submission {
&download_all_link($request, $symb);
}
$request->print(' '.&mt('Submission Record').'
'."\n".
- ' '.&mt('Resource: [_1]',$env{'form.probTitle'}).'
'."\n");
+ ' '.&mt('[_1]Resource: [_2]','',''.$env{'form.probTitle'}).'
'."\n");
# option to display problem, only once else it cause problems
# with the form later since the problem has a form.
@@ -8381,7 +8381,6 @@ sub scantron_process_students {
}
my $nav_error;
my @resources=$navmap->retrieveResources($map,\&scantron_filter,1,0);
- my (%grader_partids_by_symb,%grader_randomlists_by_symb,%ordered);
if ($randomorder || $randompick) {
$nav_error = &get_master_seq(\@resources,\@master_seq,\%symb_to_resource);
if ($nav_error) {