Experimental support for dBase .dbf files. Usege like this in all2xml.conf:

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index 6d31110..4af84d8 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
@@ -267,6 +273,8 @@ sub show_results_list {
                push @url_params_persist,"f$i=".$q->url_param("f$i") if ($persist);
 
                foreach my $v ($q->url_param("v$i")) {
+                       # escape quotes so that phrase search work
+                       $v =~ s/"/%22/g;
                        push @url_params,"v$i=$v";
                        push @url_params_persist,"v$i=$v" if ($persist);
                }