![[BACK]](/icons/back.gif){kind=icon}
Return to loncommunicate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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); |