Fixed error updating custom fields and another error saving project not attached to customer

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1291 4979c152-3d1c-0410-bac9-87ea11338e46

2 files changed, 2 insertions, 2 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 87648020..6c3d3d5a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1537,7 +1537,7 @@ sub run_custom_queries {
         if ( $query_type eq 'UPDATE' ) {
             $query = "DELETE FROM $_ WHERE row_id = ?";
             my $sth = $dbh->prepare($query);
-            $sth->execute->( $self->{ "id" . "$linenum" } )
+            $sth->execute( $self->{ "id" . "$linenum" } )
               || $self->dberror($query);
         }
         elsif ( $query_type eq 'INSERT' ) {
diff --git a/LedgerSMB/PE.pm b/LedgerSMB/PE.pm
index 24247670..4e17360c 100755
--- a/LedgerSMB/PE.pm
+++ b/LedgerSMB/PE.pm
@@ -204,7 +204,7 @@ sub save_project {
 
     my $dbh = $form->{dbh};
 
-    $form->{customer_id} ||= 'NULL';
+    $form->{customer_id} ||= undef;
 
     $form->{projectnumber} =
       $form->update_defaults( $myconfig, "projectnumber", $dbh )