[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/03/26 16:29:33

Modified files:
	C4             : Accounts2.pm 

Log message:
	record payment was not inserting the branchcode.

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

Patches:
Index: Accounts2.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Accounts2.pm,v
retrieving revision 1.22.4.1.2.1
retrieving revision 1.22.4.1.2.2
diff -u -b -r1.22.4.1.2.1 -r1.22.4.1.2.2
--- Accounts2.pm	9 Feb 2007 17:17:22 -0000	1.22.4.1.2.1
+++ Accounts2.pm	26 Mar 2007 16:29:33 -0000	1.22.4.1.2.2
@@ -83,7 +83,7 @@
   my $dbh = C4::Context->dbh;
   my $newamtos = 0;
   my $accdata = "";
-  my $branch=$env->{'branchcode'};
+  my $branch = $env->{'branchcode'};
   my $amountleft = $data;
   # begin transaction
   my $nextaccntno = getnextacctno($env,$bornumber,$dbh);
@@ -114,9 +114,9 @@
   }
   # create new line
   my $usth = $dbh->prepare("insert into accountlines
-  (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)
-  values (?,?,now(),?,'Payment,thanks','Pay',?)");
-  $usth->execute($bornumber,$nextaccntno,0-$data,0-$amountleft);
+  (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,branchcode)
+  values (?,?,now(),?,'Payment,thanks','Pay',?,?)");
+  $usth->execute($bornumber,$nextaccntno,0-$data,0-$amountleft,$branch);
   $usth->finish;
   UpdateStats($env,$branch,'payment',$data,'','','',$bornumber);
   $sth->finish;