--- loncom/interface/loncommunicate.pm	2002/06/24 14:33:21	1.10
+++ 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.10 2002/06/24 14:33:21 www 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,7 +94,7 @@ END
     foreach (@msgids) {
         my ($sendtime,$shortsubj,$fromname,$fromdom,$status)=
 	    &Apache::lonmsg::unpackmsgid($_);
-       if ($sendtime!~/error/) {
+       if (defined($sendtime) && $sendtime!~/error/) {
         $sendtime = localtime($sendtime);
         if ($status eq 'new') {
             push @newmsgs, { 
