[Koha-cvs] CVS: koha/C4 Accounts.pm,1.5,1.5.2.1

[Andrew Arensburger]

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

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


Index: Accounts.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Accounts.pm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** Accounts.pm 23 Sep 2002 13:49:46 -0000      1.5
--- Accounts.pm 4 Oct 2002 02:21:59 -0000       1.5.2.1
***************
*** 22,26 ****
  require Exporter;
  use DBI;
! use C4::Database;
  use C4::Format;
  use C4::Search;
--- 22,26 ----
  require Exporter;
  use DBI;
! use C4::Context;
  use C4::Format;
  use C4::Search;
***************
*** 104,108 ****
    #print put money owing give person opportunity to pay it off
    my ($env,$dummy,$bornumber,$total)address@hidden;
!   my $dbh = &C4Connect;
    #get borrower record
    my $sth=$dbh->prepare("select * from borrowers
--- 104,108 ----
    #print put money owing give person opportunity to pay it off
    my ($env,$dummy,$bornumber,$total)address@hidden;
!   my $dbh = C4::Context->dbh;
    #get borrower record
    my $sth=$dbh->prepare("select * from borrowers
***************
*** 145,149 ****
      $total=&checkaccount($env,$bornumber,$dbh);
    }
-   $dbh->disconnect;
    return($total);
  
--- 145,148 ----