adding a new option, -w, which disables shadow indexing for the current batch (faster...
[koha.git] / misc / migration_tools / test_cql2rpn.pl
1 #!/usr/bin/perl
2 use strict;
3 use ZOOM;
4
5 my $query="Introduction";
6 warn "QUERY : $query";
7 my $Zconn;
8 eval {
9         $Zconn = new ZOOM::Connection('localhost:2100/Koha');
10 };
11 $Zconn->option(cqlfile => "/home/paul/koha.dev/head/zebra/pqf.properties");
12 my $q = new ZOOM::Query::CQL2RPN( $query, $Zconn);
13 # warn "Q : $q";
14 my $rs= $Zconn->search($q);
15 my $n = $rs->size()-1;
16 print "found ".($n+1)." results";
17 for my $i (0..$n) {
18         my $rec = $rs->record($i);
19         print $rec->render();
20 }
21 #       warn "ERROR : ".$Zconn->errcode();