version 1.130, 2009/11/03 03:06:07
|
version 1.132, 2010/03/17 00:06:14
|
Line 417 sub handler {
|
Line 417 sub handler {
|
my $preserved; |
my $preserved; |
foreach my $pair (split(/&/,$query)) { |
foreach my $pair (split(/&/,$query)) { |
my ($name, $value) = split(/=/,$pair); |
my ($name, $value) = split(/=/,$pair); |
unless (($name eq 'symb') || ($name eq 'wrapperdisplay')) { |
unless ($name eq 'symb') { |
$preserved .= $pair.'&'; |
$preserved .= $pair.'&'; |
} |
} |
} |
} |
Line 452 sub handler {
|
Line 452 sub handler {
|
if ($requrl =~ m{^/res/}) { |
if ($requrl =~ m{^/res/}) { |
$access = &Apache::lonnet::allowed('bro',$requrl); |
$access = &Apache::lonnet::allowed('bro',$requrl); |
if ($access ne 'F') { |
if ($access ne 'F') { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
if ($requrl eq '/res/lib/templates/simpleproblem.problem/smpedit') { |
return HTTP_NOT_ACCEPTABLE; |
$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 { |
} else { |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied"; |