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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.670 and 1.671

version 1.670, 2005/10/28 21:51:50 version 1.671, 2005/10/29 02:52:50
Line 3106  sub allowed { Line 3106  sub allowed {
 # not allowing 'edit' access (editupload) to uploaded course docs  # not allowing 'edit' access (editupload) to uploaded course docs
     if (($priv eq 'bre') && ($uri=~m|^uploaded/|)) {      if (($priv eq 'bre') && ($uri=~m|^uploaded/|)) {
  $thisallowed='';   $thisallowed='';
  my $refuri=$env{'httpref.'.$orguri};          my ($match)=&is_on_map($uri);
  if ($refuri) {          if ($match) {
     if ($refuri =~ m|^/adm/|) {              if ($env{'user.priv.'.$env{'request.role'}.'./'}
  $thisallowed='F';                    =~/\Q$priv\E\&([^\:]*)/) {
     } else {                  $thisallowed.=$1;
                 $refuri=&declutter($refuri);              }
                 my ($match) = &is_on_map($refuri);          } else {
                 if ($match) {              my $refuri=$env{'httpref.'.$orguri};
               if ($refuri) {
                   if ($refuri =~ m|^/adm/|) {
                     $thisallowed='F';                      $thisallowed='F';
                   } else {
                       $refuri=&declutter($refuri);
                       my ($match) = &is_on_map($refuri);
                       if ($match) {
                           $thisallowed='F';
                       }
                 }                  }
     }              }
  } else {          }
     $thisallowed='';  
  }  
     }      }
   
 # Full access at system, domain or course-wide level? Exit.  # Full access at system, domain or course-wide level? Exit.
Removed from v.1.670  
changed lines
  Added in v.1.671

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