version 1.102, 2011/06/25 20:12:56
|
version 1.105, 2015/03/13 22:06:10
|
Line 29
|
Line 29
|
package Apache::lonquickgrades; |
package Apache::lonquickgrades; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http REDIRECT); |
use POSIX; |
use POSIX; |
use Apache::loncommon; |
use Apache::loncommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
Line 75 sub real_handler {
|
Line 75 sub real_handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
# Check for critical messages and redirect if present. |
|
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300); |
|
if ($redirect) { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $url); |
|
return REDIRECT; |
|
} |
|
|
# Send header, don't cache this page |
# Send header, don't cache this page |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
Line 261 sub startGradeScreen {
|
Line 269 sub startGradeScreen {
|
if ($env{'form.symb'}) { |
if ($env{'form.symb'}) { |
$r->print("\n".'<li'.($mode eq 'probgrading'?' class="active"':'').'><a href="/adm/grades?symb='. |
$r->print("\n".'<li'.($mode eq 'probgrading'?' class="active"':'').'><a href="/adm/grades?symb='. |
&Apache::lonhtmlcommon::entity_encode($env{'form.symb'}). |
&Apache::lonhtmlcommon::entity_encode($env{'form.symb'}). |
'&command=gradingmenu"><b> '. |
'&command=gradingmenu"><b> '. |
&mt('Problem Grading').' </b></a></li>'); |
&mt('Problem Grading').' </b></a></li>'); |
|
|
} |
} |