loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.29, 2004/07/03 20:45:23	version 1.30, 2004/08/17 15:38:58
Line 157 sub normalcell {	Line 157 sub normalcell {
substr($msg,0,20).'...</a><br />';	substr($msg,0,20).'...</a><br />';
}	}
}	}
return '<td'.	return '<td valign="top"'.
((($day eq $todayhash{'day'}) &&	((($day eq $todayhash{'day'}) &&
($month eq $todayhash{'month'}) &&	($month eq $todayhash{'month'}) &&
($year eq $todayhash{'year'}))?' bgcolor="#FFFF00"':'').	($year eq $todayhash{'year'}))?' bgcolor="#FFFF00"':'').
'>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br>'.$output).'</td>';	'>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br />'.$output).'</td>';
}	}

sub plaincell {	sub plaincell {
Line 313 sub handler {	Line 313 sub handler {
&Apache::loncommon::maketime( 'day' => 1, 'month'=> $month,	&Apache::loncommon::maketime( 'day' => 1, 'month'=> $month,
'year' => $year, 'hours' => 0,	'year' => $year, 'hours' => 0,
'minutes' => 0, 'seconds' => 0,	'minutes' => 0, 'seconds' => 0,
'dlsav' => $todayhash{'dlsav'} ));	'dlsav' => -1 ));
my $weekday=$firstday{'weekday'};	my $weekday=$firstday{'weekday'};
# ------------------------------------------------------------ Print the screen	# ------------------------------------------------------------ Print the screen