--- loncom/interface/lonwhatsnew.pm 2016/11/05 13:37:49 1.121 +++ loncom/interface/lonwhatsnew.pm 2017/09/13 23:35:07 1.125 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.121 2016/11/05 13:37:49 raeburn Exp $ +# $Id: lonwhatsnew.pm,v 1.125 2017/09/13 23:35:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -87,7 +87,7 @@ sub handler { ['mgr','handgrading',1], ['vgr','abovethreshold',1], ['vgr','haserrors',1], - ['whn','versionchanges',0], + ['whn','versionchanges',1], ['vcl','newroles',1], ['vcl','oldroles',1], ['whn','crslogin',1], @@ -1241,7 +1241,7 @@ sub get_current { sub process_reset { my ($dom,$crs,$checkallowed) = @_; 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 />'; } my $result = '<b>'.&mt('Counters reset for following problems (and parts):'). @@ -1325,8 +1325,9 @@ sub getnormalmail { if ($emailstatus{$msgid} eq 'new') { $skipstatus = 1; } + my $esc_msgid = &escape($msgid); 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'}); if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { if (defined($sendtime) && $sendtime!~/error/) { @@ -1337,7 +1338,7 @@ sub getnormalmail { $shortsubj = &mt('No subject'); } push(@{$newmsgs}, { - msgid => $msgid, + msgid => $esc_msgid, sendtime => $sendtime, shortsub => $shortsubj, from => $fromname, @@ -1358,8 +1359,9 @@ sub getcritmail { my $result = ''; my $critmsgcount = 0; foreach my $msgid (sort(keys(%what))) { + my $esc_msgid = &escape($msgid); 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'}); if (($fromcid) && ($fromcid eq $env{'request.course.id'})) { if (defined($sendtime) && $sendtime!~/error/) { @@ -1369,7 +1371,7 @@ sub getcritmail { $shortsubj = &mt('No subject'); } push(@{$critmsgs}, { - msgid => $msgid, + msgid => $esc_msgid, sendtime => $sendtime, shortsub => $shortsubj, from => $fromname,