[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2
From: |
Chris Cormack |
Subject: |
[Koha-devel] CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2 |
Date: |
Tue, 08 May 2001 17:05:59 -0700 |
Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv19303/C4/Circulation
Modified Files:
Renewals2.pm
Log Message:
Renewing a rental or pay item from the borrowers record screen
Now adds a charge to the borrowers account
Index: Renewals2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Renewals2.pm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** Renewals2.pm 2000/12/19 23:45:56 1.1.1.1
--- Renewals2.pm 2001/05/09 00:05:57 1.2
***************
*** 13,16 ****
--- 13,19 ----
use C4::Database;
use C4::Stats;
+ use C4::Accounts2;
+ use C4::Circulation::Circ2;
+
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
***************
*** 130,134 ****
--- 133,151 ----
$sth->finish;
UpdateStats($env,$env->{'branchcode'},'renew','','',$itemno);
+ my ($charge,$type)=calc_charges($env, $itemno, $bornum);
+ if ($charge > 0){
+ my $accountno=getnextacctno($env,$bornum,$dbh);
+ my $item=getiteminformation($env, $itemno);
+ my $account="Insert into accountlines
+
(borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
+ values
+ ('$bornum','$accountno',now(),$charge,'Renewal of Rental Item
$item->{'title'} $item->{'barcode'}','Rent',$charge,'$itemno')";
+ $sth=$dbh->prepare($account);
+ $sth->execute;
+ $sth->finish;
+ # print $account;
+ }
$dbh->disconnect;
+
# return();
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2,
Chris Cormack <=
- Prev by Date:
[Koha-devel] CVS: koha/C4 Groups.pm,NONE,1.1
- Next by Date:
[Koha-devel] CVS: koha mancredit.pl,1.1,1.2 maninvoice.pl,1.1,1.2
- Previous by thread:
[Koha-devel] CVS: koha/C4 Groups.pm,NONE,1.1
- Next by thread:
[Koha-devel] CVS: koha mancredit.pl,1.1,1.2 maninvoice.pl,1.1,1.2
- Index(es):