From e3d4565e5c2fedd2ebbdc6458490546b1f6bcebd Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 22 Feb 2007 22:14:42 +0000
Subject: Fixing some data access issues

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@828 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 2 +-
 LedgerSMB/PE.pm   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 601b74c1..d728f428 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2408,7 +2408,7 @@ sub update_status {
 	my $dbh = $self->{dbh};
 
 	my %queued = split / +/, $self->{queued};
-	my $spoolfile = ($queued{$self->{formname}}) ? "'$queued{$self->{formname}}'" : 'NULL';
+	my $spoolfile = ($queued{$self->{formname}}) ? "'$queued{$self->{formname}}'" : undef;
 
 	my $query = qq|DELETE FROM status
 					WHERE formname = ?
diff --git a/LedgerSMB/PE.pm b/LedgerSMB/PE.pm
index 58d7a6cf..8012ad7d 100755
--- a/LedgerSMB/PE.pm
+++ b/LedgerSMB/PE.pm
@@ -207,7 +207,7 @@ sub save_project {
   
 	my $dbh = $form->{dbh};
   
-	$form->{customer_id} ||= 'NULL';
+	$form->{customer_id} ||= undef;
 
 	$form->{projectnumber} 
 		= $form->update_defaults($myconfig, "projectnumber", $dbh) 
-- 
cgit v1.2.3