--- loncom/interface/loncommunicate.pm 2006/12/07 21:06:57 1.37 +++ loncom/interface/loncommunicate.pm 2006/12/07 21:21:04 1.38 @@ -1,7 +1,7 @@ # The LearningOnline Network # Communicate # -# $Id: loncommunicate.pm,v 1.37 2006/12/07 21:06:57 albertel Exp $ +# $Id: loncommunicate.pm,v 1.38 2006/12/07 21:21:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -64,7 +64,7 @@ sub menu { $help{$_}=&Apache::loncommon::help_open_topic($_); } # ------------------------------------------------------------------------ Menu - my ($can_srm,$can_dcm); + my ($can_srm,$can_dcm,$can_dff); if ($env{'request.course.id'}) { if ((&Apache::lonnet::allowed('srm',$env{'request.course.id'})) || (&Apache::lonnet::allowed('srm',$env{'request.course.id'}.'/'. @@ -76,6 +76,11 @@ sub menu { $env{'request.course.sec'}))) { $can_dcm = 1; } + if ((&Apache::lonnet::allowed('dff',$env{'request.course.id'})) || + (&Apache::lonnet::allowed('dff',$env{'request.course.id'}.'/'. + $env{'request.course.sec'}))) { + $can_dff = 1; + } } $r->print(< @@ -88,18 +93,23 @@ sub menu { END - if ($can_srm || !$can_dcm) { - $r->print(''); - } if ($can_srm) { $r->print(< $lt{'bmc'}$help{'Course_Broadcast_Message'} $lt{'dmu'} - +END + } + if ($can_dcm || $can_dff) { + $r->print(''); + } + if ($can_dff) { + $r->print(< $lt{'unr'}$help{'Course_Face_To_Face_Records,Course_Critical_Message'} END @@ -110,7 +120,7 @@ END '.$lt{'cbs'}.' '); } - if ($can_srm || $can_dcm) { + if ($can_dff || $can_dcm) { $r->print(''); } $r->print('');