[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4/Circulation Renewals2.pm,1.5,1.5.2.1
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4/Circulation Renewals2.pm,1.5,1.5.2.1 |
Date: |
Thu, 03 Oct 2002 19:28:13 -0700 |
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)address@hidden;
! my $dbh=C4Connect;
my $renews = 1;
my $renewokay = 0;
--- 83,87 ----
# check renewal status
my ($env,$bornum,$itemno)address@hidden;
! 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)address@hidden;
! my $dbh=C4Connect;
if ($datedue eq "" ) {
#debug_msg($env, "getting date");
--- 115,119 ----
# mark book as renewed
my ($env,$bornum,$itemno,$datedue)address@hidden;
! 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)address@hidden;
my $charge=0;
! my $dbh=C4Connect;
my $item_type;
my $q1 = "select itemtypes.itemtype,rentalcharge from
--- 171,175 ----
my ($env, $itemno, $bornum)address@hidden;
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4/Circulation Renewals2.pm,1.5,1.5.2.1,
Andrew Arensburger <=