--- loncom/interface/lonannounce.pm 2004/06/12 01:04:10 1.28 +++ loncom/interface/lonannounce.pm 2004/08/17 15:38:58 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network # Announce # -# $Id: lonannounce.pm,v 1.28 2004/06/12 01:04:10 www Exp $ +# $Id: lonannounce.pm,v 1.30 2004/08/17 15:38:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -47,9 +47,7 @@ sub editfield { my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', 'enddate', $end); - my $help=&Apache::loncommon::help_open_topic('Calendar_Add_Announcement'). - &Apache::loncommon::help_open_faq(274). - &Apache::loncommon::help_open_bug('Communication Tools'); + my $help=&Apache::loncommon::help_open_menu('','Calendar Add Announcement','Calendar_Add_Announcement','',274,'Communication Tools'); $r->print(< @@ -159,11 +157,11 @@ sub normalcell { substr($msg,0,20).'...
'; } } - return ''.&tfont(''.&picklink($day,$day,$month,$year).'
'.$output).''; + '>'.&tfont(''.&picklink($day,$day,$month,$year).'
'.$output).''; } sub plaincell { @@ -315,7 +313,7 @@ sub handler { &Apache::loncommon::maketime( 'day' => 1, 'month'=> $month, 'year' => $year, 'hours' => 0, 'minutes' => 0, 'seconds' => 0, - 'dlsav' => $todayhash{'dlsav'} )); + 'dlsav' => -1 )); my $weekday=$firstday{'weekday'}; # ------------------------------------------------------------ Print the screen