From 9941434d2690d04e04e720f26874ff349c3dc971 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 28 Mar 2008 00:20:52 +0000
Subject: Correcting issues with payment: 1) paying against negative
 transactions causes *positive* payments 2) payment screen is corrupted on
 return

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2120 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/DBObject/Payment.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'LedgerSMB/DBObject')

diff --git a/LedgerSMB/DBObject/Payment.pm b/LedgerSMB/DBObject/Payment.pm
index 7e85e049..02f3aad5 100644
--- a/LedgerSMB/DBObject/Payment.pm
+++ b/LedgerSMB/DBObject/Payment.pm
@@ -472,7 +472,7 @@ sub post_bulk {
             if ($invoice_subarray !~ /^\{\d+\,\-?\d*\.?\d+\}$/){
                 $self->error("Invalid subarray: $invoice_subarray");
             }
-            $invoice_subarray =~ s/[^0123456789{},.]//; 
+            $invoice_subarray =~ s/[^0123456789{},.-]//; 
 	    if ($invoice_array eq '{}'){ # Omit comma
                 $invoice_array = "{$invoice_subarray}";
 	    } else {
-- 
cgit v1.2.3