SF.net SVN: ledger-smb: [828] trunk/LedgerSMB

[..hidden..]

Revision: 828
          http://svn.sourceforge.net/ledger-smb/?rev=828&view=rev
Author:   einhverfr
Date:     2007-02-22 14:14:42 -0800 (Thu, 22 Feb 2007)

Log Message:
-----------
Fixing some data access issues

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB/PE.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-02-22 22:08:24 UTC (rev 827)
+++ trunk/LedgerSMB/Form.pm	2007-02-22 22:14:42 UTC (rev 828)
@@ -2408,7 +2408,7 @@
 	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 = ?

Modified: trunk/LedgerSMB/PE.pm
===================================================================
--- trunk/LedgerSMB/PE.pm	2007-02-22 22:08:24 UTC (rev 827)
+++ trunk/LedgerSMB/PE.pm	2007-02-22 22:14:42 UTC (rev 828)
@@ -207,7 +207,7 @@
   
 	my $dbh = $form->{dbh};
   
-	$form->{customer_id} ||= 'NULL';
+	$form->{customer_id} ||= undef;
 
 	$form->{projectnumber} 
 		= $form->update_defaults($myconfig, "projectnumber", $dbh) 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.