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();