Correcting defaults setting logic.

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

1 files changed, 8 insertions, 16 deletions

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index b6834e53..3885829e 100644
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -1833,22 +1833,14 @@ sub save_defaults {
 				    $sth_defcheck->execute() || $form->dberror("execute defaults $_");
 			            while(my $found1=$sth_defcheck->fetchrow()){$found=$found1;}
 				    
-				    if($val ne '') 
-				    {
-					  if($found)
-					  {
-						$dbh->do("update defaults set value=" . $dbh->quote($val) . " where setting_key='$_';");
-					  }
-					  else
-					  {
-						$dbh->do("insert into defaults(value,setting_key) values( " . $dbh->quote($val) . ",'$_');"); 
-					  }
-				    }
-				    else
-				    {
-					  if($found){$dbh->do("delete from defaults where setting_key='$_';")};      	
-
-				    }
+				  if($found)
+				  {
+					$dbh->do("update defaults set value=" . $dbh->quote($val) . " where setting_key='$_';");
+				  }
+				  else
+				  {
+					$dbh->do("insert into defaults(value,setting_key) values( " . $dbh->quote($val) . ",'$_');"); 
+				  }
 
         }