--- loncom/interface/lonwhatsnew.pm 2017/05/19 19:55:09 1.105.2.14 +++ loncom/interface/lonwhatsnew.pm 2017/09/13 23:54:07 1.105.2.15 @@ -1,5 +1,5 @@ # -# $Id: lonwhatsnew.pm,v 1.105.2.14 2017/05/19 19:55:09 raeburn Exp $ +# $Id: lonwhatsnew.pm,v 1.105.2.15 2017/09/13 23:54:07 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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,