From f5376c3c0efee31a87e4d35a4627d3bc216c4a95 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 13 Mar 2007 01:58:51 +0000 Subject: Fixing 8.0 compatibility bug in session management git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@887 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/Session/DB.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'LedgerSMB/Session') diff --git a/LedgerSMB/Session/DB.pm b/LedgerSMB/Session/DB.pm index ecd87814..eb550c62 100755 --- a/LedgerSMB/Session/DB.pm +++ b/LedgerSMB/Session/DB.pm @@ -133,11 +133,11 @@ sub session_create { my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH}; # TODO Change this to use %myconfig - my $deleteExisting = $dbh->prepare("DELETE FROM session - USING users - WHERE users.username = ? - AND users.id = session.users_id - AND age(last_used) > ?::interval"); + my $deleteExisting = $dbh->prepare( + "DELETE + FROM session + WHERE session.users_id = (select id from users where username = ?) + AND age(last_used) > ?::interval"); my $seedRandom = $dbh->prepare("SELECT setseed(?);"); @@ -195,10 +195,10 @@ sub session_destroy { # use the central database handle my $dbh = ${LedgerSMB::Sysconfig::GLOBALDBH}; - my $deleteExisting = $dbh->prepare("DELETE FROM session - USING users - WHERE users.username = ? - AND users.id = session.users_id;"); + my $deleteExisting = $dbh->prepare(" + DELETE FROM session + WHERE users_id = (select id from users where username = ?) + "); $deleteExisting->execute($login) || $form->dberror(__FILE__.':'.__LINE__.': Delete from session: '); -- cgit v1.2.3