--- loncom/interface/lonmsg.pm 2002/09/07 13:57:26 1.38
+++ loncom/interface/lonmsg.pm 2002/09/16 20:06:12 1.39
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.38 2002/09/07 13:57:26 www Exp $
+# $Id: lonmsg.pm,v 1.39 2002/09/16 20:06:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -450,24 +450,24 @@ ENDDISHEADER
$ENV{'user.home'}))) {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
&Apache::lonmsg::unpackmsgid($_);
- unless (($status eq 'deleted') || ($sendtime=~/error/)) {
- if ($status eq 'new') {
- $r->print('
');
- } elsif ($status eq 'read') {
- $r->print('
');
- } elsif ($status eq 'replied') {
- $r->print('
');
- } else {
- $r->print('
');
- }
- $r->print('Open | Delete | '.
- ''.localtime($sendtime).' | '.
- $fromname.' | '.$fromdomain.' | '.
+ if (($status ne 'deleted') && defined($sendtime) && $sendtime!~/error/) {
+ if ($status eq 'new') {
+ $r->print(' |
');
+ } elsif ($status eq 'read') {
+ $r->print('
');
+ } elsif ($status eq 'replied') {
+ $r->print('
');
+ } else {
+ $r->print('
');
+ }
+ $r->print('Open | Delete | '.
+ ''.localtime($sendtime).' | '.
+ $fromname.' | '.$fromdomain.' | '.
&Apache::lonnet::unescape($shortsubj).' | '.
$status.' |
');
- }
+ }
}
$r->print(''.
'Check All '.