loncom/lonsql - diff

Return to lonsql CVS log

Up to [LON-CAPA] / loncom

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;