|
version 1.136, 2002/07/05 18:56:52
|
version 1.137, 2002/07/08 14:28:10
|
|
Line 1247 CATALOGCONTROLS
|
Line 1247 CATALOGCONTROLS
|
| chomp $result; |
chomp $result; |
| next unless $result; |
next unless $result; |
| %Fields = &parse_raw_result($result,$rkey); |
%Fields = &parse_raw_result($result,$rkey); |
| |
# |
| |
# Check copyright tags and skip results the user cannot use |
| |
my (undef,undef,$resdom,$resname) = split('/',$Fields{'url'}); |
| |
# Check for priv |
| |
if (($Fields{'copyright'} eq 'priv') && |
| |
(($ENV{'user.name'} ne $resname) && |
| |
($ENV{'user.domain'} ne $resdom))) { |
| |
$r->print("<pre>copyright = 'priv' -> Skipping $Fields{'url'}</pre>\n"); |
| |
next; |
| |
} |
| |
# Check for domain |
| |
if (($Fields{'copyright'} eq 'domain') && |
| |
($ENV{'user.domain'} ne $resdom)) { |
| |
$r->print("<pre>copyright = 'domain' -> Skipping $Fields{'url'}</pre>\n"); |
| |
next; |
| |
} |
| |
# |
| $Fields{'extrashow'}=$extrashow; |
$Fields{'extrashow'}=$extrashow; |
| if ($extrashow) { |
if ($extrashow) { |
| foreach my $field (@customfields) { |
foreach my $field (@customfields) { |
![[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