summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-13 01:58:51 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-13 01:58:51 +0000
commitf5376c3c0efee31a87e4d35a4627d3bc216c4a95 (patch)
tree33b7119334026ec9b57ad0d2e42b330edcdb331c /LedgerSMB
parentc1fe248cb1ec9979a615ae0673191c92034b0ab3 (diff)
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
Diffstat (limited to 'LedgerSMB')
-rwxr-xr-xLedgerSMB/AM.pm6
-rw-r--r--LedgerSMB/CreditCard.pm13
-rwxr-xr-xLedgerSMB/Form.pm2
-rwxr-xr-xLedgerSMB/HR.pm2
-rwxr-xr-xLedgerSMB/Session/DB.pm18
5 files changed, 21 insertions, 20 deletions
diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index ac5da385..66795305 100755
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -1316,7 +1316,7 @@ sub save_preferences {
my @queryargs;
my $query = qq|
SELECT login
- FROM employee
+ FROM employees
WHERE login = ?|;
@queryargs = ($form->{login});
my $sth = $dbh->prepare($query);
@@ -1328,7 +1328,7 @@ sub save_preferences {
# update name
$query = qq|
- UPDATE employee
+ UPDATE employees
SET name = ?
WHERE login = ?|;
@@ -1770,7 +1770,7 @@ sub post_yearend {
$query = qq|
INSERT INTO gl (reference, employee_id)
- VALUES (?, (SELECT id FROM employee
+ VALUES (?, (SELECT id FROM employees
WHERE login = ?))|;
$dbh->prepare($query)->execute($uid, $form->{login})
diff --git a/LedgerSMB/CreditCard.pm b/LedgerSMB/CreditCard.pm
index d924ce53..8e2a4e1a 100644
--- a/LedgerSMB/CreditCard.pm
+++ b/LedgerSMB/CreditCard.pm
@@ -15,12 +15,13 @@
# POS Credit card processing-- could be extended for ecommerce
package CreditCard;
-use LedgerSMB::CreditCard::Config;
-BEGIN {
- $gateway_module = ${Config::gateway_module};
- require "LedgerSMB/CreditCard/$gateway_module.pm";
- import $gateway_module qw(sale credit);
-}
+use LedgerSMB;
+use LedgerSMB::DBObject;
+
+our @ISA qw(LedgerSMB::DBObject);
+# use LedgerSMB::CreditCard::Config; # moving elsewhere
+
+## TODO: Add code for credit card number validation and the like
1;
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index b8fc4540..f0b7a3cb 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -1864,7 +1864,7 @@ sub all_employees {
my @whereargs = ();
# setup employees/sales contacts
my $query = qq|SELECT id, name
- FROM employee
+ FROM employees
WHERE 1 = 1|;
if ($transdate) {
diff --git a/LedgerSMB/HR.pm b/LedgerSMB/HR.pm
index 6b6b6eff..33e9b18a 100755
--- a/LedgerSMB/HR.pm
+++ b/LedgerSMB/HR.pm
@@ -80,7 +80,7 @@ sub get_employee {
# get managers
$query = qq|
SELECT id, name
- FROM employee
+ FROM employees
WHERE sales = '1'
AND role = 'manager'
$notid
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: ');