[Koha-cvs] koha/opac livesearch.pl [dev_week]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/06/10 15:49:50

Added files:
        opac           : livesearch.pl 

Log message:
        adding livesearch capabilities using zebra 'scan' indexes

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/livesearch.pl?cvsroot=koha&only_with_tag=dev_week&rev=1.1.2.1

Patches:
Index: livesearch.pl
===================================================================
RCS file: livesearch.pl
diff -N livesearch.pl
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ livesearch.pl       10 Jun 2006 15:49:50 -0000      1.1.2.1
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+#use C4::Context;
+#use Apache::DBI;
+use CGI;
+use C4::Context;
+
+my $cgi = new CGI;
+my $zconn=C4::Context->Zconn("biblioserver");
+
+binmode(STDOUT, "utf8"); #output as utf8
+
+print $cgi->header( -type =>'text/xml' );
+
+#my $dbh=DBI->connect("DBI:mysql:demosuggest:localhost","sugg","Free2cirC");
+#my $dbh = C4::Context->dbh;
+
+my $word = $cgi->param('value');
+
+
+if ($word) {
+       # strip out bad stuff -- this takes too long!
+       $word =~ tr/A-Z/a-z/;
+        $word =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/ /g;
+        $word =~s/  / /g;      
+#      $word =~ s/(\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\Athe |\Aa |\Aan 
)//g;
+       #$word  .= "\%";
+       #$word = "&quot;".$word."&quot;";
+       my $query = "\"$word\"";
+       if ($query =~ / /) {
+               $query = "address@hidden 6=2 $query";
+       }
+       warn "$query";
+       my $result;
+       eval {
+               my $zoom_query_obj = new ZOOM::Query::PQF($query);
+               $result = $zconn->scan($zoom_query_obj);
+       };
+       if ($@) {
+               die "error connecting to Zebra".$@;
+       }
+       my $numresults = 0 | $result->size() if  ($result);
+       my $outstring="<?xml version='1.0' encoding='utf-8'  ?>";
+        $outstring.="<ul class=\"LSRes\">";
+
+       for ( my $i=1; $i<=10; $i++){
+               my ($suggest,$count) = $result->term($i-1);
+               my $length=length($suggest);
+               $query=$suggest;
+#              $query =~ 
s/(\'s|&|\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\}|\/|)//g;
+               $outstring.="<li class=\"LSRow\" 
onmouseover=\"liveSearchHover(this)\" onclick=\"liveSearchClicked(this)\"><a 
href="."\"/cgi-bin/koha/opac-zoomsearch.pl?op=get_results&amp;cql_query=&quot;$query&quot;\">\n$suggest";
+
+
+               $outstring.="\n</a>\n<span class=\"LSResRight\">$count 
results</span></li>";
+       }
+       $outstring.="</ul>";
+       print $outstring;
+}
+