--- loncom/interface/loncommunicate.pm	2002/05/07 19:24:28	1.9
+++ loncom/interface/loncommunicate.pm	2002/09/16 20:06:12	1.12
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.9 2002/05/07 19:24:28 matthew Exp $
+# $Id: loncommunicate.pm,v 1.12 2002/09/16 20:06:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,6 +41,7 @@ package Apache::loncommunicate;
 use strict;
 use Apache::Constants qw(:common);
 use Apache::lonmsg();
+use Apache::loncommon;
 
 sub handler {
     my $r = shift;
@@ -55,10 +56,8 @@ sub handler {
 <head>
 <title>The LearningOnline Network with CAPA</title>
 </head>
-<body bgcolor="#FFFFFF">
-<img align=right src=/adm/lonIcons/lonlogos.gif>
-<h1>Communicate</h1>
 END
+   $r->print(&Apache::loncommon::bodytag("Communication and Messages"));
    $r->print(<<END);
 <table cellspacing="10" cellpadding="2">
 <tr><td bgcolor="#FFFFAA">
@@ -91,6 +90,7 @@ END
     foreach (@msgids) {
         my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
+       if (defined($sendtime) && $sendtime!~/error/) {
         $sendtime = localtime($sendtime);
         if ($status eq 'new') {
             push @newmsgs, { 
@@ -101,6 +101,7 @@ END
                 fromdom  => $fromdom 
                 }
         }
+       }
     }
     if ($#newmsgs >= 0) {
         $r->print(<<TABLEHEAD);
