loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.164, 2005/12/10 00:46:34	version 1.165, 2005/12/21 22:58:07
Line 273 sub unpackmsgid {	Line 273 sub unpackmsgid {
my %status=();	my %status=();
unless ($skipstatus) {	unless ($skipstatus) {
my $suffix=&foldersuffix($folder);	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}=''; }	if ($status{$msgid}=~/^error\:/) { $status{$msgid}=''; }
unless ($status{$msgid}) { $status{$msgid}='new'; }	unless ($status{$msgid}) { $status{$msgid}='new'; }
}	}