Lines 574-580
if ($tag) {
Link Here
|
574 |
|
574 |
|
575 |
# use Data::Dumper; print STDERR "-" x 25, "\n", Dumper($results_hashref); |
575 |
# use Data::Dumper; print STDERR "-" x 25, "\n", Dumper($results_hashref); |
576 |
if (not $tag and ( $@ || $error)) { |
576 |
if (not $tag and ( $@ || $error)) { |
577 |
$template->param(query_error => $error.$@); |
577 |
my $query_error = q{}; |
|
|
578 |
$query_error .= $error if $error; |
579 |
$query_error .= $@ if $@; |
580 |
$template->param(query_error => $query_error); |
578 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
581 |
output_html_with_http_headers $cgi, $cookie, $template->output; |
579 |
exit; |
582 |
exit; |
580 |
} |
583 |
} |
581 |
- |
|
|