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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.36 and 1.41.2.1

version 1.36, 2002/06/24 14:28:10 version 1.41.2.1, 2002/09/03 01:23:35
Line 278  sub addresource { Line 278  sub addresource {
     }      }
     my $brepriv=&Apache::lonnet::allowed('bre',$resource);      my $brepriv=&Apache::lonnet::allowed('bre',$resource);
     if ($hash{'src_'.$rid}) {      if ($hash{'src_'.$rid}) {
  if ((($brepriv eq '2') && (!$hash{'randomout_'.$rid}))    if (($brepriv eq '2') || ($brepriv eq 'F')) {
           || ($brepriv eq 'F')) {  
     my $pprefix='';      my $pprefix='';
     if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) {      if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) {
  $pprefix=&astatus($rid);   $pprefix=&astatus($rid);
Line 412  sub handler { Line 411  sub handler {
     if ($ENV{'request.course.fn'}) {      if ($ENV{'request.course.fn'}) {
  $fn=$ENV{'request.course.fn'};   $fn=$ENV{'request.course.fn'};
  if (-e "$fn.db") {   if (-e "$fn.db") {
     if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&      if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
  (tie(%parmhash,'GDBM_File',   (tie(%parmhash,'GDBM_File',
      $ENV{'request.course.fn'}.'_parms.db',       $ENV{'request.course.fn'}.'_parms.db',
      &GDBM_READER,0640))) {       &GDBM_READER(),0640))) {
  $hashtied=1;   $hashtied=1;
     }      }
  }   }
Line 490  sub handler { Line 489  sub handler {
   
  @rows=();   @rows=();
   
  &tracetable(0,$firstres,'&'.$lastres.'&','',0);   &tracetable(0,$firstres,'&','',0);
  if ($hash{'src_'.$lastres}) {  
     my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});  
     if (($brepriv eq '2') || ($brepriv eq 'F')) {  
  $rows[$#rows+1]=''.$lastres;  
     }  
  }  
   
 # ------------------------------------------------------------------ Page parms  # ------------------------------------------------------------------ Page parms
   
Line 576  sub handler { Line 569  sub handler {
     }      }
     $r->print('><script>window.focus();</script>'.      $r->print('><script>window.focus();</script>'.
       '<img align=right src=/adm/lonIcons/lonlogos.gif>'.        '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
       '<h1>Navigate Course Map</h1>'.        '<h1>Navigate Course Map</h1>');
       "<h3>$date</h3>");      my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
       if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }
       $r->print("<h3>$date</h3>\n");
     $r->rflush();      $r->rflush();
     $r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.      $r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.
       localtime($lastcheck).        localtime($lastcheck).
Line 711  sub handler { Line 706  sub handler {
     for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }      for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }
  }   }
  if (!$linkid) { $linkid=$rid; }   if (!$linkid) { $linkid=$rid; }
                           if ($hash{'randomout_'.$rid}) {
                               $adde=' <i>(hidden)</i>'.$adde;
                           }
  $r->print($add.$indentstr);   $r->print($add.$indentstr);
  if ($rid) {   if ($rid) {
     $r->print('<a href="'.$hash{'src_'.$linkid}.      $r->print('<a href="'.$hash{'src_'.$linkid}.
                                       '?symb='.&Apache::lonnet::escape($symb)                                        (($hash{'src_'.$linkid}=~/\?/)?'&':'?').
                                         'symb='.&Apache::lonnet::escape($symb)
                                        .'">'.                                         .'">'.
       $hwk.$hash{'title_'.$rid}.$hwke.'</a>');        $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
  }   }
Removed from v.1.36  
changed lines
  Added in v.1.41.2.1

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