[Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.7,1.7.2.1

[Andrew Arensburger]

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

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


Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/bulkmarcimport.pl,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -C2 -r1.7 -r1.7.2.1
*** bulkmarcimport.pl   14 Aug 2002 18:12:52 -0000      1.7
--- bulkmarcimport.pl   4 Oct 2002 02:29:04 -0000       1.7.2.1
***************
*** 46,50 ****
  
  
! use C4::Database;
  use CGI;
  use DBI;
--- 46,50 ----
  
  
! use C4::Context;
  use CGI;
  use DBI;
***************
*** 53,57 ****
  use C4::Biblio;
  use C4::Output;
! my $dbh=C4Connect;
  my $userid=$ENV{'REMOTE_USER'};
  %tagtext = (
--- 53,57 ----
  use C4::Biblio;
  use C4::Output;
! my $dbh = C4::Context->dbh;
  my $userid=$ENV{'REMOTE_USER'};
  %tagtext = (
***************
*** 114,118 ****
  
  
! my $dbh=C4Connect;
  if ($file) {
      open (F, "$file");
--- 114,118 ----
  
  
! my $dbh = C4::Context->dbh;
  if ($file) {
      open (F, "$file");
***************
*** 521,523 ****
      }
  }
- $dbh->disconnect;
--- 521,522 ----