loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.191, 2021/06/22 16:56:35	version 1.192, 2021/07/19 15:48:26
Line 673 sub handler {	Line 673 sub handler {
if ((!$env{'request.role.adv'}) && ($env{'acc.randomout'}) &&	if ((!$env{'request.role.adv'}) && ($env{'acc.randomout'}) &&
($env{'acc.randomout'}=~/\&\Q$poss_symb\E\&/)) {	($env{'acc.randomout'}=~/\&\Q$poss_symb\E\&/)) {
undef($poss_symb);	undef($poss_symb);
	} elsif ((!$env{'request.role.adv'}) && ($env{'acc.deeplinkout'}) &&
	($env{'acc.deeplinkout'}=~/\&\Q$poss_symb\E\&/)) {
	undef($poss_symb);
}	}
}	}
}	}
Line 682 sub handler {	Line 685 sub handler {
$access=&Apache::lonnet::allowed('bre',$requrl,'','','','',1);	$access=&Apache::lonnet::allowed('bre',$requrl,'','','','',1);
}	}
} else {	} else {
$access=&Apache::lonnet::allowed('bre',$requrl);	my $nodeeplinkcheck;
	if (($check_access) && ($requrl =~ /\.(sequence\|page)$/)) {
	unless ($env{'form.navmap'}) {
	if ($r->args ne '') {
	&Apache::loncommon::get_unprocessed_cgi($r->args,['navmap']);
	unless ($env{'form.navmap'}) {
	$nodeeplinkcheck = 1;
	}
	}
	}
	}
	$access=&Apache::lonnet::allowed('bre',$requrl,'','','','','',$nodeeplinkcheck)
}	}
}	}
if ($check_block) {	if ($check_block) {