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

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: ');