From fb9ad768b29b1eb7f98607fa9b2915978e453791 Mon Sep 17 00:00:00 2001
From: "burnus%gmx.de" <>
Date: Mon, 17 Feb 2003 00:11:45 +0000
Subject: Bug 135820 - token cancellation message are not user-friendly r=gerv,
 a=justdave

---
 CGI.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'CGI.pl')

diff --git a/CGI.pl b/CGI.pl
index eb74862fa..4765a7a00 100644
--- a/CGI.pl
+++ b/CGI.pl
@@ -414,7 +414,7 @@ sub confirm_login {
             use Token;
             my $token = Token::HasPasswordToken($userid);
             while ( $token ) {
-                Token::Cancel($token, "user logged in");
+                Token::Cancel($token, 'user_logged_in');
                 $token = Token::HasPasswordToken($userid);
             }
         }
-- 
cgit v1.2.3-24-g4f1b