version 1.58, 2011/11/12 18:48:41
|
version 1.59, 2011/11/12 19:37:40
|
Line 194 sub handler {
|
Line 194 sub handler {
|
my ($ownername,$ownerdom,$ownerhome) = &constructaccess($requrl,'setpriv'); |
my ($ownername,$ownerdom,$ownerhome) = &constructaccess($requrl,'setpriv'); |
if (($ownername ne '') && ($ownerdom ne '') && ($ownerhome ne '')) { |
if (($ownername ne '') && ($ownerdom ne '') && ($ownerhome ne '')) { |
unless ($ownerhome eq 'no_host') { |
unless ($ownerhome eq 'no_host') { |
my @hosts = &Apache::lonnet::current_machine_domains(); |
my @hosts = &Apache::lonnet::current_machine_ids(); |
if (grep(/^\Q$ownerhome\E$/,@hosts)) { |
if (grep(/^\Q$ownerhome\E$/,@hosts)) { |
$allowed = 1; |
$allowed = 1; |
} |
} |