Lines 106-111
else {
Link Here
|
106 |
my @id = $input->param('id'); |
106 |
my @id = $input->param('id'); |
107 |
my @oConnection; |
107 |
my @oConnection; |
108 |
my @oResult; |
108 |
my @oResult; |
|
|
109 |
my @errconn; |
109 |
my $s = 0; |
110 |
my $s = 0; |
110 |
my $query; |
111 |
my $query; |
111 |
my $nterms; |
112 |
my $nterms; |
Lines 199-204
warn "query ".$query if $DEBUG;
Link Here
|
199 |
my ( $error, $errmsg, $addinfo, $diagset ) = |
200 |
my ( $error, $errmsg, $addinfo, $diagset ) = |
200 |
$oConnection[$k]->error_x(); |
201 |
$oConnection[$k]->error_x(); |
201 |
if ($error) { |
202 |
if ($error) { |
|
|
203 |
if ($error =~ m/^(10000|10007)$/ ) { |
204 |
push(@errconn, {'server' => $serverhost[$k]}); |
205 |
} |
202 |
warn "$k $serverhost[$k] error $query: $errmsg ($error) $addinfo\n" |
206 |
warn "$k $serverhost[$k] error $query: $errmsg ($error) $addinfo\n" |
203 |
if $DEBUG; |
207 |
if $DEBUG; |
204 |
|
208 |
|
Lines 263-269
warn "query ".$query if $DEBUG;
Link Here
|
263 |
breeding_loop => \@breeding_loop, |
267 |
breeding_loop => \@breeding_loop, |
264 |
server => $servername[$k], |
268 |
server => $servername[$k], |
265 |
numberpending => $numberpending, |
269 |
numberpending => $numberpending, |
266 |
biblionumber => $biblionumber, |
270 |
biblionumber => $biblionumber, |
|
|
271 |
errconn => \@errconn |
267 |
); |
272 |
); |
268 |
|
273 |
|
269 |
output_html_with_http_headers $input, $cookie, $template->output if $numberpending == 0; |
274 |
output_html_with_http_headers $input, $cookie, $template->output if $numberpending == 0; |