[Koha-cvs] CVS: koha/C4 Z3950.pm,1.6,1.7

[Mike Hansen]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv14943/koha/C4

Modified Files:
	Z3950.pm 
Log Message:
Removed the unecessary $dbh argument from being passed.
Resolved a few minor FIXMEs.


Index: Z3950.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Z3950.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** Z3950.pm	13 Oct 2002 08:30:53 -0000	1.6
--- Z3950.pm	19 Feb 2003 01:01:06 -0000	1.7
***************
*** 86,93 ****
  =cut
  #'
  sub z3950servername {
      # inputs
      my (
- 	$dbh,		# FIXME - Unused argument
  	$srvid,		# server id number
  	$default,
--- 86,93 ----
  =cut
  #'
+ 
  sub z3950servername {
      # inputs
      my (
  	$srvid,		# server id number
  	$default,
***************
*** 99,113 ****
      $dbh = C4::Context->dbh;
  
! 	# FIXME - Fix indentation
! 	my $sti=$dbh->prepare("select name
! 		from z3950servers
! 		where id=?");
! 	$sti->execute($srvid);
! 	if ( ! $sti->err ) {
! 	    ($longname)=$sti->fetchrow;
! 	}
! 	if (! $longname) {
! 	    $longname="$default";
! 	}
  	return $longname;
  } # sub z3950servername
--- 99,114 ----
      $dbh = C4::Context->dbh;
  
!     my $sti=$dbh->prepare("
!         select name 
! 	from z3950servers 
! 	where id=?");
! 	
!     $sti->execute($srvid);
!     if ( ! $sti->err ) {
!         ($longname)=$sti->fetchrow;
!     }
!     if (! $longname) {
!         $longname="$default";
!     }
  	return $longname;
  } # sub z3950servername
***************
*** 151,156 ****
      # input
      my (
- 	$dbh,		# DBI handle
- 			# FIXME - Unused argument
  	$query,		# value to look up
  	$type,		# type of value ("isbn", "lccn", etc).
--- 152,155 ----
***************
*** 205,212 ****
  
  	my $serverlist='';
! 	# FIXME - $serverlist = join(" ", @serverlist);
! 	foreach (@serverlist) {
! 	    $serverlist.="$_ ";
!     	} # foreach
  	chop $serverlist;
  
--- 204,209 ----
  
  	my $serverlist='';
! 	
! 	$severlist = join(" ", @serverlist);
  	chop $serverlist;
  
***************
*** 275,278 ****
--- 272,279 ----
  #--------------------------------------
  # $Log$
+ # Revision 1.7  2003/02/19 01:01:06  wolfpac444
+ # Removed the unecessary $dbh argument from being passed.
+ # Resolved a few minor FIXMEs.
+ #
  # Revision 1.6  2002/10/13 08:30:53  arensb
  # Deleted unused variables.