![[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|
Return to lonsearchcat.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.293, 2008/05/28 21:07:29 | version 1.294, 2008/05/28 21:23:17 |
|---|---|
| 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 0; | |
| } | |
| return 1; | return 1; |
| } | } |