From 6b975d4ec50ac91be0d01537792d33b7c8197941 Mon Sep 17 00:00:00 2001 From: "jocuri%softhome.net" <> Date: Sat, 6 Mar 2004 17:08:46 +0000 Subject: Patch for bug 234875: use ->param in quips.cgi; r=kiko, a=justdave. --- quips.cgi | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/quips.cgi b/quips.cgi index 4559e7b91..bf1c41450 100755 --- a/quips.cgi +++ b/quips.cgi @@ -45,7 +45,7 @@ if (Param('enablequips') eq "off") { ThrowUserError("quips_disabled"); } -my $action = $::FORM{'action'} || ""; +my $action = $cgi->param('action') || ""; if ($action eq "show") { # Read in the entire quip list @@ -81,7 +81,7 @@ if ($action eq "add") { # Add the quip my $approved = (Param('enablequips') eq "on") ? '1' : '0'; $approved = 1 if(UserInGroup('admin')); - my $comment = $::FORM{"quip"}; + my $comment = $cgi->param("quip"); $comment || ThrowUserError("need_quip"); $comment !~ m/param('quipid_'.$quipid) ? 1 : 0; if($quips{$quipid} ne $form) { if($form) { push(@approved, $quipid); } else { push(@unapproved, $quipid); } @@ -122,7 +122,7 @@ if ($action eq "delete") { if (!UserInGroup('admin')) { ThrowUserError("quips_edit_denied"); } - my $quipid = $::FORM{"quipid"}; + my $quipid = $cgi->param("quipid"); ThrowCodeError("need_quipid") unless $quipid =~ /(\d+)/; $quipid = $1; -- cgit v1.2.3-24-g4f1b