loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2003/06/18 15:11:20	version 1.15, 2003/06/18 20:06:29
Line 32 use strict;	Line 32 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonhtmlcommon();	use Apache::lonhtmlcommon();
	use HTML::Entities();

my %todayhash;	my %todayhash;

Line 88 sub normalcell {	Line 89 sub normalcell {
$end.'">';	$end.'">';
}	}
}	}
	$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
	$fullmsg=~s/&/\\&/g;
$output.='<a href="javascript:alert('."'$fullmsg'".')">'.	$output.='<a href="javascript:alert('."'$fullmsg'".')">'.
substr($msg,0,20).'...</a><br />';	substr($msg,0,20).'...</a><br />';
}	}
Line 108 sub plaincell {	Line 111 sub plaincell {
my $msg=join('@',@msg);	my $msg=join('@',@msg);
my $fullmsg=$ENV{'course.'.$courseid.'.description'}.	my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
', '.localtime($start).' - '.localtime($end).': '.$msg;	', '.localtime($start).' - '.localtime($end).': '.$msg;
	$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
	$fullmsg=~s/&/\\&/g;
$output.='<a href="javascript:alert('."'$fullmsg'".')">'.	$output.='<a href="javascript:alert('."'$fullmsg'".')">'.
substr($msg,0,40).'...</a><br />';	substr($msg,0,40).'...</a><br />';
}	}