[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 ----