From b81c43c8215ed704b8d40468d2c8e39336457d60 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 24 Mar 2004 15:09:25 +0000
Subject: [PATCH] sync'ing with rel_2_0

---
 z3950/processz3950queue | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/z3950/processz3950queue b/z3950/processz3950queue
index eff6e4a7bb..34820799e4 100755
--- a/z3950/processz3950queue
+++ b/z3950/processz3950queue
@@ -104,7 +104,12 @@ if ($< == 0) {
     $>=$uid;
     $<=$uid;
 }
-my $dbh = C4::Context->dbh;
+my $db_driver = $context->{"config"}{"db_scheme"} || "mysql";
+my $db_name   = $context->{"config"}{"database"};
+my $db_host   = $context->{"config"}{"hostname"};
+my $db_user   = $context->{"config"}{"user"};
+my $db_passwd = $context->{"config"}{"pass"};
+my $dbh = DBI->connect("DBI:$db_driver:$db_name:$db_host",$db_user, $db_passwd);
 
 # we begin the script, so "unactive" every pending request : they will never give anything, the script died :-(
 my $sth=$dbh->prepare("update z3950results set active=0 where active<>-1");
@@ -179,7 +184,12 @@ while (1) {
 						} else {
 # and connect to z3950 server
 #FIXME: why do we need $dbi ? can't we use $dbh ?
-							my $dbi = C4::Context->dbh;
+							my $db_driver = $context->{"config"}{"db_scheme"} || "mysql";
+							my $db_name   = $context->{"config"}{"database"};
+							my $db_host   = $context->{"config"}{"hostname"};
+							my $db_user   = $context->{"config"}{"user"};
+							my $db_passwd = $context->{"config"}{"pass"};
+							my $dbi = DBI->connect("DBI:$db_driver:$db_name:$db_host",$db_user, $db_passwd);
 							my ($name, $server, $database, $user, $password,$syntax) = split(/\//, $serverinfo, 6);
 							$globalname=$name;
 							$globalsyntax = $syntax;
-- 
2.39.5