loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49, 2006/04/22 16:32:55	version 1.50, 2006/04/22 16:35:31
Line 189 sub normalcell {	Line 189 sub normalcell {
$fullmsg=~s/[\n\r]/\\n/gs;	$fullmsg=~s/[\n\r]/\\n/gs;
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');	$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
$fullmsg=~s/&/\\&/g;	$fullmsg=~s/&/\\&/g;
	my $short_msg = substr($msg,0,20).((length($msg) > 20)?'...':'');
$output.='<a href="javascript:alert('."'$fullmsg'".')">'.	$output.='<a href="javascript:alert('."'$fullmsg'".')">'.
substr($msg,0,20).'...</a><br />';	$short_msg.'</a><br />';
}	}
}	}
return '<td class="LC_calendar_day'.	return '<td class="LC_calendar_day'.