added support for submit button "reset" which will reset form (you can't

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index 6d31110..a8267e7 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -227,6 +227,12 @@ sub show_results_list {
 
        my $q = $self->query();
 
+       # submit was reset?
+       if ($q->param('reset')) {
+               $q->delete_all;
+               return $self->show_search_form();
+       }
+
        # load template for this page
 
        my @s_arr;      # all queries are located here