--- loncom/interface/loncommunicate.pm 2004/11/09 16:29:32 1.24 +++ loncom/interface/loncommunicate.pm 2004/11/11 20:41:53 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network # Communicate # -# $Id: loncommunicate.pm,v 1.24 2004/11/09 16:29:32 www Exp $ +# $Id: loncommunicate.pm,v 1.25 2004/11/11 20:41:53 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -54,10 +54,8 @@ sub menu { 'Course_Broadcast_Message') { $help{$_}=&Apache::loncommon::help_open_topic($_); } - my $folderlist=&Apache::lonmsg::folderlist(); # ------------------------------------------------------------------------ Menu $r->print(< @@ -112,7 +110,7 @@ END # ---------------------------------------------------------------------- Header &Apache::lonmsg::header($r); &menu($r); - &Apache::lonmsg::disnew($r); + &Apache::lonmsg::disall($r,'new'); return OK; }