--- loncom/interface/loncommunicate.pm	2002/05/07 19:24:28	1.9
+++ loncom/interface/loncommunicate.pm	2002/12/27 14:59:42	1.13
@@ -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.13 2002/12/27 14:59:42 www 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">
@@ -78,8 +77,12 @@ END
   <b><a href="/adm/email?compose=group">Broadcast message to course</a></b>
 </td></tr>
 <tr><td bgcolor="#FFFFAA">
-  <b><a href="/adm/email?compose=upload">Upload messages to course</a></b>
+  <b><a href="/adm/email?compose=upload">Distribute messages from uploaded file to course</a></b>
 </td></tr>
+<tr><td bgcolor="#FFFFAA">
+  <b><a href="/adm/email?recordftf=query">User records of face-to-face discusssions and messages</a></b>
+</td></tr>
+
 END
     }
     $r->print('</table>');
@@ -91,6 +94,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 +105,7 @@ END
                 fromdom  => $fromdom 
                 }
         }
+       }
     }
     if ($#newmsgs >= 0) {
         $r->print(<<TABLEHEAD);
