| 
      
            Lines 135-144
          sub recordpayment {
      
      
        Link Here
      
     | 
  
        
          | 135 | 
              # create new line  | 
          135 | 
              # create new line  | 
        
        
          | 136 | 
              my $usth = $dbh->prepare(  | 
          136 | 
              my $usth = $dbh->prepare(  | 
        
        
          | 137 | 
                  "INSERT INTO accountlines  | 
          137 | 
                  "INSERT INTO accountlines  | 
        
          
            
              | 138 | 
                (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id)  | 
              138 | 
                (borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id,branchcode)  | 
            
            
              | 139 | 
                VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)"  | 
              139 | 
                VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?,?)"  | 
            
        
          | 140 | 
              );  | 
          140 | 
              );  | 
        
          
            
              | 141 | 
                  $usth->execute( $borrowernumber, $nextaccntno, 0 - $data, 0 - $amountleft, $manager_id );  | 
              141 | 
                  $usth->execute( $borrowernumber, $nextaccntno, 0 - $data, 0 - $amountleft, $manager_id, $branch );  | 
            
        
          | 142 | 
              $usth->finish;  | 
          142 | 
              $usth->finish;  | 
        
        
          | 143 | 
              UpdateStats( $branch, 'payment', $data, '', '', '', $borrowernumber, $nextaccntno );  | 
          143 | 
              UpdateStats( $branch, 'payment', $data, '', '', '', $borrowernumber, $nextaccntno );  | 
        
        
          | 144 | 
              $sth->finish;  | 
          144 | 
              $sth->finish;  | 
        
  
    | 
      
            Lines 207-216
          sub makepayment {
      
      
        Link Here
      
     | 
  
        
          | 207 | 
                  my $ins =   | 
          207 | 
                  my $ins =   | 
        
        
          | 208 | 
                      $dbh->prepare(   | 
          208 | 
                      $dbh->prepare(   | 
        
        
          | 209 | 
                          "INSERT   | 
          209 | 
                          "INSERT   | 
        
          
            
              | 210 | 
                                  INTO accountlines (borrowernumber, accountno, date, amount, itemnumber, description, accounttype, amountoutstanding, manager_id)  | 
              210 | 
                                  INTO accountlines (borrowernumber, accountno, date, amount, itemnumber, description, accounttype, amountoutstanding, manager_id, branchcode)  | 
            
            
              | 211 | 
                                  VALUES ( ?, ?, now(), ?, ?, 'Payment,thanks', 'Pay', 0, ?)"  | 
              211 | 
                                  VALUES ( ?, ?, now(), ?, ?, 'Payment,thanks', 'Pay', 0, ?, ?)"  | 
            
        
          | 212 | 
                      );  | 
          212 | 
                      );  | 
        
          
            
              | 213 | 
                      $ins->execute($borrowernumber, $nextaccntno, $payment, $data->{'itemnumber'}, $manager_id); | 
              213 | 
                      $ins->execute($borrowernumber, $nextaccntno, $payment, $data->{'itemnumber'}, $manager_id, C4::Context->userenv->{'branch'}); | 
            
        
          | 214 | 
                  $ins->finish;  | 
          214 | 
                  $ins->finish;  | 
        
        
          | 215 | 
              }  | 
          215 | 
              }  | 
        
        
          | 216 | 
           | 
          216 | 
           | 
        
  
    | 
      
            Lines 309-318
          sub chargelostitem{
      
      
        Link Here
      
     | 
  
        
          | 309 | 
                  #  process (or person) to update it, since we don't handle any defaults for replacement prices.  | 
          309 | 
                  #  process (or person) to update it, since we don't handle any defaults for replacement prices.  | 
        
        
          | 310 | 
                  my $accountno = getnextacctno($borrowernumber);  | 
          310 | 
                  my $accountno = getnextacctno($borrowernumber);  | 
        
        
          | 311 | 
                  my $sth2=$dbh->prepare("INSERT INTO accountlines | 
          311 | 
                  my $sth2=$dbh->prepare("INSERT INTO accountlines | 
        
          
            
              | 312 | 
                      (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber,manager_id)  | 
              312 | 
                      (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber,manager_id,branchcode)  | 
            
            
              | 313 | 
                      VALUES (?,?,now(),?,?,'L',?,?,?)");  | 
              313 | 
                      VALUES (?,?,now(),?,?,'L',?,?,?,?)");  | 
            
        
          | 314 | 
                  $sth2->execute($borrowernumber,$accountno,$amount,  | 
          314 | 
                  $sth2->execute($borrowernumber,$accountno,$amount,  | 
        
          
            
              | 315 | 
                      $description,$amount,$itemnumber,$manager_id);  | 
              315 | 
                      $description,$amount,$itemnumber,$manager_id,C4::Context->userenv->{'branch'}); | 
            
        
          | 316 | 
                  $sth2->finish;  | 
          316 | 
                  $sth2->finish;  | 
        
        
          | 317 | 
              # FIXME: Log this ?  | 
          317 | 
              # FIXME: Log this ?  | 
        
        
          | 318 | 
              }  | 
          318 | 
              }  | 
        
  
    | 
      
            Lines 348-353
          sub manualinvoice {
      
      
        Link Here
      
     | 
  
        
          | 348 | 
              my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_;  | 
          348 | 
              my ( $borrowernumber, $itemnum, $desc, $type, $amount, $note ) = @_;  | 
        
        
          | 349 | 
              my $manager_id = 0;  | 
          349 | 
              my $manager_id = 0;  | 
        
        
          | 350 | 
              $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 
          350 | 
              $manager_id = C4::Context->userenv->{'number'} if C4::Context->userenv; | 
        
            
               | 
               | 
              351 | 
                  my $branchcode = C4::Context->userenv->{'branch'}; | 
            
        
          | 351 | 
              my $dbh      = C4::Context->dbh;  | 
          352 | 
              my $dbh      = C4::Context->dbh;  | 
        
        
          | 352 | 
              my $notifyid = 0;  | 
          353 | 
              my $notifyid = 0;  | 
        
        
          | 353 | 
              my $insert;  | 
          354 | 
              my $insert;  | 
        
  
    | 
      
            Lines 398-413
          sub manualinvoice {
      
      
        Link Here
      
     | 
  
        
          | 398 | 
                  $desc .= ' ' . $itemnum;  | 
          399 | 
                  $desc .= ' ' . $itemnum;  | 
        
        
          | 399 | 
                  my $sth = $dbh->prepare(  | 
          400 | 
                  my $sth = $dbh->prepare(  | 
        
        
          | 400 | 
                      'INSERT INTO  accountlines  | 
          401 | 
                      'INSERT INTO  accountlines  | 
        
          
            
              | 401 | 
                                      (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding, itemnumber,notify_id, note, manager_id)  | 
              402 | 
                                      (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding, itemnumber,notify_id, note, manager_id, branchcode)  | 
            
            
              | 402 | 
                      VALUES (?, ?, now(), ?,?, ?,?,?,?,?,?)');  | 
              403 | 
                      VALUES (?, ?, now(), ?,?, ?,?,?,?,?,?,?)');  | 
            
            
              | 403 | 
                   $sth->execute($borrowernumber, $accountno, $amount, $desc, $type, $amountleft, $itemnum,$notifyid, $note, $manager_id) || return $sth->errstr;  | 
              404 | 
                   $sth->execute($borrowernumber, $accountno, $amount, $desc, $type, $amountleft, $itemnum,$notifyid, $note, $manager_id, $branchcode) || return $sth->errstr;  | 
            
        
          | 404 | 
            } else { | 
          405 | 
            } else { | 
        
        
          | 405 | 
              my $sth=$dbh->prepare("INSERT INTO  accountlines | 
          406 | 
              my $sth=$dbh->prepare("INSERT INTO  accountlines | 
        
          
            
              | 406 | 
                          (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding,notify_id, note, manager_id)  | 
              407 | 
                          (borrowernumber, accountno, date, amount, description, accounttype, amountoutstanding,notify_id, note, manager_id, branchcode)  | 
            
            
              | 407 | 
                          VALUES (?, ?, now(), ?, ?, ?, ?,?,?,?)"  | 
              408 | 
                          VALUES (?, ?, now(), ?, ?, ?, ?,?,?,?,?)"  | 
            
        
          | 408 | 
                  );  | 
          409 | 
                  );  | 
        
        
          | 409 | 
                  $sth->execute( $borrowernumber, $accountno, $amount, $desc, $type,  | 
          410 | 
                  $sth->execute( $borrowernumber, $accountno, $amount, $desc, $type,  | 
        
          
            
              | 410 | 
                          $amountleft, $notifyid, $note, $manager_id );  | 
              411 | 
                          $amountleft, $notifyid, $note, $manager_id, $branchcode );  | 
            
        
          | 411 | 
              }  | 
          412 | 
              }  | 
        
        
          | 412 | 
              return 0;  | 
          413 | 
              return 0;  | 
        
        
          | 413 | 
          }  | 
          414 | 
          }  | 
        
  
    | 
      
            Lines 727-735
          sub recordpayment_selectaccts {
      
      
        Link Here
      
     | 
  
        
          | 727 | 
           | 
          728 | 
           | 
        
        
          | 728 | 
              # create new line  | 
          729 | 
              # create new line  | 
        
        
          | 729 | 
              $sql = 'INSERT INTO accountlines ' .  | 
          730 | 
              $sql = 'INSERT INTO accountlines ' .  | 
        
          
            
              | 730 | 
                  '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id) ' .  | 
              731 | 
                  '(borrowernumber, accountno,date,amount,description,accounttype,amountoutstanding,manager_id,branchcode) ' .  | 
            
        
          | 731 | 
              q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|;  | 
          732 | 
              q|VALUES (?,?,now(),?,'Payment,thanks','Pay',?,?)|;  | 
        
          
            
              | 732 | 
                  $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id ); | 
              733 | 
                  $dbh->do($sql,{},$borrowernumber, $nextaccntno, 0 - $amount, 0 - $amountleft, $manager_id, $branch ); | 
            
        
          | 733 | 
              UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno );  | 
          734 | 
              UpdateStats( $branch, 'payment', $amount, '', '', '', $borrowernumber, $nextaccntno );  | 
        
        
          | 734 | 
              return;  | 
          735 | 
              return;  | 
        
        
          | 735 | 
          }  | 
          736 | 
          }  | 
        
  
    | 
      
            Lines 752-767
          sub makepartialpayment {
      
      
        Link Here
      
     | 
  
        
          | 752 | 
                  'SELECT * FROM accountlines WHERE  accountlines_id=?',undef,$accountlines_id);  | 
          753 | 
                  'SELECT * FROM accountlines WHERE  accountlines_id=?',undef,$accountlines_id);  | 
        
        
          | 753 | 
              my $new_outstanding = $data->{amountoutstanding} - $amount; | 
          754 | 
              my $new_outstanding = $data->{amountoutstanding} - $amount; | 
        
        
          | 754 | 
           | 
          755 | 
           | 
        
          
            
              | 755 | 
                  my $update = 'UPDATE  accountlines SET amountoutstanding = ?  WHERE   accountlines_id = ? ';  | 
              756 | 
                  my $update = 'UPDATE accountlines SET amountoutstanding = ? WHERE accountlines_id = ? ';  | 
            
        
          | 756 | 
              $dbh->do( $update, undef, $new_outstanding, $accountlines_id);  | 
          757 | 
              $dbh->do( $update, undef, $new_outstanding, $accountlines_id);  | 
        
        
          | 757 | 
           | 
          758 | 
           | 
        
        
          | 758 | 
              # create new line  | 
          759 | 
              # create new line  | 
        
          
            
              | 759 | 
                  my $insert = 'INSERT INTO accountlines (borrowernumber, accountno, date, amount, '  | 
              760 | 
                  my $insert = "  | 
            
            
              | 760 | 
                  .  'description, accounttype, amountoutstanding, itemnumber, manager_id) '  | 
              761 | 
                      INSERT INTO accountlines (borrowernumber, accountno, date, amount,  | 
            
            
              | 761 | 
                  . ' VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?)';  | 
              762 | 
                      description, accounttype, amountoutstanding, itemnumber, manager_id, branchcode)  | 
            
            
               | 
               | 
              763 | 
                      VALUES (?, ?, now(), ?, ?, ?, 0, ?, ?, ?)  | 
            
            
              | 764 | 
                  ";  | 
            
        
          | 762 | 
           | 
          765 | 
           | 
        
        
          | 763 | 
              $dbh->do(  $insert, undef, $borrowernumber, $nextaccntno, $amount,  | 
          766 | 
              $dbh->do(  $insert, undef, $borrowernumber, $nextaccntno, $amount,  | 
        
          
            
              | 764 | 
                      "Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id); | 
              767 | 
                      "Payment, thanks - $user", 'Pay', $data->{'itemnumber'}, $manager_id, C4::Context->userenv->{'branch'}); | 
            
        
          | 765 | 
           | 
          768 | 
           | 
        
        
          | 766 | 
              UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno );  | 
          769 | 
              UpdateStats( $user, 'payment', $amount, '', '', '', $borrowernumber, $accountno );  | 
        
        
          | 767 | 
           | 
          770 | 
           |