From 2351a30612a560c47232104d9cd46326319acca1 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 10 Oct 2008 15:45:35 +0000 Subject: Correcting defaults setting logic. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2362 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/AM.pm | 24 ++++++++---------------- 1 file changed, 8 insertions(+), 16 deletions(-) (limited to 'LedgerSMB') 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) . ",'$_');"); + } } -- cgit v1.2.3