Return to loncommunicate.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.9, 2002/05/07 19:24:28 | version 1.10, 2002/06/24 14:33:21 |
---|---|
Line 91 END | Line 91 END |
foreach (@msgids) { | foreach (@msgids) { |
my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= | my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= |
&Apache::lonmsg::unpackmsgid($_); | &Apache::lonmsg::unpackmsgid($_); |
if ($sendtime!~/error/) { | |
$sendtime = localtime($sendtime); | $sendtime = localtime($sendtime); |
if ($status eq 'new') { | if ($status eq 'new') { |
push @newmsgs, { | push @newmsgs, { |
Line 101 END | Line 102 END |
fromdom => $fromdom | fromdom => $fromdom |
} | } |
} | } |
} | |
} | } |
if ($#newmsgs >= 0) { | if ($#newmsgs >= 0) { |
$r->print(<<TABLEHEAD); | $r->print(<<TABLEHEAD); |