loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

version 1.14, 2001/04/16 20:45:42	version 1.15, 2001/04/17 13:36:07
Line 2	Line 2
# The LearningOnline Network	# The LearningOnline Network
# searchcat.pl "Search Catalog" batch script	# searchcat.pl "Search Catalog" batch script

# 04/14/2001 Scott Harrison	# 04/14/2001, 04/16/2001 Scott Harrison

# This script goes through a LON-CAPA resource	# This script goes through a LON-CAPA resource
# directory and gathers metadata.	# directory and gathers metadata.
Line 34 while ($configline=<CONFIG>) {	Line 34 while ($configline=<CONFIG>) {
}	}
close(CONFIG);	close(CONFIG);

	# ------------------------------------- Only run if machine is a library server
	exit unless $perlvar{'lonRole'} eq 'library';

my $dbh;	my $dbh;
# ------------------------------------- Make sure that database can be accessed	# ------------------------------------- Make sure that database can be accessed
{	{