From f9289c131459af1c5980b7f24ae1e4430a2dec5f Mon Sep 17 00:00:00 2001
From: "lpsolit%gmail.com" <>
Date: Fri, 8 Apr 2005 06:52:20 +0000
Subject: Bug 287947: Change CheckFormField/CheckFormFieldDefined subs in
 CGI.pl to use CGI object instead FORM hash - Patch by Teemu Mannermaa
 <wicked@etlicon.fi> r=LpSolit a=myk

---
 post_bug.cgi | 31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

(limited to 'post_bug.cgi')

diff --git a/post_bug.cgi b/post_bug.cgi
index 84a9fd9df..8dc4f9123 100755
--- a/post_bug.cgi
+++ b/post_bug.cgi
@@ -183,19 +183,26 @@ if (!Param('letsubmitterchoosepriority')) {
 
 GetVersionTable();
 
+# XXX Temporar FORM compatibility code, reflect changes back to CGI object
+$cgi->param('bug_file_loc', $::FORM{'bug_file_loc'});
+$cgi->param('assigned_to', $::FORM{'assigned_to'});
+$cgi->param('bug_status', $::FORM{'bug_status'});
+$cgi->param('target_milestone', $::FORM{'target_milestone'});
+$cgi->param('priority', $::FORM{'priority'});
+
 # Some more sanity checking
-CheckFormField(\%::FORM, 'product',      \@::legal_product);
-CheckFormField(\%::FORM, 'rep_platform', \@::legal_platform);
-CheckFormField(\%::FORM, 'bug_severity', \@::legal_severity);
-CheckFormField(\%::FORM, 'priority',     \@::legal_priority);
-CheckFormField(\%::FORM, 'op_sys',       \@::legal_opsys);
-CheckFormField(\%::FORM, 'bug_status',   ['UNCONFIRMED', 'NEW']);
-CheckFormField(\%::FORM, 'version',          $::versions{$product});
-CheckFormField(\%::FORM, 'component',        $::components{$product});
-CheckFormField(\%::FORM, 'target_milestone', $::target_milestone{$product});
-CheckFormFieldDefined(\%::FORM, 'assigned_to');
-CheckFormFieldDefined(\%::FORM, 'bug_file_loc');
-CheckFormFieldDefined(\%::FORM, 'comment');
+CheckFormField($cgi, 'product',      \@::legal_product);
+CheckFormField($cgi, 'rep_platform', \@::legal_platform);
+CheckFormField($cgi, 'bug_severity', \@::legal_severity);
+CheckFormField($cgi, 'priority',     \@::legal_priority);
+CheckFormField($cgi, 'op_sys',       \@::legal_opsys);
+CheckFormField($cgi, 'bug_status',   ['UNCONFIRMED', 'NEW']);
+CheckFormField($cgi, 'version',          $::versions{$product});
+CheckFormField($cgi, 'component',        $::components{$product});
+CheckFormField($cgi, 'target_milestone', $::target_milestone{$product});
+CheckFormFieldDefined($cgi, 'assigned_to');
+CheckFormFieldDefined($cgi, 'bug_file_loc');
+CheckFormFieldDefined($cgi, 'comment');
 
 my @used_fields;
 foreach my $field (@bug_fields) {
-- 
cgit v1.2.3-24-g4f1b