[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)address@hidden;
+  my ($bornumber,$accountno,$amount,$user,$branchcode)address@hidden;
+  
   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