version 1.28, 2004/06/12 01:04:10
|
version 1.32, 2004/09/02 13:15:07
|
Line 47 sub editfield {
|
Line 47 sub editfield {
|
my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', |
my $enddateform = &Apache::lonhtmlcommon::date_setter('anno', |
'enddate', |
'enddate', |
$end); |
$end); |
my $help=&Apache::loncommon::help_open_topic('Calendar_Add_Announcement'). |
my $help=&Apache::loncommon::help_open_menu('','Calendar Add Announcement','Calendar_Add_Announcement','',274,'Communication Tools'); |
&Apache::loncommon::help_open_faq(274). |
|
&Apache::loncommon::help_open_bug('Communication Tools'); |
|
$r->print(<<ENDFORM); |
$r->print(<<ENDFORM); |
$help |
$help |
<form name="anno" method="post"> |
<form name="anno" method="post"> |
Line 81 sub readcalendar {
|
Line 79 sub readcalendar {
|
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); |
($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/); |
my $section=&mt('All Students'); |
my $section=&mt('All Students'); |
if ($middle=~/^\[(.*)\]\./) { |
if ($middle=~/^\[(.*)\]\./) { |
|
my $sec=$1; |
|
# if we have a section don't show ones that aren't ours |
|
if ($ENV{'request.course.sec'} && |
|
$ENV{'request.course.sec'} ne $sec) { next; } |
|
# if a student without a section don't show any section ones |
|
if (!$ENV{'request.role.adv'} && |
|
!$ENV{'request.course.sec'}) { next; } |
$section=&mt('Group/Section').': '.$1; |
$section=&mt('Group/Section').': '.$1; |
$middle=~s/^\[(.*)\]\.//; |
$middle=~s/^\[(.*)\]\.//; |
} |
} |
Line 137 sub normalcell {
|
Line 142 sub normalcell {
|
$msg=~s/INTERNAL\://gs; |
$msg=~s/INTERNAL\://gs; |
$internalflag=1; |
$internalflag=1; |
} |
} |
my $fullmsg=$ENV{'course.'.$courseid.'.description'}. |
my $fullmsg=&mt('Calendar Announcement for ').$ENV{'course.'.$courseid.'.description'}. |
', '.&Apache::lonlocal::locallocaltime($start); |
'\n'.&Apache::lonlocal::locallocaltime($start); |
if ($start!=$end) { |
if ($start!=$end) { |
$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end); |
$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end); |
} |
} |
$fullmsg.=': '.$msg; |
$fullmsg.=':\n'.$msg; |
if ($courseid eq $ENV{'request.course.id'}) { |
if ($courseid eq $ENV{'request.course.id'}) { |
if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) |
if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) |
&& (!$showedcheck{$start.'_'.$end}) |
&& (!$showedcheck{$start.'_'.$end}) |
Line 153 sub normalcell {
|
Line 158 sub normalcell {
|
$showedcheck{$start.'_'.$end}=1; |
$showedcheck{$start.'_'.$end}=1; |
} |
} |
} |
} |
|
$fullmsg=~s/[\n\r]/\\n/gs; |
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\''); |
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\''); |
$fullmsg=~s/&/\\&/g; |
$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 />'; |
} |
} |
} |
} |
return '<td'. |
return '<td valign="top"'. |
((($day eq $todayhash{'day'}) && |
((($day eq $todayhash{'day'}) && |
($month eq $todayhash{'month'}) && |
($month eq $todayhash{'month'}) && |
($year eq $todayhash{'year'}))?' bgcolor="#FFFF00"':''). |
($year eq $todayhash{'year'}))?' bgcolor="#FFFF00"':''). |
'>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br>'.$output).'</td>'; |
'>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br />'.$output).'</td>'; |
} |
} |
|
|
sub plaincell { |
sub plaincell { |
Line 173 sub plaincell {
|
Line 179 sub plaincell {
|
if ($_) { |
if ($_) { |
my ($courseid,$start,$end,@msg)=split(/\@/,$_); |
my ($courseid,$start,$end,@msg)=split(/\@/,$_); |
my $msg=join('@',@msg); |
my $msg=join('@',@msg); |
my $fullmsg=$ENV{'course.'.$courseid.'.description'}. |
my $fullmsg=&mt('Calendar Announcement for ').$ENV{'course.'.$courseid.'.description'}. |
', '.&Apache::lonlocal::locallocaltime($start); |
'\n'.&Apache::lonlocal::locallocaltime($start); |
if ($start!=$end) { |
if ($start!=$end) { |
$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end); |
$fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end); |
} |
} |
$msg=~s/INTERNAL\://gs; |
$msg=~s/INTERNAL\://gs; |
$fullmsg.=': '.$msg; |
$fullmsg.=':\n'.$msg; |
|
$fullmsg=~s/[\n\r]/\\n/gs; |
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\''); |
$fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\''); |
$fullmsg=~s/&/\\&/g; |
$fullmsg=~s/&/\\&/g; |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
$output.='<a href="javascript:alert('."'$fullmsg'".')">'. |
Line 315 sub handler {
|
Line 322 sub handler {
|
&Apache::loncommon::maketime( 'day' => 1, 'month'=> $month, |
&Apache::loncommon::maketime( 'day' => 1, 'month'=> $month, |
'year' => $year, 'hours' => 0, |
'year' => $year, 'hours' => 0, |
'minutes' => 0, 'seconds' => 0, |
'minutes' => 0, 'seconds' => 0, |
'dlsav' => $todayhash{'dlsav'} )); |
'dlsav' => -1 )); |
my $weekday=$firstday{'weekday'}; |
my $weekday=$firstday{'weekday'}; |
# ------------------------------------------------------------ Print the screen |
# ------------------------------------------------------------ Print the screen |
|
|