loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.17, 2002/05/11 21:28:20	version 1.18, 2002/05/17 14:03:04
Line 55 sub wanted {	Line 55 sub wanted {
push(@metalist,"$dir/$_");	push(@metalist,"$dir/$_");
}	}

# ------------------------- Read access.conf and loncapa.conf and get variables	# --------------- Read loncapa_apache.conf and loncapa.conf and get variables
my $perlvarref=LONCAPA::Configuration::read_conf('access.conf','loncapa.conf');	my $perlvarref=LONCAPA::Configuration::read_conf('loncapa_apache.conf',
	'loncapa.conf');
my %perlvar=%{$perlvarref};	my %perlvar=%{$perlvarref};
undef $perlvarref; # remove since sensitive and not needed	undef $perlvarref; # remove since sensitive and not needed
delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed	delete $perlvar{'lonReceipt'}; # remove since sensitive and not needed