version 1.121, 2016/11/05 13:37:49
|
version 1.125, 2017/09/13 23:35:07
|
Line 87 sub handler {
|
Line 87 sub handler {
|
['mgr','handgrading',1], |
['mgr','handgrading',1], |
['vgr','abovethreshold',1], |
['vgr','abovethreshold',1], |
['vgr','haserrors',1], |
['vgr','haserrors',1], |
['whn','versionchanges',0], |
['whn','versionchanges',1], |
['vcl','newroles',1], |
['vcl','newroles',1], |
['vcl','oldroles',1], |
['vcl','oldroles',1], |
['whn','crslogin',1], |
['whn','crslogin',1], |
Line 1241 sub get_current {
|
Line 1241 sub get_current {
|
sub process_reset { |
sub process_reset { |
my ($dom,$crs,$checkallowed) = @_; |
my ($dom,$crs,$checkallowed) = @_; |
if (!$checkallowed->{'resetcounters'}) { |
if (!$checkallowed->{'resetcounters'}) { |
return '<b>'.&mt('You do not the required privileges to reset counters'). |
return '<b>'.&mt('You do not have the required privileges to reset counters'). |
'</b><br />'; |
'</b><br />'; |
} |
} |
my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). |
Line 1325 sub getnormalmail {
|
Line 1325 sub getnormalmail {
|
if ($emailstatus{$msgid} eq 'new') { |
if ($emailstatus{$msgid} eq 'new') { |
$skipstatus = 1; |
$skipstatus = 1; |
} |
} |
|
my $esc_msgid = &escape($msgid); |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
&Apache::lonmsg::unpackmsgid($msgid,undef,$skipstatus,undef, |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,$skipstatus,undef, |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
if (defined($sendtime) && $sendtime!~/error/) { |
if (defined($sendtime) && $sendtime!~/error/) { |
Line 1337 sub getnormalmail {
|
Line 1338 sub getnormalmail {
|
$shortsubj = &mt('No subject'); |
$shortsubj = &mt('No subject'); |
} |
} |
push(@{$newmsgs}, { |
push(@{$newmsgs}, { |
msgid => $msgid, |
msgid => $esc_msgid, |
sendtime => $sendtime, |
sendtime => $sendtime, |
shortsub => $shortsubj, |
shortsub => $shortsubj, |
from => $fromname, |
from => $fromname, |
Line 1358 sub getcritmail {
|
Line 1359 sub getcritmail {
|
my $result = ''; |
my $result = ''; |
my $critmsgcount = 0; |
my $critmsgcount = 0; |
foreach my $msgid (sort(keys(%what))) { |
foreach my $msgid (sort(keys(%what))) { |
|
my $esc_msgid = &escape($msgid); |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status,$fromcid)= |
&Apache::lonmsg::unpackmsgid($msgid,undef,1,undef, |
&Apache::lonmsg::unpackmsgid($esc_msgid,undef,1,undef, |
$env{'request.course.id'}); |
$env{'request.course.id'}); |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { |
if (defined($sendtime) && $sendtime!~/error/) { |
if (defined($sendtime) && $sendtime!~/error/) { |
Line 1369 sub getcritmail {
|
Line 1371 sub getcritmail {
|
$shortsubj = &mt('No subject'); |
$shortsubj = &mt('No subject'); |
} |
} |
push(@{$critmsgs}, { |
push(@{$critmsgs}, { |
msgid => $msgid, |
msgid => $esc_msgid, |
sendtime => $sendtime, |
sendtime => $sendtime, |
shortsub => $shortsubj, |
shortsub => $shortsubj, |
from => $fromname, |
from => $fromname, |