[LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm

[raeburn]

raeburn		Wed Dec 27 13:00:02 2006 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  msgid to include escaped symb.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.191 loncom/interface/lonmsg.pm:1.192
--- loncom/interface/lonmsg.pm:1.191	Sun Dec 24 17:13:19 2006
+++ loncom/interface/lonmsg.pm	Wed Dec 27 13:00:00 2006
@@ -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 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 @@
         $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) {