Changeset 447 for branches/htmlform/cgi-bin/search.cgi

Timestamp:

07/27/10 13:15:56 (14 years ago)

Author:

Kris Deugau

Message:

/branches/htmlform

Switch all scripts to use CGI::Simple for HTML form data munging
instead of legacy CommonWeb.pm sub. Remove parse_post() sub from
CommonWeb.pm. See #15.

File:

• branches/htmlform/cgi-bin/search.cgi (modified) (2 diffs)

branches/htmlform/cgi-bin/search.cgi

@@ -14 +14 @@
 use warnings;   
 use CGI::Carp qw(fatalsToBrowser);
+use CGI::Simple;
 use DBI;
 use CommonWeb qw(:ALL);
@@ -52 +53 @@
 # Global variables
 my $RESULTS_PER_PAGE = 25;
-my %webvar = parse_post();
-cleanInput(\%webvar);
+
+# Set up the CGI object...
+my $q = new CGI::Simple;
+# ... and get query-string params as well as POST params if necessary
+$q->parse_query_string;
+
+# Convenience;  saves changing all references to %webvar
+##fixme:  tweak for handling <select multiple='y' size=3> (list with multiple selection)
+my %webvar = $q->Vars;
 
 if (defined($webvar{rpp})) {