--- loncom/interface/loncommunicate.pm 2003/09/23 00:26:10 1.16 +++ loncom/interface/loncommunicate.pm 2004/01/14 22:08:23 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # Communicate # -# $Id: loncommunicate.pm,v 1.16 2003/09/23 00:26:10 www Exp $ +# $Id: loncommunicate.pm,v 1.18 2004/01/14 22:08:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,6 +73,11 @@ END 'op' => 'Open', 'do' => 'Domain' ); + my %help=(); + foreach ('Course_Face_To_Face_Records,Course_Critical_Message', + 'Course_Broadcast_Message') { + $help{$_}=&Apache::loncommon::help_open_topic($_); + } $r->print(&Apache::loncommon::bodytag("Communication and Messages")); $r->print(<print(< - $lt{'bmc'} + $lt{'bmc'}$help{'Course_Broadcast_Message'} $lt{'dmu'} - $lt{'unr'} +$lt{'unr'}$help{'Course_Face_To_Face_Records,Course_Critical_Message'} END @@ -112,7 +117,7 @@ END my ($sendtime,$shortsubj,$fromname,$fromdom,$status)= &Apache::lonmsg::unpackmsgid($_); if (defined($sendtime) && $sendtime!~/error/) { - $sendtime = localtime($sendtime); + $sendtime = &Apache::lonlocal::locallocaltime($sendtime); if ($status eq 'new') { push @newmsgs, { msgid => $_,