[Koha-cvs] CVS: koha/acqui.simple processz3950queue,1.5,1.5.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv19815

Modified Files:
      Tag: arensb-context
	processz3950queue 
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.


Index: processz3950queue
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/processz3950queue,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** processz3950queue	2 Jul 2002 22:08:50 -0000	1.5
--- processz3950queue	4 Oct 2002 02:29:13 -0000	1.5.2.1
***************
*** 1,4 ****
  #!/usr/bin/perl
! use C4::Database;
  use DBI;
  #use strict;
--- 1,4 ----
  #!/usr/bin/perl
! use C4::Context;
  use DBI;
  #use strict;
***************
*** 27,31 ****
      
  
! my $dbh=C4Connect;
  
  my $sth=$dbh->prepare("update z3950results set active=0");
--- 27,31 ----
      
  
! my $dbh = C4::Context->dbh;
  
  my $sth=$dbh->prepare("update z3950results set active=0");
***************
*** 100,104 ****
  			    #$sti->finish;
  			    #$dbh->disconnect;
! 			    my $dbi=C4Connect;
  			    my ($name, $server, $database, $user, $password) = split(/\//, $serverinfo, 5);
  			    $server=~/(.*)\:(\d+)/;
--- 100,104 ----
  			    #$sti->finish;
  			    #$dbh->disconnect;
! 			    my $dbi = C4::Context->dbh;
  			    my ($name, $server, $database, $user, $password) = split(/\//, $serverinfo, 5);
  			    $server=~/(.*)\:(\d+)/;
***************
*** 215,219 ****
  			    $stj->execute;
  			    eval {$stj->finish};
- 			    $dbi->disconnect;
  			    print "    $server done.\n";
  			    exit;
--- 215,218 ----