[Koha-cvs] CVS: koha/C4 test.pl,1.4,1.4.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv19057

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


Index: test.pl
===================================================================
RCS file: /cvsroot/koha/koha/C4/test.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** test.pl	14 Aug 2002 18:12:52 -0000	1.4
--- test.pl	4 Oct 2002 02:26:53 -0000	1.4.2.1
***************
*** 20,27 ****
  use strict;
  require Exporter;
! use C4::Database;
  use C4::Catalogue;
  
! our $dbh=&C4Connect;
  $dbh->do("delete from marc_subfield_table");
  $dbh->do("delete from marc_blob_subfield");
--- 20,27 ----
  use strict;
  require Exporter;
! use C4::Context;
  use C4::Catalogue;
  
! our $dbh = C4::Context->dbh;
  $dbh->do("delete from marc_subfield_table");
  $dbh->do("delete from marc_blob_subfield");