loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.109, 2007/04/26 18:31:53	version 1.110, 2007/04/27 22:03:02
Line 291 sub handler {	Line 291 sub handler {
}	}
}	}
if ($requrl =~ m\|^/zipspool/\|) {	if ($requrl =~ m\|^/zipspool/\|) {
my $start='/zipspool/zipout/'.$env{'user.name'}.	my $start='/zipspool/zipout/'.$env{'user.name'}.":".
$env{'user.domain'};	$env{'user.domain'};
if ($requrl !~ /^\Q$start\E/) {	if ($requrl !~ /^\Q$start\E/) {
$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";	$env{'user.error.msg'}="$requrl:bre:1:1:Access Denied";