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

[Andrew Arensburger]

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

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


Index: Renewals2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals2.pm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** Renewals2.pm	14 Aug 2002 18:12:52 -0000	1.5
--- Renewals2.pm	4 Oct 2002 02:28:11 -0000	1.5.2.1
***************
*** 29,33 ****
  require Exporter;
  use DBI;
- use C4::Database;
  use C4::Stats;
  use C4::Accounts2;
--- 29,32 ----
***************
*** 84,88 ****
    # check renewal status
    my ($env,$bornum,$itemno)=@_;
!   my $dbh=C4Connect;
    my $renews = 1;
    my $renewokay = 0;
--- 83,87 ----
    # check renewal status
    my ($env,$bornum,$itemno)=@_;
!   my $dbh = C4::Context->dbh;
    my $renews = 1;
    my $renewokay = 0;
***************
*** 109,113 ****
    }   
    $sth1->finish;
-   $dbh->disconnect;
    return($renewokay);    
  }
--- 108,111 ----
***************
*** 117,121 ****
    # mark book as renewed
    my ($env,$bornum,$itemno,$datedue)=@_;
!   my $dbh=C4Connect;
    if ($datedue eq "" ) {    
      #debug_msg($env, "getting date");
--- 115,119 ----
    # mark book as renewed
    my ($env,$bornum,$itemno,$datedue)=@_;
!   my $dbh = C4::Context->dbh;
    if ($datedue eq "" ) {    
      #debug_msg($env, "getting date");
***************
*** 164,168 ****
  #     print $account;
    }
-   $dbh->disconnect;
   
  #  return();
--- 162,165 ----
***************
*** 174,178 ****
    my ($env, $itemno, $bornum)=@_;           
    my $charge=0;   
!   my $dbh=C4Connect;
    my $item_type;               
    my $q1 = "select itemtypes.itemtype,rentalcharge from
--- 171,175 ----
    my ($env, $itemno, $bornum)=@_;           
    my $charge=0;   
!   my $dbh = C4::Context->dbh;
    my $item_type;               
    my $q1 = "select itemtypes.itemtype,rentalcharge from
***************
*** 200,204 ****
    }                                   
    $sth1->finish;  
-   $dbh->disconnect;
  #  print "item $item_type";
    return ($charge,$item_type);         
--- 197,200 ----