Bug 8418: load repeating holidays hash correctly

[koha_fer] / C4 / Accounts.pm

diff --git a/C4/Accounts.pm b/C4/Accounts.pm
index b7aef01..3606393 100644 (file)
--- a/C4/Accounts.pm
+++ b/C4/Accounts.pm
@@ -29,7 +29,7 @@ use vars qw($VERSION @ISA @EXPORT);
 
 BEGIN {
        # set the version for version checking
-       $VERSION = 3.03;
+    $VERSION = 3.07.00.049;
        require Exporter;
        @ISA    = qw(Exporter);
        @EXPORT = qw(
@@ -91,6 +91,8 @@ sub recordpayment {
     my $accdata    = "";
     my $branch     = C4::Context->userenv->{'branch'};
     my $amountleft = $data;
+    my $manager_id = 0;
+    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
 
     # begin transaction
     my $nextaccntno = getnextacctno($borrowernumber);
@@ -133,10 +135,10 @@ sub recordpayment {
     # create new line
     my $usth = $dbh->prepare(
         "INSERT INTO accountlines
-  (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding)
-  VALUES (?,?,now(),?,'Payment,thanks','Pay',?)"
+  (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id)
+  VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)"
     );
-    $usth->execute( $borrowernumber, $nextaccntno, 0 - $data, 0 - $amountleft );
+    $usth->execute( $borrowernumber, $nextaccntno, 0 - $data, 0 - $amountleft, $manager_id );
     $usth->finish;
     UpdateStats( $branch, 'payment', $data, '', '', '', $borrowernumber, $nextaccntno );
     $sth->finish;
@@ -301,15 +303,17 @@ sub chargelostitem{
 
     # OK, they haven't
     unless ($existing_charge_hashref) {
+        my $manager_id = 0;
+        $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
         # This item is on issue ... add replacement cost to the borrower's record and mark it returned
         #  Note that we add this to the account even if there's no replacement price, allowing some other
         #  process (or person) to update it, since we don't handle any defaults for replacement prices.
         my $accountno = getnextacctno($borrowernumber);
         my $sth2=$dbh->prepare("INSERT INTO accountlines
-        (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber)
-        VALUES (?,?,now(),?,?,'L',?,?)");
+        (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber,manager_id)
+        VALUES (?,?,now(),?,?,'L',?,?,?)");
         $sth2->execute($borrowernumber,$accountno,$amount,
-        $description,$amount,$itemnumber);
+        $description,$amount,$itemnumber,$manager_id);
         $sth2->finish;
     # FIXME: Log this ?
     }
@@ -688,6 +692,8 @@ sub recordpayment_selectaccts {
     my $accdata    = q{};
     my $branch     = C4::Context->userenv->{branch};
     my $amountleft = $amount;
+    my $manager_id = 0;
+    $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv;
     my $sql = 'SELECT * FROM accountlines WHERE (borrowernumber = ?) ' .
     'AND (amountoutstanding<>0) ';
     if (@{$accts} ) {
@@ -722,9 +728,9 @@ sub recordpayment_selectaccts {
 
     # create new line
     $sql = 'INSERT INTO accountlines ' .
-    '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding) ' .
-    q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?)|;
-    $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft );
+    '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id) ' .
+    q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|;
+    $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id );
     UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno );
     return;
 }