From d6ef130326334ee98669b4968893c1924dafcbbf Mon Sep 17 00:00:00 2001 From: tetragon Date: Sun, 12 Nov 2006 21:02:59 +0000 Subject: Fix for saving user preferences git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@534 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/User.pm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm index a020affb..95f3fc4f 100755 --- a/LedgerSMB/User.pm +++ b/LedgerSMB/User.pm @@ -713,15 +713,14 @@ sub save_member { my $userCheck = $dbh->prepare("SELECT id FROM users WHERE username = ?"); $userCheck->execute($self->{login}); my ($userID) = $userCheck->fetchrow_array; + my $userConfExists = 0; if($userID){ #got an id, check to see if it's in the users_conf table - my $userConfCheck = $dbh->prepare("SELECT id FROM users_conf WHERE id = ?"); + my $userConfCheck = $dbh->prepare("SELECT count(*) FROM users_conf WHERE id = ?"); $userConfCheck->execute($userID); - if($userConfCheck->rows){ - my $userConfExists = 1; - } + ($userConfExists) = $userConfCheck->fetchrow_array; } else{ my $userConfAdd = $dbh->prepare("SELECT create_user(?);"); -- cgit v1.2.3