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

Diff for /loncom/interface/lonannounce.pm between versions 1.30 and 1.78

version 1.30, 2004/08/17 15:38:58 version 1.78, 2009/03/25 15:49:47
Line 33  use Apache::Constants qw(:common); Line 33  use Apache::Constants qw(:common);
 use Apache::loncommon;  use Apache::loncommon;
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonlocal;  use Apache::lonlocal;
   use Apache::lonnavmaps();
   use Apache::lonrss();
   use Apache::lonnet;
 use HTML::Entities();  use HTML::Entities();
   use LONCAPA qw(:match);
   use DateTime;
   use DateTime::TimeZone;
   
 my %todayhash;  my %todayhash;
 my %showedcheck;  my %showedcheck;
Line 47  sub editfield { Line 53  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_menu('','Calendar Add Announcement','Calendar_Add_Announcement','',274,'Communication Tools');      #my $help=&Apache::loncommon::help_open_menu('Calendar Add Announcement','Calendar_Add_Announcement',274,'Communication Tools');
       my $help=&Apache::loncommon::help_open_topic('Calendar_Add_Announcement');
       
       my %lt=&Apache::lonlocal::texthash('annon' => 'Course Announcements',
                                          'post' => 'Post Announcement',
          'start' => 'Starting date',
          'end' => 'Ending date',
          'incrss' => 'Include in course RSS newsfeed');
   
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 $help  <h2>$lt{'annon'} $help</h2>
 <form name="anno" method="post">  <form name="anno" method="post">
 <input type="hidden" value=''          name="action"      >  <input type="hidden" value='' name="action" />
 <table><tr><td>Starting date:</td><td>$startdateform</td></tr>  <table><tr><td>$lt{'start'}:</td><td>$startdateform</td></tr>
 <tr><td>Ending date:</td><td>$enddateform</td></tr></table>  <tr><td>$lt{'end'}:</td><td>$enddateform</td></tr></table>
 <textarea name="msg" rows="4" cols="60">$text</textarea>  <textarea name="msg" rows="4" cols="60">$text</textarea>
 <input type="button" onClick="trysubmit()" value="Post Announcement"><hr />  <br />
   <label><input type="checkbox" name="rsspost" /> $lt{'incrss'}</label>
   <br /><input type="button" onClick="trysubmit()" value="$lt{'post'}" /><hr />
 ENDFORM  ENDFORM
 }  }
   
 sub readcalendar {  sub readcalendar {
     my $courseid=shift;      my $courseid=shift;
     my $coursenum=$ENV{'course.'.$courseid.'.num'};      my $coursenum=$env{'course.'.$courseid.'.num'};
     my $coursedom=$ENV{'course.'.$courseid.'.domain'};      my $coursedom=$env{'course.'.$courseid.'.domain'};
       if ($coursenum eq '' || $coursedom eq '') {
           my %courseinfo=&Apache::lonnet::coursedescription($courseid);
           if ($coursenum eq '' && exists($courseinfo{'num'})) {
               $coursenum = $courseinfo{'num'};
           }
           if ($coursedom eq '' && exists($courseinfo{'domain'})) {
               $coursedom = $courseinfo{'domain'};
           }
       }
   
     my %thiscal=&Apache::lonnet::dump('calendar',$coursedom,$coursenum);      my %thiscal=&Apache::lonnet::dump('calendar',$coursedom,$coursenum);
     my %returnhash=();      my %returnhash=();
     foreach (keys %thiscal) {      foreach my $item (keys(%thiscal)) {
         unless (($_=~/^error\:/) || ($thiscal{$_}=~/^error\:/)) {          unless (($item=~/^error\:/) || ($thiscal{$item}=~/^error\:/)) {
    $returnhash{$courseid.'@'.$_}=$thiscal{$_};      my ($start,$end)=split('_',$item);
       $returnhash{join("\0",$courseid,$start,$end)}=$thiscal{$item};
         }          }
     }      }
     if ($courseid eq $ENV{'request.course.id'}) {      my $can_see_hidden = ($env{'request.role.adv'} &&
  my %resourcedata=    ($courseid eq $env{'request.course.id'}));
     &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);      
  foreach my $thiskey (sort keys %resourcedata) {      my $navmap;
     if ($resourcedata{$thiskey.'.type'}=~/^date/) {      if ($courseid eq $env{'request.course.id'}) {
  my ($course,$middle,$part,$name)=   $navmap = Apache::lonnavmaps::navmap->new();
     ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);      }
  my $section=&mt('All Students');  
  if ($middle=~/^\[(.*)\]\./) {      my $resourcedata=
     $section=&mt('Group/Section').': '.$1;   &Apache::lonnet::get_courseresdata($coursenum,$coursedom);
     $middle=~s/^\[(.*)\]\.//;      if (ref($resourcedata) ne 'HASH') {
           return %returnhash;
       } 
       foreach my $thiskey (keys(%$resourcedata)) {
    if ($resourcedata->{$thiskey.'.type'}=~/^date/) {
       my ($course,$middle,$part,$name)=
    ($thiskey=~/^(\Q$courseid\E)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
   
       my %data = ( 'section' => &mt('All Students'));
       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; }
    $data{'section'}=&mt('Group/Section').': '.$1;
    $middle=~s/^\[(.*)\]\.//;
       }
       $middle=~s/\.$//;
       $data{'realm'}=&mt('All Resources');
       if ($middle eq '___(all)') {
    if (!$can_see_hidden && !$navmap) {
       next;
  }   }
  $middle=~s/\.$//;      } elsif ($middle=~/^(.+)\_\_\_\(all\)$/) {
  my $realm=&mt('All Resources');   my $map_url=$1;
  if ($middle=~/^(.+)\_\_\_\(all\)$/) {   if (!$can_see_hidden && !$navmap) {
     $realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1);      next;
  } elsif ($middle) {  
     $realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);  
  }   }
  my $datetype='';   if (!$can_see_hidden) {
  if ($name eq 'duedate') {       my $res = $navmap->getResourceByUrl($map_url);
     $datetype=&mt('Due');       if ($res && $res->randomout()) {
 # see if accidentally answerdate is before duedate   next;
     my $answerkey=$thiskey;  
     $answerkey=~s/duedate$/answerdate/;  
     if ($resourcedata{$thiskey}>$resourcedata{$answerkey}) {  
  $datetype='Due and Answer Available';  
     }      }
  }   }
  if ($name eq 'opendate') { $datetype=&mt('Opening'); }   $data{'realm'}=&mt('Folder/Map');
  if ($name eq 'answerdate') {   $data{'url'} = $map_url;
 # see if accidentally answerdate is before duedate      } elsif ($middle) {
     my $duekey=$thiskey;   if (!$can_see_hidden && !$navmap) {
     $duekey=~s/answerdate$/duedate/;      next;
     if ($resourcedata{$duekey}>$resourcedata{$thiskey}) {   }
 # forget it   if (!$can_see_hidden) {
       my $res = $navmap->getBySymb($middle);
       if ($res && $res->randomout()) {
  next;   next;
     }       }
     $datetype=&mt('Answer Available');    }
    $data{'realm'} = &mt('Resource');
    $data{'symb'} = $middle;
       }
       $data{'datetype'} = $name;
       if ($name eq 'duedate') { 
    $data{'datetype'} = &mt('Due'); 
   # see if accidentally answerdate is before duedate
    my $answerkey=$thiskey;
    $answerkey=~s/duedate$/answerdate/;
    if ($resourcedata->{$thiskey}>$resourcedata->{$answerkey}) {
       $data{'datetype'} = &mt('Due and Answer Available');
  }   }
  $returnhash{$courseid.'@'.$resourcedata{$thiskey}.'_'.  
     $resourcedata{$thiskey}}=  
     'INTERNAL:'.$datetype.': '.$realm.' ('.$section.')';  
     }      }
       if ($name eq 'opendate' 
    || $name eq 'contentopen' ) {
    $data{'datetype'}=&mt('Opening');
       }
       if ($name eq 'contentclose') {
    $data{'datetype'}=&mt('Closing');
       }
       if ($name eq 'answerdate') {
   # see if accidentally answerdate is before duedate
    my $duekey=$thiskey;
    $duekey=~s/answerdate$/duedate/;
    if ($resourcedata->{$duekey}>$resourcedata->{$thiskey}) {
   # forget it
       next;
    } 
    $data{'datetype'}=&mt('Answer Available'); 
       }
       $returnhash{join("\0",$courseid,
        $resourcedata->{$thiskey},
        $resourcedata->{$thiskey})}=\%data;
  }   }
     }      }
     return %returnhash;      return %returnhash;
 }  }
   
 sub emptycell {  sub emptycell {
     return '<td bgcolor="#AAAAAA">&nbsp;</td>';      return '<td class="LC_calendar_day_empty">&nbsp;</td>';
 }  }
   
 sub normalcell {  sub normalcell {
     my ($day,$month,$year,$text)=@_;      my ($day,$month,$year,$items_ref)=@_;
     my $output='';      my $output;
     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {      my @items=&order($items_ref);
         if ($_) {      foreach my $item (@items) {
     my $internalflag=0;          if ($item) {
     my ($courseid,$start,$end,@msg)=split(/\@/,$_);      my ($courseid,$start,$end,$msg)=@$item;
             my $msg=join('@',@msg);      my $internalflag= (ref($msg)) ? 1 : 0;
     if ($msg=~/INTERNAL\:/) {      $msg = &display_msg($msg);
  $msg=~s/INTERNAL\://gs;              my $fullmsg=&mt('Calendar Announcement for ').$env{'course.'.$courseid.'.description'}.
  $internalflag=1;   '\n'.&Apache::lonlocal::locallocaltime($start);
     }  
             my $fullmsg=$ENV{'course.'.$courseid.'.description'}.  
  ', '.&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'}) {      $fullmsg=~s/[\n\r]/\\n/gs;
               if ((&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))              $fullmsg=&HTML::Entities::encode($fullmsg,'<>&"\'');
               $fullmsg=~s/&/\\&/g;
       my $short_msg = substr($msg,0,20).((length($msg) > 20)?'...':'');
       if (defined($output)) { $output.='<br />'; }
               if ($courseid eq $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)) {         && (!$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;
       }        }
     }      }
             $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 />';         $short_msg.'</a>';
        }         }
     }      }
     return '<td valign="top"'.      return '<td class="LC_calendar_day'.
  ((($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'}))?'_current':'').
            '>'.&tfont('<b>'.&picklink($day,$day,$month,$year).'</b><br />'.$output).'</td>';             '" ><b>'.&picklink($day,$day,$month,$year).'</b><br />'.$output.'</td>';
 }  }
   
 sub plaincell {  sub plaincell {
     my ($text)=@_;      my ($items_ref)=@_;
     my $output='';      my $output;
     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {      my @items=&order($items_ref);
         if ($_) {      foreach my $item (@items) {
     my ($courseid,$start,$end,@msg)=split(/\@/,$_);          if (ref($item)) {
             my $msg=join('@',@msg);      my ($courseid,$start,$end,$msg)=@$item;
             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 = &display_msg($msg);
     $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;
       my $short_msg = substr($msg,0,80).((length($msg) > 80)?'...':'');
       if (defined($output)) { $output.='<br />'; }
             $output.='<a href="javascript:alert('."'$fullmsg'".')">'.              $output.='<a href="javascript:alert('."'$fullmsg'".')">'.
        substr($msg,0,40).'...</a><br />';         $short_msg.'</a>';
        }         }
     }      }
     return $output;      return $output;
 }  }
   
 sub listcell {  sub listcell {
     my ($text)=@_;      my ($items_ref)=@_;
     my $output='';      my $output='';
     foreach (split(/\_\_\_\&\&\&\_\_\_/,$text)) {      my @items=&order($items_ref);
         if ($_) {      foreach my $item (@items) {
     my ($courseid,$start,$end,@msg)=split(/\@/,$_);          if (ref($item)) {
             my $msg=join('@',@msg);      my ($courseid,$start,$end,$msg)=@$item;
     $msg=~s/INTERNAL\://gs;      my $fullmsg=&Apache::lonlocal::locallocaltime($start);
             my $fullmsg=&Apache::lonlocal::locallocaltime($start);  
     if ($start!=$end) {      if ($start!=$end) {
  $fullmsg.=&mt(' to ').   $fullmsg.=&mt(' to ').
     &Apache::lonlocal::locallocaltime($end);      &Apache::lonlocal::locallocaltime($end);
     }      }
             $fullmsg.=':<br /><b>'.              $fullmsg.=':<br /><b>'.&display_msg($msg).'</b>';
                $msg.'</b>';  
             $output.='<li>'.$fullmsg.'</li>';              $output.='<li>'.$fullmsg.'</li>';
        }         }
     }      }
     return $output;      return $output;
 }  }
   
   sub order {
       my ($items)=@_;
       return sort {
    my ($astart,$aend)=$a->[1,2];
    my ($bstart,$bend)=$b->[1,2];
    if ($astart != $bstart) {
       return $astart <=> $bstart;
    }
    return $aend <=> $bend;
       } @$items;
   }
   
 sub nextday {  sub nextday {
     my %th=@_;      my ($tk,%th)=@_;
     $th{'day'}++;      my ($incmonth,$incyear);
       if ($th{'day'} > 27) {
           if ($th{'month'} == 2) {
               if ($th{'day'} == 29) { 
                   $incmonth = 1;
               } elsif ($th{'day'} == 28) {
                   if (!&is_leap_year($tk)) {
                      $incmonth = 1;
                   }
               }
           } elsif (($th{'month'} == 4) || ($th{'month'} == 6) || 
                    ($th{'month'} == 9) || ($th{'month'} == 11)) {
               if ($th{'day'} == 30) {
                   $incmonth = 1;
               }
           } elsif ($th{'day'} == 31) {
               if ($th{'month'} == 12) {
                   $incyear = 1;
               } else {
                   $incmonth = 1;
               }
           }
           if ($incyear) {
               $th{'day'} = 1;
               $th{'month'} = 1;
               $th{'year'}++;
           } elsif ($incmonth) {
               $th{'day'} = 1;
               $th{'month'}++;
           } else {
               $th{'day'}++;
           }
       } else {
           $th{'day'}++;
       }
     return (&Apache::loncommon::maketime(%th),$th{'month'});      return (&Apache::loncommon::maketime(%th),$th{'month'});
 }  }
   
   sub is_leap_year {
       my ($thistime) = @_;
       my ($is_leap,$timezone,$dt);
       $timezone = &Apache::lonlocal::gettimezone();
       eval {
           $dt = DateTime->from_epoch(epoch => $thistime)
                         ->set_time_zone($timezone);
       };
       if (!$@) {
           $is_leap = $dt->is_leap_year;
       }
       return $is_leap;
   }
   
   sub display_msg {
       my ($msg) = @_;
   
       # if it's not a ref, it's an instructor provided message
       return $msg if (!ref($msg));
   
       my $output = $msg->{'datetype'}. ': '.$msg->{'realm'};
       if (exists($msg->{'url'})) {
    my $displayurl=&Apache::lonnet::gettitle($msg->{'url'});
    if ($msg->{'url'}!~/\Q$displayurl\E$/) {
       $output .= ' - '.$displayurl;
    }
       }
       if (exists($msg->{'symb'})) {
    my $displaysymb=&Apache::lonnet::gettitle($msg->{'symb'});
    if ($msg->{'symb'}!~/\Q$displaysymb\E$/) {
       $output .= ' - '.$displaysymb;
    }
       }
       $output .= ' ('.$msg->{'section'}.') ';
       return $output;
   }
   
 sub showday {  sub showday {
     my ($tk,$mode,%allcal)=@_;      my ($tk,$mode,%allcal)=@_;
     my %th=&Apache::loncommon::timehash($tk);      my %th=&Apache::loncommon::timehash($tk);
     my ($nextday,$nextmonth)=&nextday(%th);      my ($nextday,$nextmonth)=&nextday($tk,%th);
     my $outp='';      my @outp;
     if ($mode) {      if ($mode) {
  my $oneday=24*3600;   my $oneday=24*3600;
  $tk-=$oneday;   $tk-=$oneday;
  $nextday+=$oneday;   $nextday+=$oneday;
     }      }
     foreach (keys %allcal) {      foreach my $item (keys(%allcal)) {
  my ($course,$startdate,$enddate)=($_=~/^(\w+)\@(\d+)\_(\d+)$/);   my ($courseid,$startdate,$enddate)= split("\0",$item);
         if (($startdate<$nextday) && ($enddate>$tk))  {   if (($startdate<$nextday) && ($enddate>=$tk))  {
     $outp.='___&&&___'.$course.'@'.$startdate.'@'.$enddate.'@'.      push(@outp,[$courseid,$startdate,$enddate,$allcal{$item}]);
             $allcal{$_};  
         }          }
     }      }
     unless ($mode) {      unless ($mode) {
        return ($nextday,$nextmonth,&normalcell(         return ($nextday,$nextmonth,&normalcell(
                $th{'day'},$th{'month'},$th{'year'},$outp));                 $th{'day'},$th{'month'},$th{'year'},\@outp));
    } elsif ($outp) {     } elsif (@outp) {
        if ($mode==1) {         if ($mode==1) {
           return '<br />'.&plaincell($outp);            return '<br />'.&plaincell(\@outp);
       } else {        } else {
           return '<ul>'.&listcell($outp).'</ul>';            return '<ul>'.&listcell(\@outp).'</ul>';
       }        }
    } else {     } else {
        return '';         return '';
    }     }
 }  }
   
 sub tfont {  
     my $text=shift;  
     if ($ENV{'form.pickdate'} eq 'yes') {  
  return '<font size="1">'.$text.'</font>';  
     } else {  
  return $text;  
     }  
 }  
   
 sub picklink {  sub picklink {
     my ($text,$day,$month,$year)=@_;      my ($text,$day,$month,$year)=@_;
     if ($ENV{'form.pickdate'} eq 'yes') {      if ($env{'form.pickdate'} eq 'yes') {
  return '<a href="javascript:dialin('.$day.','.$month.','.$year.')">'.   return '<a href="javascript:dialin('.$day.','.$month.','.$year.')">'.
     $text.'</a>';      $text.'</a>';
     } else {      } else {
Line 266  sub picklink { Line 415  sub picklink {
   
 sub dialscript {  sub dialscript {
     return (<<ENDDIA);      return (<<ENDDIA);
 <script language="Javascript">  <script type="text/javascript" language="JavaScript">
 function dialin(day,month,year) {  function dialin(day,month,year) {
  opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_year.value=year;   opener.document.$env{'form.formname'}.$env{'form.element'}\_year.value=year;
     var slct=opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_month;      var slct=opener.document.$env{'form.formname'}.$env{'form.element'}\_month;
     var i;      var i;
     for (i=0;i<slct.length;i++) {      for (i=0;i<slct.length;i++) {
         if (slct.options[i].value==month) { slct.selectedIndex=i; }          if (slct.options[i].value==month) { slct.selectedIndex=i; }
     }      }
     opener.document.$ENV{'form.formname'}.$ENV{'form.element'}\_day.value=day;      opener.document.$env{'form.formname'}.$env{'form.element'}\_day.value=day;
     opener.$ENV{'form.element'}\_checkday();      opener.$env{'form.element'}\_checkday();
     self.close();      self.close();
 }  }
 </script>  </script>
 ENDDIA  ENDDIA
 }  }
   # ----------------------------------------------------- Summarize all calendars
   sub get_all_calendars {
       my %allcal=();
       my %courses = &Apache::loncommon::findallcourses();
       foreach my $course (sort(keys(%courses))) {
    %allcal=(%allcal,&readcalendar($course));
       }
       return %allcal;
   }
   
   sub output_ics_file {
       my ($r)=@_;
   # RFC 2445 wants CRLF
       my $crlf="\015\012";
   # Header
       $r->print("BEGIN:VCALENDAR$crlf");
       $r->print("VERSION:2.0$crlf");
       $r->print("PRODID:-//LONCAPA//LONCAPA Calendar Output//EN$crlf");
       my %allcal=&get_all_calendars();
       foreach my $event (keys(%allcal)) {
    my ($courseid,$startdate,$enddate)= split('\0',$event);
    my $uid=$event;
    $uid=~s/[\W\_]/-/gs;
    $uid.='@loncapa';
    my $summary=&display_msg($allcal{$event});
    $summary=~s/\s+/ /gs;
           $summary=$env{'course.'.$courseid.'.description'}.': '.$summary;
    $r->print("BEGIN:VEVENT$crlf");
    $r->print("DTSTART:".&Apache::loncommon::utc_string($startdate).$crlf);
    $r->print("DTEND:".&Apache::loncommon::utc_string($enddate).$crlf);
    $r->print("SUMMARY:$summary$crlf");
    $r->print("UID:$uid$crlf");
    $r->print("END:VEVENT$crlf");
       }
   # Footer
       $r->print("END:VCALENDAR$crlf");
   }
   
   sub show_timezone {
       my $tzone = &Apache::lonlocal::gettimezone();
       my $dt = DateTime->now();
       my $tz = DateTime::TimeZone->new( name => $tzone );
       return &mt('([_1] time zone)',$tz->short_name_for_datetime($dt));
   }
   
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
       if ($r->uri=~/\.(ics|ical)$/) {
           &Apache::loncommon::content_type($r,'text/calendar');
    &output_ics_file($r);
    return OK;
       }
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
     return OK if $r->header_only;      return OK if $r->header_only;
Line 292  sub handler { Line 490  sub handler {
     my $today=time;      my $today=time;
     %todayhash=&Apache::loncommon::timehash($today);      %todayhash=&Apache::loncommon::timehash($today);
 # ----------------------------------------------------------------- Check marks  # ----------------------------------------------------------------- Check marks
     %showedcheck=();      undef(%showedcheck);
     undef %showedcheck;  
 # ---------------------------------------------------------- Get month and year  # ---------------------------------------------------------- Get month and year
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                              ['month','year','pickdate','formname','element']);                               ['month','year','pickdate','formname','element']);
 # --------------------------------------------------- Decide what month to show  # --------------------------------------------------- Decide what month to show
     my $year=$todayhash{'year'};      my $year=$todayhash{'year'};
     if ($ENV{'form.year'}) { $year=$ENV{'form.year'}; }      if ($env{'form.year'}) { $year=$env{'form.year'}; }
     my $month=$todayhash{'month'};      my $month=$todayhash{'month'};
     if ($ENV{'form.month'}) { $month=$ENV{'form.month'}; }      if ($env{'form.month'}) { $month=$env{'form.month'}; }
   
 # ---------------------------------------------- See if we are in pickdate mode  # ---------------------------------------------- See if we are in pickdate mode
     my $pickdatemode=($ENV{'form.pickdate'} eq 'yes');      my $pickdatemode=($env{'form.pickdate'} eq 'yes');
     my $pickinfo='&pickdate=yes&formname='.$ENV{'form.formname'}.      my $pickinfo='&pickdate=yes&formname='.$env{'form.formname'}.
  '&element='.$ENV{'form.element'};   '&element='.$env{'form.element'};
 # --------------------------------------------- Find out first day of the month  # --------------------------------------------- Find out first day of the month
   
     my %firstday=&Apache::loncommon::timehash(      my $tk = &Apache::loncommon::maketime( 'day' => 1,
        &Apache::loncommon::maketime( 'day' => 1, 'month'=> $month,                                             'month'=> $month,
                                      'year' => $year, 'hours' => 0,                                             'year' => $year, 
      'minutes' => 0, 'seconds' => 0,                                             'hour' => 0,
                                      'dlsav' => -1 ));             'minute' => 0, 
                                              'second' => 0);
       my %firstday = &Apache::loncommon::timehash($tk);
     my $weekday=$firstday{'weekday'};      my $weekday=$firstday{'weekday'};
 # ------------------------------------------------------------ Print the screen  
   
     $r->print(<<ENDDOCUMENT);  # ------------------------------------------------------------ Print the screen
 <html>      my $js = <<ENDDOCUMENT;
 <head>  <script type="text/javascript" language="JavaScript">
 <title>The LearningOnline Network with CAPA</title>  
 <script>  
   
     function trysubmit() {      function trysubmit() {
         document.anno.action.value="new";          document.anno.action.value="new";
Line 333  sub handler { Line 529  sub handler {
  document.anno.submit();   document.anno.submit();
     }      }
 </script>  </script>
 </head>  
 ENDDOCUMENT  ENDDOCUMENT
   
     if ($pickdatemode) {      if ($pickdatemode) {
 # no big header in pickdate mode  # no big header in pickdate mode
  $r->print(&Apache::loncommon::bodytag("Pick a Date",'','',1).   $r->print(&Apache::loncommon::start_page("Pick a Date",$js,
    {'only_body' => 1,}).
   &dialscript().    &dialscript().
   '<font size="1">');    '<font size="1">');
     } else {      } else {
        $r->print(&Apache::loncommon::bodytag("Announcements and Calendar"));          my $brcrum = [{href=>"/adm/announcements",text=>"Announcements and Calendar"}];
           $r->print(&Apache::loncommon::start_page("Communication",$js,{'bread_crumbs' => $brcrum}));
     }      }
 # does this user have privileges to post, etc?  # does this user have privileges to post, etc?
     my $allowed=0;      my $allowed=0;
     if ($ENV{'request.course.id'}) {      if ($env{'request.course.id'}) {
        $allowed=&Apache::lonnet::allowed('srm',$ENV{'request.course.id'});         $allowed=&Apache::lonnet::allowed('srm',$env{'request.course.id'});
     }      }
 # does this user have privileges to post to servers?  # does this user have privileges to post to servers?
     my $serverpost=0;      my $serverpost=0;
     if ($ENV{'request.role.domain'}) {      if ($env{'request.role.domain'}) {
  $serverpost=&Apache::lonnet::allowed('psa',   $serverpost=&Apache::lonnet::allowed('psa',
      $ENV{'request.role.domain'});       $env{'request.role.domain'});
     } else {      } else {
  $serverpost=&Apache::lonnet::allowed('psa','/');   $serverpost=&Apache::lonnet::allowed('psa','/');
     }      }
Line 363  ENDDOCUMENT Line 561  ENDDOCUMENT
     }      }
 # ------------------------------------------------------------ Process commands  # ------------------------------------------------------------ Process commands
     if ($serverpost) {      if ($serverpost) {
  if ($ENV{'form.serveraction'}) {   if ($env{'form.serveraction'}) {
     foreach (keys %ENV) {      foreach my $key (keys(%env)) {
  if ($_=~/^form\.postto\_(\w+)/) {   if ($key=~/^form\.postto\_(\w+)/) {
     $r->print(       $r->print( 
  '<br />Posting '.$1.': '.&Apache::lonnet::postannounce   '<br />Posting '.$1.': '.&Apache::lonnet::postannounce
  ($1,$ENV{'form.serverannnounce'}));   ($1,$env{'form.serverannnounce'}));
  }   }
     }      }
  }   }
  $r->print(<<SERVERANNOUNCE);   $r->print('<form name="serveranno" method="post">'
 <form name="serveranno" method="post">                   .'<h2>'.&mt('Post Server Announcements').'</h2>'
 <h3>Post Server Announcements</h3>                   .&mt('Post announcements to the system login and roles screen').'<br />'
 Post announcements to the system login and roles screen<br />                   .'<i>'.&mt('(leave blank to delete announcement)').'</i><br />'
 <i>(leave blank to delete announcement)</i><br />                   .'<textarea name="serverannnounce" cols="60" rows="5"></textarea><br />'
 <textarea name="serverannnounce" cols="60" rows="5"></textarea><br />                   .&mt('Check machines:').'<br />'
 Check machines:<br />          );
 SERVERANNOUNCE  
 # list servers  # list servers
     foreach (sort keys %Apache::lonnet::hostname) {      my %hostname = &Apache::lonnet::all_hostnames();
  if (&Apache::lonnet::allowed('psa',$Apache::lonnet::hostdom{$_})) {      foreach my $host (sort(keys(%hostname))) {
     $r->print ('<br /><input type="checkbox" name="postto_'.$_.'" /> '.   if (&Apache::lonnet::allowed('psa',
        $_.' <tt>'.$Apache::lonnet::hostname{$_}.'</tt> '.       &Apache::lonnet::host_domain($host))) {
        '<a href="http://'.$Apache::lonnet::hostname{$_}.      $r->print ('<label><input type="checkbox" name="postto_'.$host.'" /> '.
        '/announcement.txt" target="annowin">current</a>');         $host.' <tt>'.$hostname{$host}.'</tt> '.
          '</label><a href="http://'.$hostname{$host}.
          '/announcement.txt?time='.time.'" target="annowin">'.
                          &mt('Current Announcement').'</a><br />');
  }   }
     }      }
     $r->print(      $r->print(
   '<br /><input type="submit" name="serveraction" value="Post"></form><hr />');    '<br /><input type="submit" name="serveraction" value="'.&mt('Post').'"></form><hr />');
     }      }
     if ($allowed) {      if ($allowed) {
         my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};          my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
         my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};          my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
 # ----------------------------------------------------- Store new submitted one  # ----------------------------------------------------- Store new submitted one
         if ($ENV{'form.action'} eq 'new') {          if ($env{'form.action'} eq 'new') {
     my $startdate =       my $startdate = 
  &Apache::lonhtmlcommon::get_date_from_form('startdate');   &Apache::lonhtmlcommon::get_date_from_form('startdate');
     my $enddate   =       my $enddate   = 
Line 410  SERVERANNOUNCE Line 610  SERVERANNOUNCE
             }              }
     &Apache::lonnet::put('calendar',{       &Apache::lonnet::put('calendar',{ 
  $startdate.'_'.$enddate =>    $startdate.'_'.$enddate => 
     $ENV{'form.msg'} },$coursedom,$coursenum);      $env{'form.msg'} },$coursedom,$coursenum);
       if ($env{'form.rsspost'}) {
                  &Apache::lonrss::addentry($coursenum,$coursedom,'Course_Announcements',
    &mt('Event from [_1] to [_2]',
        &Apache::lonlocal::locallocaltime($startdate),
        &Apache::lonlocal::locallocaltime($enddate)),
    $env{'form.msg'},'/adm/announcements','public');
      }
         }          }
 # ---------------------------------------------------------------- Remove items  # ---------------------------------------------------------------- Remove items
         if ($ENV{'form.action'} eq 'del') {          if ($env{'form.action'} eq 'del') {
     my @delwhich=();      my @delwhich=();
             foreach (keys %ENV) {              foreach my $key (keys(%env)) {
  if ($_=~/^form\.remove\_(.+)$/) {   if ($key=~/^form\.remove\_(.+)$/) {
     push(@delwhich,$1);      push(@delwhich,$1);
                 }                  }
             }              }
Line 430  SERVERANNOUNCE Line 637  SERVERANNOUNCE
         &editfield($r,$today,$tomorrow,'');          &editfield($r,$today,$tomorrow,'');
     }      }
 # ----------------------------------------------------- Summarize all calendars  # ----------------------------------------------------- Summarize all calendars
     my %allcal=();      my %allcal=&get_all_calendars();
     foreach (&Apache::loncommon::findallcourses()) {  
  %allcal=(%allcal,&readcalendar($_));  
     }  
   
 # ------------------------------- Initialize table and forward backward buttons  # ------------------------------- Initialize table and forward backward buttons
     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>'.('',&mt('January'),&mt('February'),&mt('March'),      $r->print('<h2>'.&mt('Calendar').'</h2>'
                .'<h3>'.('',&mt('January'),&mt('February'),&mt('March'),
       &mt('April'),&mt('May'),        &mt('April'),&mt('May'),
       &mt('June'),&mt('July'),&mt('August'),        &mt('June'),&mt('July'),&mt('August'),
                       &mt('September'),&mt('October'),                        &mt('September'),&mt('October'),
                       &mt('November'),&mt('December'))[$month].' '.                        &mt('November'),&mt('December'))[$month].' '.
               $year.'</h1>');                $year.' '.&show_timezone().'</h3>');
 # Reached the end of times, give up  # Reached the end of times, give up
     if (($year<1970) || ($year>2037)) {      if (($year<1970) || ($year>2037)) {
  $r->print('<h3>No calendar available for this date.</h3>'.   $r->print('<p class="LC_warning">'
  '<a href="/adm/announcements?month='.$todayhash{'month'}.                   .&mt('No calendar available for this date.')
  '&year='.$todayhash{'year'}.'">Current Month</a></body></html>');                   .'</p>'
                    .'<a href="/adm/announcements?month='.$todayhash{'month'}
                    .'&year='.$todayhash{'year'}.'">'.&mt('Current Month').'</a>'
    .&Apache::loncommon::end_page());
  return OK;   return OK;
     }      }
   
       my $class = "LC_calendar";
       if ($env{'form.pickdate'} eq 'yes') {
    $class .= " LC_calendar_pickdate";
       }
   # ------------------------------------------------ Determine first day of a week
       my $datelocale =  &Apache::lonlocal::getdatelocale();
       my $days_in_week = 7;
       my $startweek = 0;
       if (ref($datelocale)) {
           $startweek = $datelocale->first_day_of_week();
           if ($startweek == $days_in_week)  { $startweek = 0; }
       }
       my @days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
       my @localdays;
       if ($startweek == 0) {
           @localdays = @days;
       } else {
           my $endday = $days_in_week - $startweek;
           for (my $i=0; $i<$days_in_week; $i++) {
               if ($i < $endday) {
                   $localdays[$i] = $days[$i+$startweek];
               } else {
                   $localdays[$i] = $days[$i-$endday];
               }
           }
       }
   
   # ----------------------------------------------------------- Weekday in locale
       my $loc_weekday = $weekday - $startweek;
       if ($loc_weekday < 0) {
           $loc_weekday += $days_in_week; 
       }
   
     $r->print(      $r->print(
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.   '<a href="/adm/announcements?month='.$pm.'&year='.$py.
  ($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '.   ($pickdatemode?$pickinfo:'').'">'.&mt('Previous Month').'</a> '.
Line 461  SERVERANNOUNCE Line 702  SERVERANNOUNCE
  '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.   '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.
  '&year='.$todayhash{'year'}.   '&year='.$todayhash{'year'}.
  ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a><p>'.   ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a><p>'.
         '<table border="2" cols="7" rows="5"><tr><th>'.          '<table class="'.$class.'" cols="7" rows="5"><tr>');
 &tfont(&mt('Sun'))      for (my $i=0; $i<@localdays; $i++) {
 .'</th><th>'.          $r->print('<th>'.&mt($localdays[$i]).'</th>');
 &tfont(&mt('Mon'))      }
 .'</th><th>'.      $r->print('</tr>');
 &tfont(&mt('Tue'))  
 .'</th><th>'.  
 &tfont(&mt('Wed'))  
 .'</th><th>'.  
 &tfont(&mt('Thu'))  
 .'</th><th>'.  
 &tfont(&mt('Fri'))  
 .'</th><th>'.  
 &tfont(&mt('Sat'))  
 .'</th></tr>');  
   
     my $tk=&Apache::loncommon::maketime(%firstday);  
     my $outp;      my $outp;
     my $nm;      my $nm;
   
 # ---------------------------------------------------------------- Actual table  # ---------------------------------------------------------------- Actual table
     $r->print('<tr>');      $r->print('<tr>');
     for (my $i=0;$i<$weekday;$i++) { $r->print(&emptycell); }      for (my $i=0;$i<$loc_weekday;$i++) { $r->print(&emptycell); }
     for (my $i=$weekday;$i<=6;$i++) {       for (my $i=$loc_weekday;$i<=6;$i++) {
         ($tk,$nm,$outp)=&showday($tk,0,%allcal);          ($tk,$nm,$outp)=&showday($tk,0,%allcal);
         $r->print($outp);          $r->print($outp);
     }      }
     $r->print('</tr>');      $r->print('</tr>');
   
       my $lastrow = 0;
       my $lastday = 0;
     for (my $k=0;$k<=4;$k++) {      for (my $k=0;$k<=4;$k++) {
         $r->print('<tr>');          if (!$lastrow) {
         for (my $i=0;$i<=6;$i++) {              $r->print('<tr>');
             ($tk,$nm,$outp)=&showday($tk,0,%allcal);              for (my $i=0;$i<=6;$i++) {
             if ($month!=$nm) { $outp=&emptycell; }                  if ($lastday) {
             $r->print($outp);                      $outp = &emptycell();
                   } else {
                       my $currtk = $tk;
                       ($tk,$nm,$outp)=&showday($tk,0,%allcal);
                       if ($month!=$nm) { $lastday = 1; }
                   }
                   $r->print($outp);
               }
               if ($lastday) {
                   $lastrow = 1;
               }
               $r->print('</tr>');
         }          }
         $r->print('</tr>');  
     }      }
 # ------------------------------------------------------------------- End table  # ------------------------------------------------------------------- End table
     $r->print('</table>');      $r->print('</table>');
 # ----------------------------------------------------------------- Check marks  # ----------------------------------------------------------------- Check marks
     %showedcheck=();      undef(%showedcheck);
     undef %showedcheck;  
 # --------------------------------------------------------------- Remove button  # --------------------------------------------------------------- Remove button
     if ($allowed) { $r->print('<input type="button" onClick="removesub()" value="Remove Checked Entries">'.      if ($allowed) { $r->print('<br /><input type="button" onClick="removesub()" value="'.&mt('Remove Checked Entries').'">'.
       &Apache::loncommon::help_open_topic('Calendar_Remove_Announcement').'</form>'); }        &Apache::loncommon::help_open_topic('Calendar_Remove_Announcement').'</form>'); }
     $r->print('<p>'.      $r->print('<p>'.
  '<a href="/adm/announcements?month='.$pm.'&year='.$py.   '<a href="/adm/announcements?month='.$pm.'&year='.$py.
Line 515  SERVERANNOUNCE Line 756  SERVERANNOUNCE
  '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.   '&nbsp;&nbsp;&nbsp;<a href="/adm/announcements?month='.$todayhash{'month'}.
  '&year='.$todayhash{'year'}.   '&year='.$todayhash{'year'}.
  ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a></p>'.   ($pickdatemode?$pickinfo:'').'">'.&mt('Current Month').'</a></p>'.
  ($pickdatemode?'</font>':'').   ($pickdatemode?'</font>':'').&Apache::loncommon::end_page());
  '</body></html>');      $r->print('<a href="/adm/announcements.ics">'.&mt('Download your Calendar as iCalendar File').'</a>');
     return OK;      return OK;
 }   } 
   
Removed from v.1.30  
changed lines
  Added in v.1.78

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.