loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.137, 2002/07/08 14:28:10	version 1.138, 2002/07/08 14:52:19
Line 1254 CATALOGCONTROLS	Line 1254 CATALOGCONTROLS
if (($Fields{'copyright'} eq 'priv') &&	if (($Fields{'copyright'} eq 'priv') &&
(($ENV{'user.name'} ne $resname) &&	(($ENV{'user.name'} ne $resname) &&
($ENV{'user.domain'} ne $resdom))) {	($ENV{'user.domain'} ne $resdom))) {
$r->print("<pre>copyright = 'priv' -> Skipping $Fields{'url'}</pre>\n");
next;	next;
}	}
# Check for domain	# Check for domain
if (($Fields{'copyright'} eq 'domain') &&	if (($Fields{'copyright'} eq 'domain') &&
($ENV{'user.domain'} ne $resdom)) {	($ENV{'user.domain'} ne $resdom)) {
$r->print("<pre>copyright = 'domain' -> Skipping $Fields{'url'}</pre>\n");
next;	next;
}	}
#	#