Replaced &requireDBI with C4::Context->dbh

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index a52c1e1..02504a3 100644 (file)
--- 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 3d8dac2..7b13e6f 100755 (executable)
--- 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
 #