From 81ec28f1272f036d3bd0290c024f125adc8bd24b Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Fri, 11 Oct 2002 12:34:53 +0000
Subject: [PATCH] Replaced &requireDBI with C4::Context->dbh

---
 C4/Biblio.pm |  9 +++++++--
 C4/Z3950.pm  | 13 ++++++++++---
 2 files changed, 17 insertions(+), 5 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index a52c1e1525..02504a32ac 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -1,6 +1,9 @@
 package C4::Biblio;
 # $Id$
 # $Log$
+# Revision 1.18  2002/10/11 12:34:53  arensb
+# Replaced &requireDBI with C4::Context->dbh
+#
 # Revision 1.17  2002/10/10 14:48:25  tipaul
 # bugfixes
 #
@@ -2004,6 +2007,7 @@ sub getoraddbiblio {
 	# input params
 	my (
 	  $dbh,		# db handle
+			# FIXME - Unused argument
 	  $biblio,	# hash ref to fields
 	)=@_;
 
@@ -2015,7 +2019,7 @@ sub getoraddbiblio {
 	my $error;
 
 	#-----
-    	requireDBI($dbh,"getoraddbiblio");
+    	$dbh = C4::Context->dbh;
 
 	print "<PRE>Looking for biblio </PRE>\n" if $debug;
 	$sth=$dbh->prepare("select biblionumber
@@ -2844,6 +2848,7 @@ sub OLD_MAY_BE_DELETED_newcompletebiblioitem {
 
 	my (
 	  $dbh,			# DBI handle
+				# FIXME - Unused argument
 	  $biblio,		# hash ref to biblio record
 	  $biblioitem,		# hash ref to biblioitem record
 	  $subjects,		# list ref of subjects
@@ -2858,7 +2863,7 @@ sub OLD_MAY_BE_DELETED_newcompletebiblioitem {
 	my $additionalauthor;
 
 	#--------
-    	requireDBI($dbh,"newcompletebiblioitem");
+    	$dbh = C4::Context->dbh;
 
 	print "<PRE>Trying to add biblio item Title=$biblio->{title} " .
 		"ISBN=$biblioitem->{isbn} </PRE>\n" if $debug;
diff --git a/C4/Z3950.pm b/C4/Z3950.pm
index 3d8dac2b69..7b13e6f03b 100755
--- a/C4/Z3950.pm
+++ b/C4/Z3950.pm
@@ -91,7 +91,7 @@ my $priv_func = sub {
 sub z3950servername {
     # inputs
     my (
-	$dbh,
+	$dbh,		# FIXME - Unused argument
 	$srvid,		# server id number 
 	$default,
     )=@_;
@@ -99,8 +99,9 @@ sub z3950servername {
     my $longname;
     #----
 
-    requireDBI($dbh,"z3950servername");
+    $dbh = C4::Context->dbh;
 
+	# FIXME - Fix indentation
 	my $sti=$dbh->prepare("select name 
 		from z3950servers 
 		where id=?");
@@ -120,6 +121,7 @@ sub addz3950queue {
     # input
     my (
 	$dbh,		# DBI handle
+			# FIXME - Unused argument
 	$query,		# value to look up
 	$type,		# type of value ("isbn", "lccn", etc).
 	$requestid,	# Unique value to prevent duplicate searches from multiple HTML form submits
@@ -140,7 +142,9 @@ sub addz3950queue {
     
     $error="";
 
-    requireDBI($dbh,"addz3950queue");
+    $dbh = C4::Context->dbh;
+
+	# FIXME - Fix indentation
 
 	# list of servers: entry can be a fully qualified URL-type entry
         #   or simply just a server ID number.
@@ -207,6 +211,9 @@ sub addz3950queue {
 
 #--------------------------------------
 # $Log$
+# Revision 1.4  2002/10/11 12:35:35  arensb
+# Replaced &requireDBI with C4::Context->dbh
+#
 # Revision 1.3  2002/08/14 18:12:52  tonnesen
 # Added copyright statement to all .pl and .pm files
 #
-- 
2.39.5