version 1.40, 2006/01/12 22:58:47
|
version 1.41, 2006/01/12 23:00:08
|
Line 146 sub normalcell {
|
Line 146 sub normalcell {
|
foreach my $item (@items) { |
foreach my $item (@items) { |
if ($item) { |
if ($item) { |
my $internalflag=0; |
my $internalflag=0; |
my ($courseid,$start,$end,@msg)=split(/\@/,$item); |
my ($courseid,$start,$end,$msg)=split(/\@/,$item,4); |
my $msg=join('@',@msg); |
|
if ($msg=~/INTERNAL\:/) { |
if ($msg=~/INTERNAL\:/) { |
$msg=~s/INTERNAL\://gs; |
$msg=~s/INTERNAL\://gs; |
$internalflag=1; |
$internalflag=1; |
Line 188 sub plaincell {
|
Line 187 sub plaincell {
|
my @items=&order($text); |
my @items=&order($text); |
foreach my $item (@items) { |
foreach my $item (@items) { |
if ($item) { |
if ($item) { |
my ($courseid,$start,$end,@msg)=split(/\@/,$item); |
my ($courseid,$start,$end,$msg)=split(/\@/,$item,4); |
my $msg=join('@',@msg); |
|
my $fullmsg=&mt('Calendar Announcement for ').$env{'course.'.$courseid.'.description'}. |
my $fullmsg=&mt('Calendar Announcement for ').$env{'course.'.$courseid.'.description'}. |
'\n'.&Apache::lonlocal::locallocaltime($start); |
'\n'.&Apache::lonlocal::locallocaltime($start); |
if ($start!=$end) { |
if ($start!=$end) { |
Line 213 sub listcell {
|
Line 211 sub listcell {
|
my @items=&order($text); |
my @items=&order($text); |
foreach my $item (@items) { |
foreach my $item (@items) { |
if ($item) { |
if ($item) { |
my ($courseid,$start,$end,@msg)=split(/\@/,$item); |
my ($courseid,$start,$end,$msg)=split(/\@/,$item,4); |
my $msg=join('@',@msg); |
|
$msg=~s/INTERNAL\://gs; |
$msg=~s/INTERNAL\://gs; |
my $fullmsg=&Apache::lonlocal::locallocaltime($start); |
my $fullmsg=&Apache::lonlocal::locallocaltime($start); |
if ($start!=$end) { |
if ($start!=$end) { |