bugfix: parenthesis at wrong place

[koha_fer] / cataloguing / z3950_search.pl

diff --git a/cataloguing/z3950_search.pl b/cataloguing/z3950_search.pl
index ae50624..dfc769d 100755 (executable)
--- a/cataloguing/z3950_search.pl
+++ b/cataloguing/z3950_search.pl
@@ -82,8 +82,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 $template->param( frameworkcode => $frameworkcode, );
 
 if ( $op ne "do_search" ) {
-    # 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");
+    my $sth = $dbh->prepare("select id,host,checked from z3950servers  order by host");
     $sth->execute();
     my $serverloop = $sth->fetchall_arrayref( {} );
     $template->param(
@@ -205,7 +204,7 @@ else {
                         $notmarcrecord, $alreadyindb, $alreadyinfarm,
                         $imported,      $breedingid
                       )
-                      = ImportBreeding( $marcdata, 1, $serverhost[$k], $encoding[$k], $random );
+                      = ImportBreeding( $marcdata, 2, $serverhost[$k], $encoding[$k], $random );
 
                     my %row_data;
                     if ( $i % 2 ) {