summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-13 02:00:42 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-13 02:00:42 +0000
commit749dfd7aa4de482ec01bd14ebccc1b5e749416a7 (patch)
tree8051c665a3e5f5bdd1e6b145e157f1586c8e3459 /LedgerSMB
parentf0882c3a932f2cefb756e0addffe129732b08861 (diff)
Fixing 8.0 compatibility bug in session management
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@888 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/Session/DB.pm18
1 files changed, 9 insertions, 9 deletions
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: ');