[Koha-cvs] CVS: koha/C4/Circulation Borrower.pm,1.2,1.2.2.1

[Andrew Arensburger]

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

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


Index: Borrower.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Borrower.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** Borrower.pm 14 Aug 2002 18:12:52 -0000      1.2
--- Borrower.pm 4 Oct 2002 02:27:11 -0000       1.2.2.1
***************
*** 25,29 ****
  require Exporter;
  use DBI;
! use C4::Database;
  use C4::Accounts;
  use C4::InterfaceCDK;
--- 25,29 ----
  require Exporter;
  use DBI;
! use C4::Context;
  use C4::Accounts;
  use C4::InterfaceCDK;
***************
*** 319,323 ****
  sub Borenq {
    my ($env)address@hidden;
!   my $dbh=C4Connect;
    #get borrower guff
    my $bornum;
--- 319,323 ----
  sub Borenq {
    my ($env)address@hidden;
!   my $dbh = C4::Context->dbh;
    #get borrower guff
    my $bornum;
***************
*** 338,342 ****
         }
      }
-   $dbh->disconnect;
    }
    return $reason;
--- 338,341 ----
***************
*** 351,355 ****
  sub reserveslist {
    my ($env,$borrower,$amount,$odues,$waiting) = @_;
!   my $dbh=C4Connect;
    my @items;
    my $x=0;
--- 350,354 ----
  sub reserveslist {
    my ($env,$borrower,$amount,$odues,$waiting) = @_;
!   my $dbh = C4::Context->dbh;
    my @items;
    my $x=0;
***************
*** 367,375 ****
    $sth->finish;
    reservesdisplay($env,$borrower,$amount,$odues,address@hidden);
-   $dbh->disconnect;
  }
    
  sub NewBorrowerNumber {
!   my $dbh=C4Connect;
    my $sth=$dbh->prepare("Select max(borrowernumber) from borrowers");
    $sth->execute;
--- 366,373 ----
    $sth->finish;
    reservesdisplay($env,$borrower,$amount,$odues,address@hidden);
  }
    
  sub NewBorrowerNumber {
!   my $dbh = C4::Context->dbh;
    my $sth=$dbh->prepare("Select max(borrowernumber) from borrowers");
    $sth->execute;
***************
*** 378,387 ****
    $data->{'max(borrowernumber)'}++;
    return($data->{'max(borrowernumber)'});
-   $dbh->disconnect;
  }
  
  sub findguarantees{
    my ($bornum)address@hidden;
!   my $dbh=C4Connect;
    my $query="select cardnumber,borrowernumber from borrowers where 
    guarantor='$bornum'";
--- 376,384 ----
    $data->{'max(borrowernumber)'}++;
    return($data->{'max(borrowernumber)'});
  }
  
  sub findguarantees{
    my ($bornum)address@hidden;
!   my $dbh = C4::Context->dbh;
    my $query="select cardnumber,borrowernumber from borrowers where 
    guarantor='$bornum'";
***************
*** 395,399 ****
    }
    $sth->finish;
-   $dbh->disconnect;
    return($i,address@hidden);
  }
--- 392,395 ----