From 8a8882368217714f6bf224ef9897a907dc6e12f0 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 2 Jul 2007 17:21:08 +0000
Subject: [PATCH] fix: Email validate codes aren't removed after use

---
 docs/changelog/7.x.x.txt  | 1 +
 lib/WebGUI/Auth/WebGUI.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index e884ce5d5..b63b313f2 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -58,6 +58,7 @@
     http://www.webgui.org/bugs/tracker/diskusage-will-return--1-if-value-too-large
  - fix: Importing a package logs 'Consult your database tables for corruption' errors (perlDreamer Consulting, LLC)
     http://www.webgui.org/bugs/tracker/importing-a-package-logs-consult-your-database-tables-for-corruption-errors
+ - fix: Email validate codes aren't removed after use
 
 7.3.19
  - Fixed a formatting problem in the workflow editor screen.
diff --git a/lib/WebGUI/Auth/WebGUI.pm b/lib/WebGUI/Auth/WebGUI.pm
index 11814429c..1c86cc190 100644
--- a/lib/WebGUI/Auth/WebGUI.pm
+++ b/lib/WebGUI/Auth/WebGUI.pm
@@ -770,7 +770,7 @@ sub validateEmail {
 	if (defined $userId) {
 		my $u = WebGUI::User->new($self->session,$userId);
 		$u->status("Active");
-		$self->session->db->write("DELETE FROM authentication WHERE userId = ? AND fieldName = 'emailValidationKey'");
+		$self->session->db->write("DELETE FROM authentication WHERE userId = ? AND fieldName = 'emailValidationKey'", [$userId]);
 	}
 	return $self->displayLogin;
 }