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

raeburn lon-capa-cvs@mail.lon-capa.org
Wed, 21 Dec 2005 22:58:07 -0000


raeburn		Wed Dec 21 17:58:07 2005 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Be sure to set %status equal to the hash retrieved by lonnet::get();
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.164 loncom/interface/lonmsg.pm:1.165
--- loncom/interface/lonmsg.pm:1.164	Fri Dec  9 19:46:34 2005
+++ loncom/interface/lonmsg.pm	Wed Dec 21 17:58:07 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.164 2005/12/10 00:46:34 raeburn Exp $
+# $Id: lonmsg.pm,v 1.165 2005/12/21 22:58:07 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -273,7 +273,7 @@
     my %status=();
     unless ($skipstatus) {
         my $suffix=&foldersuffix($folder);
-        &Apache::lonnet::get('email_status'.$suffix,[$msgid]);
+        %status=&Apache::lonnet::get('email_status'.$suffix,[$msgid]);
         if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; }
         unless ($status{$msgid}) { $status{$msgid}='new'; }
     }