[Koha-cvs] CVS: koha/marc updatedb2marc.pl,1.1,1.1.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv22828

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


Index: updatedb2marc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/updatedb2marc.pl,v
retrieving revision 1.1
retrieving revision 1.1.2.1
diff -C2 -r1.1 -r1.1.2.1
*** updatedb2marc.pl    10 Sep 2002 14:02:42 -0000      1.1
--- updatedb2marc.pl    4 Oct 2002 02:40:26 -0000       1.1.2.1
***************
*** 23,27 ****
  use strict;
  require Exporter;
! use C4::Database;
  use C4::Catalogue;
  use C4::Biblio;
--- 23,27 ----
  use strict;
  require Exporter;
! use C4::Context;
  use C4::Catalogue;
  use C4::Biblio;
***************
*** 30,34 ****
  
  #die;
! my $dbh=&C4Connect;
  $dbh->do("delete from marc_biblio");
  $dbh->do("delete from marc_blob_subfield");
--- 30,34 ----
  
  #die;
! my $dbh = C4::Context->dbh;
  $dbh->do("delete from marc_biblio");
  $dbh->do("delete from marc_blob_subfield");