% $VIEW = "SEARCH"; $db = new DBFile($main::events_db); # Keep form values to populate form fields foreach (keys %in) { $name = $_; if ($name =~ s/^FIELD_//) { $search_params->{$name} = $in{$_}; } } %>