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 |
{ |
{ |