version 1.347, 2015/06/18 15:10:52
|
version 1.348, 2016/04/22 17:22:29
|
Line 1912 sub copyright_check {
|
Line 1912 sub copyright_check {
|
my (undef,undef,$resdom,$resname) = split('/', |
my (undef,undef,$resdom,$resname) = split('/', |
$Metadata->{'url'}); |
$Metadata->{'url'}); |
# Check for priv |
# Check for priv |
if (($Metadata->{'copyright'} eq 'priv') && |
if ($Metadata->{'copyright'} eq 'priv') { |
(($env{'user.name'} ne $resname) && |
unless (($env{'user.name'} eq $resname) && |
($env{'user.domain'} ne $resdom))) { |
($env{'user.domain'} eq $resdom)) { |
return 0; |
return 0; |
|
} |
} |
} |
# Check for domain |
# Check for domain |
if (($Metadata->{'copyright'} eq 'domain') && |
if (($Metadata->{'copyright'} eq 'domain') && |