[Koha-cvs] CVS: koha/misc fixborrower.pl,1.3,1.3.2.1

[Andrew Arensburger]

Update of /cvsroot/koha/koha/misc
In directory usw-pr-cvs1:/tmp/cvs-serv23866

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


Index: fixborrower.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/fixborrower.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** fixborrower.pl      14 Aug 2002 18:12:54 -0000      1.3
--- fixborrower.pl      4 Oct 2002 02:44:57 -0000       1.3.2.1
***************
*** 23,30 ****
  # Suite 330, Boston, MA  02111-1307 USA
  
! use C4::Database;
  use strict;
  
! my $dbh=C4Connect;
  
  my $query = "Select * from categories where (categorycode like 'L%' or 
categorycode like 'F%'
--- 23,30 ----
  # Suite 330, Boston, MA  02111-1307 USA
  
! use C4::Context;
  use strict;
  
! my $dbh = C4::Context->dbh;
  
  my $query = "Select * from categories where (categorycode like 'L%' or 
categorycode like 'F%'
***************
*** 249,252 ****
      $sth->finish;
  }
- 
- $dbh->disconnect;
--- 249,250 ----