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

[www]

www		Sat Jan  1 13:24:12 2005 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Toward Bug #3771 - unclear why I had thought that email_status uses unescaped
  msgids.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.126 loncom/interface/lonmsg.pm:1.127
--- loncom/interface/lonmsg.pm:1.126	Sat Jan  1 12:58:48 2005
+++ loncom/interface/lonmsg.pm	Sat Jan  1 13:24:12 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.126 2005/01/01 17:58:48 www Exp $
+# $Id: lonmsg.pm,v 1.127 2005/01/01 18:24:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -590,7 +590,6 @@
 
 sub movemsg {
     my ($msgid,$srcfolder,$trgfolder)=@_;
-    my $unmsgid=&Apache::lonnet::unescape($msgid);
     my $srcsuffix=&foldersuffix($srcfolder);
     my $trgsuffix=&foldersuffix($trgfolder);
 
@@ -599,16 +598,16 @@
     &Apache::lonnet::put('nohist_email'.$trgsuffix,{$msgid => $message{$msgid}});
 
 # Copy status
-    my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$unmsgid]);
-    &Apache::lonnet::put('email_status'.$trgsuffix,{$unmsgid => $status{$unmsgid}});
+    my %status=&Apache::lonnet::get('email_status'.$srcsuffix,[$msgid]);
+    &Apache::lonnet::put('email_status'.$trgsuffix,{$msgid => $status{$msgid}});
 # See if was deleted -> becomes "read" in trash
-    my $currentstatus=(&unpackmsgid($status{$unmsgid}),$srcfolder);
+    my $currentstatus=(&unpackmsgid($status{$msgid}),$srcfolder);
     if ($currentstatus eq 'deleted') {
 	&statuschange($msgid,'read',$trgfolder);
     }
 # Delete orginals
     &Apache::lonnet::del('nohist_email'.$srcsuffix,[$msgid]);
-    &Apache::lonnet::del('email_status'.$srcsuffix,[$unmsgid]);
+    &Apache::lonnet::del('email_status'.$srcsuffix,[$msgid]);
 }
 
 # ======================================================= Display a course list