/[pg-zoom]/zoom.sql
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /zoom.sql

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Thu Apr 26 21:33:46 2007 UTC revision 8 by dpavlin, Thu Apr 26 21:45:09 2007 UTC
# Line 68  my $conn = new ZOOM::Connection($host, $ Line 68  my $conn = new ZOOM::Connection($host, $
68    
69  $conn->option(preferredRecordSyntax => "usmarc");  $conn->option(preferredRecordSyntax => "usmarc");
70    
71  my $cqf = q2cqf( $query );  my $rs;
72    
73  my $rs = $conn->search_pqf( $cqf );  my $notice;
74    
75    if ( $query =~ m/[\s="]|(and|or|not)/ ) {
76            $rs = $conn->search( new ZOOM::Query::CQL( $query ) );
77            $notice = 'CQL';
78    } else {
79            my $cqf = q2cqf( $query );
80            $notice = "CQF: $cqf";
81            $rs = $conn->search_pqf( $cqf );
82    }
83    
84  my $n = $rs->size();  my $n = $rs->size();
85  if ( $n > $max_res ) {  if ( $n > $max_res ) {
# Line 80  if ( $n > $max_res ) { Line 89  if ( $n > $max_res ) {
89  # fetch all results  # fetch all results
90  $rs->records(0, $n - 1, 0);  $rs->records(0, $n - 1, 0);
91    
92  warn "$n results for '$query' [$cqf]\n";  warn "$n results for '$query' $notice\n";
93    
94  sub strip_non_digit {  sub strip_non_digit {
95          my $d = shift;          my $d = shift;
# Line 134  $$; Line 143  $$;
143  --select * from search('nsk','grada');  --select * from search('nsk','grada');
144  --select * from search('nsk-en','restrictions');  --select * from search('nsk-en','restrictions');
145    
146  select * from search('ucs','human');  --select * from search('ucs','human');
Legend:
Removed from v.7  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26