loncom/auth/loncacc.pm - diff

Return to loncacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.50, 2009/10/07 14:47:48	version 1.51, 2010/09/30 16:42:30
Line 126 sub constructaccess {	Line 126 sub constructaccess {
unless ($blocked{'domcoord.author'} eq 'blocked') {	unless ($blocked{'domcoord.author'} eq 'blocked') {
if (grep(/^$ownerdomain$/,@possibledomains)) {	if (grep(/^$ownerdomain$/,@possibledomains)) {
if ($setpriv) {	if ($setpriv) {
	my $refresh=$env{'user.refresh.time'};
	if (!$refresh) {
	$refresh = $then;
	}
my $now = time;	my $now = time;
&Apache::lonnet::check_adhoc_privs($ownerdomain,$ownername,	&Apache::lonnet::check_adhoc_privs($ownerdomain,$ownername,
$then,$now,'ca');	$then,$refresh,$now,'ca',
	'constructaccess');
}	}
return($ownername,$ownerdomain);	return($ownername,$ownerdomain);
}	}