Changeset 15

Timestamp:

Oct 11, 2006, 8:11:28 AM (15 years ago)

Author:

Dominic Hargreaves

Message:

Simplify error function

File:

• trunk/npemap.org.uk/cgi/submit.cgi (modified) (1 diff)

trunk/npemap.org.uk/cgi/submit.cgi

@@ -84 +84 @@
     print CGI::escapeHTML($err);
     print "</p><p>Your input was:</p>\n<ul>";
-    my %params;
     foreach my $field (@fields) {
-        if (defined $cgi->param($field)) {
-            $params{$field} = $cgi->param($field);
-        } else {
-            $params{$field} = '';
-        }
-        print "<li>$field: " . $params{$field} . "</li>\n";
+        my $param = $cgi->param($field) || '';
+        print "<li>$field: " . $param . "</li>\n";
     }
     print "</ul></body></html>\n";