Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.293, 2008/05/28 21:07:29 | version 1.295, 2008/05/28 22:22:27 |
---|---|
Line 2116 sub copyright_check { | Line 2116 sub copyright_check { |
($env{'user.domain'} ne $resdom)) { | ($env{'user.domain'} ne $resdom)) { |
return 0; | return 0; |
} | } |
# Check for custom rights | |
if ($Metadata->{'copyright'} eq 'custom') { | |
return &Apache::lonnet::customacccess('bre',$Metadata->{'url'}); | |
} | |
return 1; | return 1; |
} | } |