From 256d7b18647cc79df272211c9394a2fc748ccecd Mon Sep 17 00:00:00 2001 From: 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