loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.129, 2009/10/20 01:57:38	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 449 sub handler {	Line 449 sub handler {
return OK;	return OK;
}	}
if (($access ne '2') && ($access ne 'F')) {	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/\|) {	if ($requrl =~ m\|^/prtspool/\|) {