version 1.12, 2003/05/23 16:14:33
|
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 />'; |
} |
} |
Line 263 ENDDOCUMENT
|
Line 268 ENDDOCUMENT
|
my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year); |
my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year); |
if ($pm<1) { ($pm,$py)=(12,$year-1); } |
if ($pm<1) { ($pm,$py)=(12,$year-1); } |
if ($fm>12){ ($fm,$fy)=(1,$year+1); } |
if ($fm>12){ ($fm,$fy)=(1,$year+1); } |
|
|
$r->print('<h1>'.('','January','February','March','April','May', |
$r->print('<h1>'.('','January','February','March','April','May', |
'June','July','August','September','October', |
'June','July','August','September','October', |
'November','December')[$month].' '.$year.'</h1>'. |
'November','December')[$month].' '.$year.'</h1>'); |
|
# Reached the end of times, give up |
|
if (($year<1970) || ($year>2037)) { |
|
$r->print('<h3>No calendar available for this date.</h3>'. |
|
'<a href="/adm/announcements?month='.$todayhash{'month'}. |
|
'&year='.$todayhash{'year'}.'">Current Month</a></body></html>'); |
|
return OK; |
|
} |
|
$r->print( |
'<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '. |
'<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '. |
'<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a>'. |
'<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a>'. |
' <a href="/adm/announcements?month='.$todayhash{'month'}. |
' <a href="/adm/announcements?month='.$todayhash{'month'}. |