--- loncom/interface/lonmsg.pm 2006/12/24 22:13:19 1.191 +++ loncom/interface/lonmsg.pm 2006/12/27 18:00:00 1.192 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines for messaging # -# $Id: lonmsg.pm,v 1.191 2006/12/24 22:13:19 raeburn Exp $ +# $Id: lonmsg.pm,v 1.192 2006/12/27 18:00:00 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -191,6 +191,7 @@ sub unpackagemsg { sub buildmsgid { my ($now,$subject,$uname,$udom,$msgcount,$course_context,$symb,$error,$pid) = @_; $subject=&escape($subject); + $symb = &escape($symb); return(&escape($now.':'.$subject.':'.$uname.':'. $udom.':'.$msgcount.':'.$course_context.':'.$pid.':'.$symb.':'.$error)); } @@ -202,6 +203,7 @@ sub unpackmsgid { $processid,$symb,$error) = split(/\:/,&unescape($msgid)); $shortsubj = &unescape($shortsubj); $shortsubj = &HTML::Entities::decode($shortsubj); + $symb = &unescape($symb); if (!defined($processid)) { $fromcid = ''; } my %status=(); unless ($skipstatus) {