pass sort parametar to swish query object

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1330 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 5e4ac0e..1a678c9 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -262,7 +262,11 @@ if ( my $search = param('search') ) {
        $q .= ' AND ((' . join(') OR (', map { "input=\"$_\"" } @only_input) . '))' if @only_input;
 
        warn "# query: $q\n";
-       my $swish_results = $swish->query( $q );
+       my $search_obj = $swish->new_search_object;
+       if ( my $sort = param('sort') ) {
+               $search_obj->set_sort( $sort );
+       }
+       my $swish_results = $search_obj->execute( $q );
 
        dump_yaml( 'swish_results', $swish_results );