--- loncom/interface/lonannounce.pm 2004/07/03 20:45:23 1.29 +++ 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.29 2004/07/03 20:45:23 albertel Exp $ +# $Id: lonannounce.pm,v 1.30 2004/08/17 15:38:58 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -157,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 { @@ -313,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