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

Diff for /loncom/interface/lonannounce.pm between versions 1.25 and 1.26

version 1.25, 2004/01/15 01:43:43 version 1.26, 2004/02/17 01:36:14
Line 72  sub readcalendar { Line 72  sub readcalendar {
    $returnhash{$courseid.'@'.$_}=$thiscal{$_};     $returnhash{$courseid.'@'.$_}=$thiscal{$_};
         }          }
     }      }
       if ($courseid eq $ENV{'request.course.id'}) {
    my %resourcedata=
       &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
    foreach my $thiskey (sort keys %resourcedata) {
       if ($resourcedata{$thiskey.'.type'}=~/^date/) {
    my ($course,$middle,$part,$name)=
       ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
    my $section=&mt('All Students');
    if ($middle=~/^\[(.*)\]\./) {
       $section=&mt('Group/Section').': '.$1;
       $middle=~s/^\[(.*)\]\.//;
    }
    $middle=~s/\.$//;
    my $realm=&mt('All Resources');
    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
       $realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1);
    } elsif ($middle) {
       $realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);
    }
    my $datetype='';
    if ($name eq 'duedate') { $datetype=&mt('Due'); }
    if ($name eq 'opendate') { $datetype=&mt('Opening'); }
    if ($name eq 'answerdate') { $datetype=&mt('Answer Available'); }
    $returnhash{$courseid.'@'.$resourcedata{$thiskey}.'_'.
       $resourcedata{$thiskey}}=
       'INTERNAL:'.$datetype.': '.$realm.' ('.$section.')';
       }
    }
       }
     return %returnhash;      return %returnhash;
 }  }
   
Line 84  sub normalcell { Line 113  sub normalcell {
     my $output='';      my $output='';
     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {      foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {
         if ($_) {          if ($_) {
       my $internalflag=0;
     my ($courseid,$start,$end,@msg)=split(/\@/,$_);      my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);              my $msg=join('@',@msg);
       if ($msg=~/INTERNAL\:/) {
    $msg=~s/INTERNAL\://gs;
    $internalflag=1;
       }
             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.              my $fullmsg=$ENV{'course.'.$courseid.'.description'}.
  ', '.&Apache::lonlocal::locallocaltime($start).' - '.&Apache::lonlocal::locallocaltime($end).': '.$msg;   ', '.&Apache::lonlocal::locallocaltime($start);
       if ($start!=$end) {
    $fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
       }
       $fullmsg.=': '.$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})
        && ($ENV{'form.pickdate'} ne 'yes')) {         && ($ENV{'form.pickdate'} ne 'yes')
          && (!$internalflag)) {
                $output.='<input type="checkbox" name="remove_'.$start.'_'.                 $output.='<input type="checkbox" name="remove_'.$start.'_'.
    $end.'">';     $end.'">';
                $showedcheck{$start.'_'.$end}=1;                 $showedcheck{$start.'_'.$end}=1;
Line 118  sub plaincell { Line 157  sub plaincell {
     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=$ENV{'course.'.$courseid.'.description'}.
  ', '.localtime($start).' - '.localtime($end).': '.$msg;   ', '.&Apache::lonlocal::locallocaltime($start);
       if ($start!=$end) {
    $fullmsg.=' - '.&Apache::lonlocal::locallocaltime($end);
       }
       $fullmsg.=': '.$msg;
             $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 135  sub listcell { Line 178  sub listcell {
         if ($_) {          if ($_) {
     my ($courseid,$start,$end,@msg)=split(/\@/,$_);      my ($courseid,$start,$end,@msg)=split(/\@/,$_);
             my $msg=join('@',@msg);              my $msg=join('@',@msg);
             my $fullmsg=localtime($start).' to '.localtime($end).':<br /><b>'.              my $fullmsg=&Apache::lonlocal::locallocaltime($start);
       if ($start!=$end) {
    $fullmsg.=&mt(' to ').
       &Apache::lonlocal::locallocaltime($end);
       }
               $fullmsg.=':<br /><b>'.
                $msg.'</b>';                 $msg.'</b>';
             $output.='<li>'.$fullmsg.'</li>';              $output.='<li>'.$fullmsg.'</li>';
        }         }
Removed from v.1.25  
changed lines
  Added in v.1.26

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