[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.40

version 1.36, 2002/06/24 14:28:10 version 1.40, 2002/08/12 18:21:42
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 711  sub handler { Line 710  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.40

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