[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'; }
}