|
version 1.641, 2010/12/20 21:23:38
|
version 1.642, 2010/12/20 22:01:26
|
|
Line 6199 sub scantron_do_warning {
|
Line 6199 sub scantron_do_warning {
|
| if ( $env{'form.selectpage'} eq '' || |
if ( $env{'form.selectpage'} eq '' || |
| $env{'form.scantron_selectfile'} eq '' || |
$env{'form.scantron_selectfile'} eq '' || |
| $env{'form.scantron_format'} eq '' ) { |
$env{'form.scantron_format'} eq '' ) { |
| $r->print("<p>".&mt('You have forgetten to specify some information. Please go Back and try again.')."</p>"); |
$r->print("<p>".&mt('You have forgotten to specify some information. Please go Back and try again.')."</p>"); |
| if ( $env{'form.selectpage'} eq '') { |
if ( $env{'form.selectpage'} eq '') { |
| $r->print('<p><span class="LC_error">'.&mt('You have not selected a Sequence to grade').'</span></p>'); |
$r->print('<p><span class="LC_error">'.&mt('You have not selected a Sequence to grade').'</span></p>'); |
| } |
} |
| if ( $env{'form.scantron_selectfile'} eq '') { |
if ( $env{'form.scantron_selectfile'} eq '') { |
| $r->print('<p><span class="LC_error">'.&mt('You have not selected a file that contains the student\'s response data.').'</span></p>'); |
$r->print('<p><span class="LC_error">'.&mt("You have not selected a file that contains the student's response data.").'</span></p>'); |
| } |
} |
| if ( $env{'form.scantron_format'} eq '') { |
if ( $env{'form.scantron_format'} eq '') { |
| $r->print('<p><span class="LC_error">'.&mt('You have not selected a the format of the student\'s response data.').'</span></p>'); |
$r->print('<p><span class="LC_error">'.&mt("You have not selected the format of the student's response data.").'</span></p>'); |
| } |
} |
| } else { |
} else { |
| my $warning=&scantron_warning_screen('Grading: Validate Records'); |
my $warning=&scantron_warning_screen('Grading: Validate Records'); |
![[BACK]](/icons/back.gif){kind=icon}
Return to grades.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework