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); |
} |
} |