--- loncom/homework/grades.pm 2007/11/08 19:57:30 1.486 +++ loncom/homework/grades.pm 2007/11/13 01:47:36 1.489 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Grading handler # -# $Id: grades.pm,v 1.486 2007/11/08 19:57:30 albertel Exp $ +# $Id: grades.pm,v 1.489 2007/11/13 01:47:36 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -733,9 +733,12 @@ sub verifyreceipt { $receipt =~ s/[^\-\d]//g; my ($symb) = &get_symb($request); - my $title.='
'. + &mt('The above receipt matches the following [numerate,_1,student].',$matches). + '
'. $header. $contents. &Apache::loncommon::end_data_table()."\n"; @@ -4897,52 +4901,48 @@ sub scantron_selectphase { # Chunk of form to prompt for a file to grade and how: - $result.= <+ Specify a Scantron data file to upload. + | + '.&Apache::loncommon::end_data_table_header_row().' + '.&Apache::loncommon::start_data_table_row().'- Specify a Scantron data file to upload. - | -
---|---|
-SCANTRONFORM
+');
my $default_form_data=&defaultFormData(&get_symb($r,1));
my $cdom= $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum= $env{'course.'.$env{'request.course.id'}.'.num'};
@@ -4988,47 +4987,38 @@ SCANTRONFORM
UPLOAD
- $r->print(< |
-
- Download a scoring office file - | -|||
Filename of scoring office file: | $file_selector | -||
+ $r->print('
+ +
+ Download a scoring office file
+ |
+ '.&Apache::loncommon::end_data_table_header_row().'
+ '.&Apache::loncommon::start_data_table_row().'
+ Filename of scoring office file: '.$file_selector.'
+ |
- - |