From 7883861f7dc34a6cd5483cff72a6774f2deb45ed Mon Sep 17 00:00:00 2001
From: "jocuri%softhome.net" <>
Date: Tue, 24 Feb 2004 20:25:11 +0000
Subject: Patch for bug 235175: replaces ::FORM from createaccount.cgi with CGI
 based methods that are mod_perl compatible; r=gerv; a=justdave.

---
 createaccount.cgi | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'createaccount.cgi')

diff --git a/createaccount.cgi b/createaccount.cgi
index 22b8129e9..6c624b0ba 100755
--- a/createaccount.cgi
+++ b/createaccount.cgi
@@ -32,7 +32,6 @@ require "CGI.pl";
 
 # Shut up misguided -w warnings about "used only once":
 use vars qw(
-  %FORM
   $template
   $vars
 );
@@ -54,11 +53,11 @@ Bugzilla->logout();
 my $cgi = Bugzilla->cgi;
 print $cgi->header();
 
-my $login = $::FORM{'login'};
+my $login = $cgi->param('login');
 
 if (defined($login)) {
     # We've been asked to create an account.
-    my $realname = trim($::FORM{'realname'});
+    my $realname = trim($cgi->param('realname'));
     CheckEmailSyntax($login);
     $vars->{'login'} = $login;
     
-- 
cgit v1.2.3-24-g4f1b