diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-02-22 22:14:42 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-02-22 22:14:42 +0000 |
| commit | e3d4565e5c2fedd2ebbdc6458490546b1f6bcebd (patch) | |
| tree | af212058c42310c789158d3c729be216945e4083 | |
| parent | 9f760e3f94f33373cbe655defcdb28092b45bbca (diff) | |
Fixing some data access issues
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@828 4979c152-3d1c-0410-bac9-87ea11338e46
| -rwxr-xr-x | LedgerSMB/Form.pm | 2 | ||||
| -rwxr-xr-x | 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) |