[Koha-cvs] CVS: koha/C4 Z3950.pm,1.3,1.4

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv1125

Modified Files:
	Z3950.pm 
Log Message:
Replaced &requireDBI with C4::Context->dbh


Index: Z3950.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Z3950.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** Z3950.pm	14 Aug 2002 18:12:52 -0000	1.3
--- Z3950.pm	11 Oct 2002 12:35:35 -0000	1.4
***************
*** 92,96 ****
      # inputs
      my (
! 	$dbh,
  	$srvid,		# server id number 
  	$default,
--- 92,96 ----
      # inputs
      my (
! 	$dbh,		# FIXME - Unused argument
  	$srvid,		# server id number 
  	$default,
***************
*** 100,105 ****
      #----
  
!     requireDBI($dbh,"z3950servername");
  
  	my $sti=$dbh->prepare("select name 
  		from z3950servers 
--- 100,106 ----
      #----
  
!     $dbh = C4::Context->dbh;
  
+ 	# FIXME - Fix indentation
  	my $sti=$dbh->prepare("select name 
  		from z3950servers 
***************
*** 121,124 ****
--- 122,126 ----
      my (
  	$dbh,		# DBI handle
+ 			# FIXME - Unused argument
  	$query,		# value to look up
  	$type,		# type of value ("isbn", "lccn", etc).
***************
*** 141,145 ****
      $error="";
  
!     requireDBI($dbh,"addz3950queue");
  
  	# list of servers: entry can be a fully qualified URL-type entry
--- 143,149 ----
      $error="";
  
!     $dbh = C4::Context->dbh;
! 
! 	# FIXME - Fix indentation
  
  	# list of servers: entry can be a fully qualified URL-type entry
***************
*** 208,211 ****
--- 212,218 ----
  #--------------------------------------
  # $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