From d4f3ec54f158e60565f7eccac83c88bf1cb934b6 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 27 Nov 2007 02:27:48 +0000
Subject: AR/AP Breakage Fixed

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1909 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index b4d6c360..61e655ec 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -150,6 +150,15 @@ sub new {
 
     $self->merge($params);
 
+    # Adding this so that empty values are stored in the db as NULL's.  If
+    # stored procedures want to handle them differently, they must opt to do so.
+    # -- CT
+    for (keys %$self){
+        if ($self->{$_} eq ''){
+            $self->{$_} = undef;
+        }
+    }
+
     if ($self->is_run_mode('cgi', 'mod_perl')) {
         $ENV{HTTP_COOKIE} =~ s/;\s*/;/g;
         my @cookies = split /;/, $ENV{HTTP_COOKIE};
-- 
cgit v1.2.3