version 1.49, 2006/04/22 16:32:55
|
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 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)?'...':''); |
|
if (defined($output)) { $output.='<br />'; } |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
substr($msg,0,20).'...</a><br />'; |
$short_msg.'</a>'; |
} |
} |
} |
} |
return '<td class="LC_calendar_day'. |
return '<td class="LC_calendar_day'. |
Line 202 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 217 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; |