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(); }