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