version 1.710, 2013/12/20 17:18:42
|
version 1.712, 2014/01/15 14:46:26
|
Line 1942 sub submission {
|
Line 1942 sub submission {
|
if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; } |
if ($symb eq '') { $request->print("Unable to handle ambiguous references:."); return ''; } |
|
|
if (!&canview($usec)) { |
if (!&canview($usec)) { |
$request->print('<span class="LC_warning">Unable to view requested student.('. |
$request->print( |
$uname.':'.$udom.' in section '.$usec.' in course id '. |
'<span class="LC_warning">'. |
$env{'request.course.id'}.')</span>'); |
&mt('Unable to view requested student.'. |
|
' '.&mt('([_1] in section [_2] in course id [_3])', |
|
$uname.':'.$udom,$usec,$env{'request.course.id'}). |
|
'</span>'); |
return; |
return; |
} |
} |
|
|
Line 2546 sub show_previous_task_version {
|
Line 2549 sub show_previous_task_version {
|
my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'}); |
my ($uname,$udom) = ($env{'form.student'},$env{'form.userdom'}); |
my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'}); |
my $usec = &Apache::lonnet::getsection($udom,$uname,$env{'request.course.id'}); |
if (!&canview($usec)) { |
if (!&canview($usec)) { |
$request->print('<span class="LC_warning">Unable to view previous version for requested student.('. |
$request->print( |
$uname.':'.$udom.' in section '.$usec.' in course id '. |
'<span class="LC_warning">'. |
$env{'request.course.id'}.')</span>'); |
&mt('Unable to view previous version for requested student.'. |
|
' '.&mt('([_1] in section [_2] in course id [_3])', |
|
$uname.':'.$udom,$usec,$env{'request.course.id'}). |
|
'</span>'); |
return; |
return; |
} |
} |
my $mode = 'both'; |
my $mode = 'both'; |
Line 4613 sub displayPage {
|
Line 4619 sub displayPage {
|
&Apache::lonnet::clear_EXT_cache_status(); |
&Apache::lonnet::clear_EXT_cache_status(); |
|
|
if (!&canview($usec)) { |
if (!&canview($usec)) { |
$request->print('<span class="LC_warning">'.&mt('Unable to view requested student. ([_1])',$env{'form.student'}).'</span>'); |
$request->print( |
return; |
'<span class="LC_warning">'. |
|
&mt('Unable to view requested student. ([_1])', |
|
$env{'form.student'}). |
|
'</span>'); |
|
return; |
} |
} |
my $result='<h3><span class="LC_info"> '.$env{'form.title'}.'</span></h3>'; |
my $result='<h3><span class="LC_info"> '.$env{'form.title'}.'</span></h3>'; |
$result.='<h3> '.&mt('Student: [_1]',&nameUserString(undef,$$fullname{$env{'form.student'}},$uname,$udom)). |
$result.='<h3> '.&mt('Student: [_1]',&nameUserString(undef,$$fullname{$env{'form.student'}},$uname,$udom)). |
Line 5585 sub scantron_selectphase {
|
Line 5595 sub scantron_selectphase {
|
|
|
=item get_scantron_config |
=item get_scantron_config |
|
|
Parse and return the scantron configuration line selected as a |
Parse and return the bubblesheet configuration line selected as a |
hash of configuration file fields. |
hash of configuration file fields. |
|
|
Arguments: |
Arguments: |
Line 5869 sub digits_to_letters {
|
Line 5879 sub digits_to_letters {
|
|
|
=item scantron_parse_scanline |
=item scantron_parse_scanline |
|
|
Decodes a scanline from the selected scantron file |
Decodes a scanline from the selected bubblesheet file |
|
|
Arguments: |
Arguments: |
line - The text of the scantron file line to process |
line - The text of the bubblesheet file line to process |
whichline - Line number |
whichline - Line number |
scantron_config - Hash describing the format of the scantron lines. |
scantron_config - Hash describing the format of the bubblesheet lines. |
scan_data - Hash of extra information about the scanline |
scan_data - Hash of extra information about the scanline |
(see scantron_getfile for more information) |
(see scantron_getfile for more information) |
just_header - True if should not process question answers but only |
just_header - True if should not process question answers but only |
Line 8863 sub scantron_download_scantron_data {
|
Line 8873 sub scantron_download_scantron_data {
|
&Apache::lonnet::allowuploaded('/adm/grades',$skipped); |
&Apache::lonnet::allowuploaded('/adm/grades',$skipped); |
$r->print(' |
$r->print(' |
<p> |
<p> |
'.&mt('[_1]Original[_2] file as uploaded by the scantron office.', |
'.&mt('[_1]Original[_2] file as uploaded by the bubblesheet office.', |
'<a href="'.$orig.'">','</a>').' |
'<a href="'.$orig.'">','</a>').' |
</p> |
</p> |
<p> |
<p> |