version 1.50, 2006/04/22 16:35:31
|
version 1.51, 2006/04/23 07:16:07
|
Line 160 sub emptycell {
|
Line 160 sub emptycell {
|
|
|
sub normalcell { |
sub normalcell { |
my ($day,$month,$year,$text)=@_; |
my ($day,$month,$year,$text)=@_; |
my $output=''; |
my $output; |
my @items=&order($text); |
my @items=&order($text); |
foreach my $item (@items) { |
foreach my $item (@items) { |
if ($item) { |
if ($item) { |
Line 190 sub normalcell {
|
Line 190 sub normalcell {
|
$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)?'...':''); |
my $short_msg = substr($msg,0,20).((length($msg) > 20)?'...':''); |
|
if (defined($output)) { $output.='<br />'; } |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
$short_msg.'</a><br />'; |
$short_msg.'</a>'; |
} |
} |
} |
} |
return '<td class="LC_calendar_day'. |
return '<td class="LC_calendar_day'. |
Line 203 sub normalcell {
|
Line 204 sub normalcell {
|
|
|
sub plaincell { |
sub plaincell { |
my ($text)=@_; |
my ($text)=@_; |
my $output=''; |
my $output; |
my @items=&order($text); |
my @items=&order($text); |
foreach my $item (@items) { |
foreach my $item (@items) { |
if ($item) { |
if ($item) { |
Line 218 sub plaincell {
|
Line 219 sub plaincell {
|
$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,80).((length($msg) > 80)?'...':''); |
|
if (defined($output)) { $output.='<br />'; } |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
substr($msg,0,80).'...</a><br />'; |
$short_msg.'</a>'; |
} |
} |
} |
} |
return $output; |
return $output; |