[Koha-cvs] koha/C4 Accounts2.pm [dev_week]

[Kyle Hall]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Kyle Hall <kylemhall>	07/02/09 17:17:22

Modified files:
	C4             : Accounts2.pm 

Log message:
	

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Accounts2.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.22.4.1&r2=1.22.4.1.2.1

Patches:
Index: Accounts2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Accounts2.pm,v
retrieving revision 1.22.4.1
retrieving revision 1.22.4.1.2.1
diff -u -b -r1.22.4.1 -r1.22.4.1.2.1
--- Accounts2.pm	19 May 2005 21:26:55 -0000	1.22.4.1
+++ Accounts2.pm	9 Feb 2007 17:17:22 -0000	1.22.4.1.2.1
@@ -143,7 +143,8 @@
   #here we update both the accountoffsets and the account lines
   #updated to check, if they are paying off a lost item, we return the item
   # from their card, and put a note on the item record
-  my ($bornumber,$accountno,$amount,$user)=@_;
+  my ($bornumber,$accountno,$amount,$user,$branchcode)=@_;
+  
   my $env;
   my $dbh = C4::Context->dbh;
   # begin transaction
@@ -174,9 +175,9 @@
   $dbh->do(<<EOT);
 	INSERT INTO	accountlines
 			(borrowernumber, accountno, date, amount,
-			 description, accounttype, amountoutstanding)
+			 description, accounttype, amountoutstanding, branchcode)
 	VALUES		($bornumber, $nextaccntno, now(), $payment,
-			'Payment,thanks - $user', 'Pay', 0)
+			'Payment,thanks - $user', 'Pay', 0, '$branchcode')
 EOT
 
   # FIXME - The second argument to &UpdateStats is supposed to be the