[Koha-devel] CVS: koha/C4/Circulation Renewals2.pm,1.1.1.1,1.2

[Chris Cormack]

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