From 256d7b18647cc79df272211c9394a2fc748ccecd Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 5 Sep 2003 11:29:48 +0000
Subject: [PATCH] *** empty log message ***

---
 search.marc/search.pl   | 1 -
 z3950/processz3950queue | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/search.marc/search.pl b/search.marc/search.pl
index 6c97c79ea2..aba8994518 100755
--- a/search.marc/search.pl
+++ b/search.marc/search.pl
@@ -34,7 +34,6 @@ use C4::Koha; # XXX subfield_is_koha_internal_p
 
 # Creates the list of active tags using the active MARC configuration
 sub create_marclist {
-
 	my $dbh = C4::Context->dbh;
 	my $tagslib = &MARCgettagslib($dbh,1);
 	my @marcarray;
diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index 2d0feee9f1..9aabc545b8 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -58,8 +58,8 @@ while (1) {
 			while (my ($id, $term, $type, $servers,$random) = $sth->fetchrow) {
 				if ($forkcounter<12) {
 					my $now=time();
-					my $stk=$dbh->prepare("select id,server,startdate,enddate,numrecords,active from z3950results where queryid=$id");
-					($stk->execute) || (next);
+					my $stk=$dbh->prepare("select id,server,startdate,enddate,numrecords,active from z3950results where queryid=?");
+					($stk->execute($id)) || (next);
 					my %serverdone;
 					unless ($stk->rows) {
 						my $sti=$dbh->prepare("update z3950queue set done=-1,startdate=$now where id=$id");
-- 
2.39.5