loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

Diff for /loncom/auth/lonacc.pm between versions 1.128 and 1.133

-version 1.128, 2009/09/25 13:51:44
+version 1.133, 2010/03/25 17:38:35
  Line 411  sub handler {
  	}
  	$env{'request.filename'} = $r->filename;
  	$env{'request.noversionuri'} = &Apache::lonnet::deversion($requrl);
+         if ($requrl =~ m{^/adm/wrapper/ext/}) {
+             my $query = $r->args;
+             if ($query) {
+                 my $preserved;
+                 foreach my $pair (split(/&/,$query)) {
+                     my ($name, $value) = split(/=/,$pair);
+                     unless ($name eq 'symb') {
+                         $preserved .= $pair.'&';
+                     }
+                 }
+                 $preserved =~ s/\&$//;
+                 if ($preserved) {
+                     $env{'request.external.querystring'} = $preserved;
+                 }
+             }
+         }
  # -------------------------------------------------------- Load POST parameters
  	&Apache::lonacc::get_posted_cgi($r);
- Line 433  sub handler {
+ Line 449  sub handler {
                  return OK;
              }
  	    if (($access ne '2') && ($access ne 'F')) {
- 		$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
+                 if ($requrl =~ m{^/res/}) {
- 		return HTTP_NOT_ACCEPTABLE;
+                     $access = &Apache::lonnet::allowed('bro',$requrl);
+                     if ($access ne 'F') {
+                         if ($requrl eq '/res/lib/templates/simpleproblem.problem/smpedit') {
+                             $access = &Apache::lonnet::allowed('bre','/res/lib/templates/simpleproblem.problem');
+                             if ($access ne 'F') {
+                                 $env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
+                                 return HTTP_NOT_ACCEPTABLE;
+                             }
+                         } else {
+                             $env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
+                             return HTTP_NOT_ACCEPTABLE;
+                         }
+                     }
+                 } else {
+ 		    $env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";
+ 		    return HTTP_NOT_ACCEPTABLE;
+                 }
  	    }
  	}
  	if ($requrl =~ m|^/prtspool/|) {
- Line 469  sub handler {
+ Line 501  sub handler {
  	    $requrl=~/\.(\w+)$/;
              my $query=$r->args;
  	    if ((&Apache::loncommon::fileembstyle($1) eq 'ssi') ||
- 		($requrl=~/^\/adm\/.*\/(aboutme|navmaps|smppg|bulletinboard)(\?|$ )/x) ||
+ 		($requrl=~/^\/adm\/.*\/(aboutme|smppg|bulletinboard)(\?|$ )/x) ||
  		($requrl=~/^\/adm\/wrapper\//) ||
  		($requrl=~m|^/adm/coursedocs/showdoc/|) ||
  		($requrl=~m|\.problem/smpedit$|) ||
- 		($requrl=~/^\/public\/.*\/syllabus$/)) {
+ 		($requrl=~/^\/public\/.*\/syllabus$/) ||
+                 ($requrl=~/^\/adm\/(viewclasslist|navmaps)$/)) {
  # ------------------------------------- This is serious stuff, get symb and log
  		my $symb;
  		if ($query) {

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

Removed from v.1.128
changed lines
	Added in v.1.133