version 1.27, 2001/03/27 20:08:23
|
version 1.29, 2001/04/02 20:10:09
|
Line 193 sub make_new_child {
|
Line 193 sub make_new_child {
|
unless ( |
unless ( |
$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0}) |
$dbh = DBI->connect("DBI:mysql:loncapa","www","123",{ RaiseError =>0,PrintError=>0}) |
) { |
) { |
my $st=120+int(rand(240)); |
|
&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>"); |
&logthis("<font color=blue>WARNING: Couldn't connect to database ($st secs): $@</font>"); |
print "database handle error\n"; |
print "database handle error\n"; |
sleep($st); |
|
exit; |
exit; |
|
|
}; |
}; |
Line 251 sub make_new_child {
|
Line 249 sub make_new_child {
|
} |
} |
} |
} |
# do custom metadata searching here and build into result |
# do custom metadata searching here and build into result |
if ($custom) { |
if ($custom or $customshow) { |
&logthis("am going to do custom query for $custom"); |
&logthis("am going to do custom query for $custom"); |
if ($query) { |
if ($query) { |
@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files; |
@metalist=map {$perlvar{'lonDocRoot'}.$_.'.meta'} @files; |