|
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') && |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonsearchcat.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface