diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-27 02:27:48 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-27 02:27:48 +0000 |
commit | d4f3ec54f158e60565f7eccac83c88bf1cb934b6 (patch) | |
tree | 3fd850edba4103200bccb7f355fcbf1b3d12ab1c /LedgerSMB.pm | |
parent | 7595b9fa3b219c3e0ad3eed3692445c2466772d7 (diff) |
AR/AP Breakage Fixed
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1909 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 9 |
1 files changed, 9 insertions, 0 deletions
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}; |