added sort by any combination of swish-e fields which are defined by

[webpac] / WebPac.pm

diff --git a/WebPac.pm b/WebPac.pm
index 800833a..a08a711 100644 (file)
--- a/WebPac.pm
+++ b/WebPac.pm
@@ -344,6 +344,10 @@ sub show_results_list {
                $sort = 'headline';
                push @persist_vars, "sort";
        }
+       if ($q->param("sortby")) {
+               $sort = $q->param("sortby");
+               push @persist_vars, "sort";
+       }
 
        # construct swish query
        my $sw_q = join(" and ",@s_arr);
@@ -369,6 +373,7 @@ sub show_results_list {
        my $search = $swish->New_Search_Object;
 
        $search->SetSort($sort);
+print "sort: $sort\n";
 
        my $results = $search->Execute($sw_q);
        $swish_msg .= $swish->ErrorString." ".$swish->LastErrorMsg if $swish->Error;