--- loncom/homework/grades.pm 2005/02/01 21:03:13 1.240
+++ loncom/homework/grades.pm 2005/02/07 17:07:58 1.242
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Grading handler
#
-# $Id: grades.pm,v 1.240 2005/02/01 21:03:13 albertel Exp $
+# $Id: grades.pm,v 1.242 2005/02/07 17:07:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3063,13 +3063,12 @@ sub getSymbMap {
my @sequences = $navmap->retrieveResources(undef, sub { shift->is_map(); },
1,0,1);
for my $sequence ($navmap->getById('0.0'), @sequences) {
-# if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
- Apache->request->print($sequence->map_pc()."
");
+ if ($navmap->hasResource($sequence, sub { shift->is_problem(); }, 0) ) {
my $title = $minder.'.'.$sequence->compTitle();
push @titles, $title; # minder in case two titles are identical
$symbx{$title} = $sequence->symb();
$minder++;
-# }
+ }
}
return \@titles,\%symbx;
}
@@ -4327,6 +4326,12 @@ sub scantron_get_correction {
$r->print(" in scanline $i
". $line."\n"); } + my $message="
The ID on the form is ".
+ $$scan_record{'scantron.ID'}."
\n".
+ "The name on the paper is ".
+ $$scan_record{'scantron.LastName'}.",".
+ $$scan_record{'scantron.FirstName'}."
The ID on the form is ".
- $$scan_record{'scantron.ID'}."
\n");
- $r->print("The name on the paper is ".
- $$scan_record{'scantron.LastName'}.",".
- $$scan_record{'scantron.FirstName'}."
How should I handle this?
\n");
$r->print("\n
The CODE on the form is '".
$$scan_record{'scantron.CODE'}."'
\n");
- $r->print("
The ID on the form is ".
- $$scan_record{'scantron.ID'}."
\n");
- $r->print("The name on the paper is ".
- $$scan_record{'scantron.LastName'}.",".
- $$scan_record{'scantron.FirstName'}."
How should I handle this?
\n");
$r->print("\n
");
my $i=0;
@@ -4406,6 +4403,7 @@ ENDSCRIPT
$r->print("
There have been multiple bubbles scanned for a some question(s)
\n"); $r->print(''); + $r->print($message); $r->print("Please indicate which bubble should be used for grading
"); foreach my $question (@{$arg}) { my $selected=$$scan_record{"scantron.$question.answer"}; @@ -4413,6 +4411,7 @@ ENDSCRIPT } } elsif ($error eq 'missingbubble') { $r->print("There have been no bubbles scanned for some question(s)
\n"); + $r->print($message); $r->print("Please indicate which bubble should be used for grading
"); $r->print("Some questions have no scanned bubbles\n"); $r->print('