Changeset 27069 for main/trunk/greenstone2/bin/script/lucene_query.pl

Timestamp:

2013-03-12T15:01:01+13:00 (11 years ago)

Author:

kjdon

Message:

adding in reverse sort option

File:

• main/trunk/greenstone2/bin/script/lucene_query.pl (modified) (7 diffs)

main/trunk/greenstone2/bin/script/lucene_query.pl

@@ -59 +59 @@
     my $filter_string = shift(@_);
     my $sort_field = shift(@_);
+    my $reverse_sort = shift(@_);
     my $dco = shift(@_);
     my $start_results = shift(@_);
@@ -78 +79 @@
         $cmd .= " -sort " . $sort_field;
     }
+    if ($reverse_sort) {
+    $cmd .= " -reverse_sort";
+    }
     if (defined($dco)) {
         $cmd .= " -dco " . $dco;
@@ -90 +94 @@
     $cmd .= " > \"" . $out_file . "\"";
     }
-    # print STDERR $cmd . "\n";
+     print STDERR $cmd . "\n";
 
     if (!open (PIPEOUT, $cmd)) {
@@ -107 +111 @@
     my $argc = scalar(@argv);
     if ($argc == 0) {
-    print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzziness value] [-filter filter_string] [-sort sort_field] [-dco AND|OR] [-startresults number -endresults number] [-out out_file]\n";
+    print STDERR "Usage: $PROGNAME full-index-dir [query] [-fuzziness value] [-filter filter_string] [-sort sort_field] [-reverse_sort]  [-dco AND|OR] [-startresults number -endresults number] [-out out_file]\n";
     exit 1;
     }
@@ -116 +120 @@
     my $filter_string = undef;
     my $sort_field = undef;
+    my $reverse_sort = 0;
     my $dco = undef;
     my $start_results = undef;
@@ -133 +138 @@
             $i++;
             $sort_field = $argv[$i];
+    }
+    elsif ($argv[$i] eq "-reverse_sort") {
+        $reverse_sort = 1;
     }
         elsif ($argv[$i] eq "-dco") {
@@ -155 +163 @@
     }
 
-    open_java_lucene($full_indexdir, $fuzziness, $filter_string, $sort_field, $dco, $start_results, $end_results, $out_file);
+    open_java_lucene($full_indexdir, $fuzziness, $filter_string, $sort_field, $reverse_sort, $dco, $start_results, $end_results, $out_file);
 
     if (defined $query) {