tidying SQL query

Signed-off-by: Chris Cormack <crc@liblime.com>

diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index 87f7712..ae50624 100755 (executable)
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -82,7 +82,8 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 $template->param( frameworkcode => $frameworkcode, );
 
 if ( $op ne "do_search" ) {
-    my $sth = $dbh->prepare("select id,host,checked from z3950servers  order by host");
+    # FIXME : remove sql queries & put that in a specific package (Z3950.pm ?, but it's unused atm)
+    my $sth = $dbh->prepare("SELECT  id,host,checked FROM z3950servers ORDER by host");
     $sth->execute();
     my $serverloop = $sth->fetchall_arrayref( {} );
     $template->param(