version 1.23, 2001/03/27 18:38:59
|
version 1.25, 2001/03/27 19:11:12
|
Line 225 sub make_new_child {
|
Line 225 sub make_new_child {
|
$queryid .= $run; |
$queryid .= $run; |
print $client "$queryid\n"; |
print $client "$queryid\n"; |
|
|
|
&logthis("QUERY: $query"); |
|
&logthis("QUERY: $query"); |
|
sleep 1; |
#prepare and execute the query |
#prepare and execute the query |
my $sth = $dbh->prepare($query); |
my $sth = $dbh->prepare($query); |
my $result; |
my $result; |
my @files; |
my @files; |
|
my $subsetflag=0; |
unless ($sth->execute()) |
unless ($sth->execute()) |
{ |
{ |
&logthis("<font color=blue>WARNING: Could not retrieve from database: $@</font>"); |
&logthis("<font color=blue>WARNING: Could not retrieve from database: $@</font>"); |