--- loncom/interface/loncommunicate.pm 2003/09/23 00:26:10 1.16 +++ loncom/interface/loncommunicate.pm 2004/01/15 03:53:12 1.19 @@ -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.19 2004/01/15 03:53:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -73,8 +73,15 @@ 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(&Apache::loncommon::bodytag("Communication and Messages"). + &Apache::loncommon::help_open_faq(12). + &Apache::loncommon::help_open_bug('Communication Tools')); $r->print(< @@ -91,13 +98,13 @@ END (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) { $r->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 +119,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 => $_,