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

Diff for /loncom/interface/lonannounce.pm between versions 1.53 and 1.55

version 1.53, 2006/05/12 15:53:10 version 1.55, 2006/06/26 22:31:56
Line 50  sub editfield { Line 50  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 %lt=&Apache::lonlocal::texthash('post' => 'Post Announcement',      my %lt=&Apache::lonlocal::texthash('post' => 'Post Announcement',
        'start' => 'Starting date',         'start' => 'Starting date',
        'end' => 'Ending date',         'end' => 'Ending date',
Line 82  sub readcalendar { Line 82  sub readcalendar {
     }      }
   
     my $can_see_hidden = $env{'request.role.adv'};      my $can_see_hidden = $env{'request.role.adv'};
     my $navmap = Apache::lonnavmaps::navmap->new();      my $navmap;# = Apache::lonnavmaps::navmap->new();
     my %resourcedata=      my %resourcedata=
  &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);   &Apache::lonnet::dump('resourcedata',$coursedom,$coursenum);
     foreach my $thiskey (sort keys %resourcedata) {      foreach my $thiskey (sort keys %resourcedata) {
Line 116  sub readcalendar { Line 116  sub readcalendar {
     my $res = $navmap->getResourceByUrl($map_url);      my $res = $navmap->getResourceByUrl($map_url);
     if ($res && $res->randomout()) { next; }      if ($res && $res->randomout()) { next; }
  }   }
  $realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($map_url);   # need to do this looks up in showday or /*cell for speed resaons
    #$realm=&mt('Folder/Map').': '.&Apache::lonnet::gettitle($map_url);
    $realm=&mt('Folder/Map').': '.$map_url;
     } elsif ($middle) {      } elsif ($middle) {
  if (!$can_see_hidden && !$navmap) {   if (!$can_see_hidden && !$navmap) {
     next;      next;
Line 125  sub readcalendar { Line 127  sub readcalendar {
     my $res = $navmap->getBySymb($middle);      my $res = $navmap->getBySymb($middle);
     if ($res && $res->randomout()) { next; }      if ($res && $res->randomout()) { next; }
  }   }
  $realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);   #$realm=&mt('Resource').': '.&Apache::lonnet::gettitle($middle);
    $realm=&mt('Resource').': '.$middle;
     }      }
     my $datetype='';      my $datetype='';
     if ($name eq 'duedate') {       if ($name eq 'duedate') { 
Removed from v.1.53  
changed lines
  Added in v.1.55

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