[Koha-cvs] CVS: koha/z3950 processz3950queue,1.10.2.3,1.10.2.4

[Paul POULAIN]

Update of /cvsroot/koha/koha/z3950
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22331/z3950

Modified Files:
      Tag: rel_2_0
	processz3950queue 
Log Message:
/me is a stupid guy : i changed in HEAD & commited in rel_2_0. Now, commiting into rel_2_0...

Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/z3950/processz3950queue,v
retrieving revision 1.10.2.3
retrieving revision 1.10.2.4
diff -C2 -r1.10.2.3 -r1.10.2.4
*** processz3950queue	26 Feb 2004 16:39:28 -0000	1.10.2.3
--- processz3950queue	26 Feb 2004 20:40:08 -0000	1.10.2.4
***************
*** 105,109 ****
      $<=$uid;
  }
! my $dbh = C4::Context->dbh;
  
  # we begin the script, so "unactive" every pending request : they will never give anything, the script died :-(
--- 105,114 ----
      $<=$uid;
  }
! my $db_driver = C4::Context->config("db_scheme") || "mysql";
! my $db_name   = C4::Context->config("database");
! my $db_host   = C4::Context->config("hostname");
! my $db_user   = C4::Context->config("user");
! my $db_passwd = C4::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 :-(
***************
*** 180,184 ****
  # and connect to z3950 server
  #FIXME: why do we need $dbi ? can't we use $dbh ?
! 							my $dbi = C4::Context->dbh;
  							my ($name, $server, $database, $user, $password,$syntax) = split(/\//, $serverinfo, 6);
  							$globalname=$name;
--- 185,194 ----
  # and connect to z3950 server
  #FIXME: why do we need $dbi ? can't we use $dbh ?
! 							my $db_driver = C4::Context->config("db_scheme") || "mysql";
! 							my $db_name   = C4::Context->config("database");
! 							my $db_host   = C4::Context->config("hostname");
! 							my $db_user   = C4::Context->config("user");
! 							my $db_passwd = C4::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;