loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2004/02/17 01:36:14	version 1.27, 2004/02/17 01:46:34
Line 161 sub plaincell {	Line 161 sub plaincell {
if ($start!=$end) {	if ($start!=$end) {
$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);	$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
}	}
	$msg=~s/INTERNAL\://gs;
$fullmsg.=': '.$msg;	$fullmsg.=': '.$msg;
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');	$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
$fullmsg=~s/&/\\&/g;	$fullmsg=~s/&/\\&/g;
Line 178 sub listcell {	Line 179 sub listcell {
if ($_) {	if ($_) {
my ($courseid,$start,$end,@msg)=split(/\@/,$_);	my ($courseid,$start,$end,@msg)=split(/\@/,$_);
my $msg=join('@',@msg);	my $msg=join('@',@msg);
	$msg=~s/INTERNAL\://gs;
my $fullmsg=&Apache::lonlocal::locallocaltime($start);	my $fullmsg=&Apache::lonlocal::locallocaltime($start);
if ($start!=$end) {	if ($start!=$end) {
$fullmsg.=&mt(' to ').	$fullmsg.=&mt(' to ').
Line 202 sub showday {	Line 204 sub showday {
my %th=&Apache::loncommon::timehash($tk);	my %th=&Apache::loncommon::timehash($tk);
my ($nextday,$nextmonth)=&nextday(%th);	my ($nextday,$nextmonth)=&nextday(%th);
my $outp='';	my $outp='';
my $oneday=24*3600;	if ($mode) {
	my $oneday=24*3600;
	$tk-=$oneday;
	$nextday+=$oneday;
	}
foreach (keys %allcal) {	foreach (keys %allcal) {
my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);	my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);
if (($startdate<$nextday) && ($enddate>$tk)) {	if (($startdate<$nextday) && ($enddate>$tk)) {