[BACK]Return to lonannounce.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonannounce.pm between versions 1.40 and 1.41

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) {
Removed from v.1.40  
changed lines
  Added in v.1.41

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>