[Koha-cvs] koha/opac opensearch opensearchdescription [dev_week]

Joshua Ferraro jmf at kados.org
Tue Dec 19 15:33:23 CET 2006 

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/12/19 14:33:23

Added files:
	opac           : opensearch opensearchdescription 

Log message:
	Working opensearch scripts -- need to create some sysprefs for the values
	in here rather than hardcode them in the script. Also, they were written
	against an older version of the opensearch standard and could use some
	updating ...

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

Patches:
Index: opensearch
===================================================================
RCS file: opensearch
diff -N opensearch
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ opensearch	19 Dec 2006 14:33:22 -0000	1.1.2.1
@@ -0,0 +1,210 @@
+#!/usr/bin/perl -w
+#Configurable variables:
+my $libraryname = "Nelsonville Public Library System";
+my $librarylogo = "http://athenscounty.lib.oh.us/img/Hills_shadowed.gif";
+my $libraryhomepage = "http://athenscounty.lib.oh.us";
+my $libraryOPACurl = "http://search.athenscounty.lib.oh.us";
+my $zebraaddress = "66.213.78.76";
+my $zebraport = "9999";
+my $zebradb = "NPLKoha";
+my $amazonimages = "1";
+
+my $searchurl = $libraryOPACurl."/search?q=";
+my $itemdetaillink = $libraryOPACurl."/bib/";
+my $reservelink = $libraryOPACurl."/opac-reserve.pl?bib=";
+my $authorlink = "http://search.athenscounty.lib.oh.us/search?q=au:";
+
+#use C4::Context;
+use Encode;
+use URI::Escape;
+use CGI;
+#use CGI::Carp qw(fatalsToBrowser);
+use ZOOM;
+use MARC::Record;
+use strict;
+my ($searchTerms, $searchindex, $startPage);
+my ($count, $startfrom);
+my ($totalResults);
+my $conn = new ZOOM::Connection($zebraaddress,$zebraport,
+				databaseName => "$zebradb") or die "can't get a connection";
+
+my $cgi = new CGI;
+binmode(STDOUT, "utf8"); #output as utf8
+
+print $cgi->header( -type =>'text/xml' );
+
+$searchTerms = $cgi->param('q');
+$searchurl.=$searchTerms;
+$searchTerms =~ s/ / and /g;
+#warn "search terms:".$searchTerms;
+$startPage = $cgi->param('startPage');
+$startfrom = '1';
+$count = '10';
+if ($cgi->param('count')) {
+	$count = $cgi->param('count');
+}
+if ($startPage) { 
+if ($startPage > 1) {
+        my $newstartfrom = ($startPage * $count);
+#	warn "new start from=".$newstartfrom;
+	$newstartfrom-=($count - 1);
+	$startfrom = $newstartfrom;
+#	warn "new start from 2:".$startfrom;
+	 }
+}
+my $rs = $conn->search_pqf("\@attr 4=106 \@attr 2=102 \@attr 4=106 \"$searchTerms\"") or die "can't do the search";
+$rs->option(preferredRecordSyntax => "USMARC");
+$rs->option(elementSetName => "f");
+if ($searchTerms) {
+	$rs->records($startfrom, $count, 1) or die ".....$!";
+
+	$totalResults = $rs->size() or warn "can't count";
+	
+	print "<?xml version='1.0' encoding='utf-8'  ?>\n";
+	print "<rss version='2.0' xmlns:openSearch='http://a9.com/-/spec/opensearchrss/1.0/' xmlns:openIll=\"http://open-ils.org/xml/openIll/1.0\">";
+	print "<channel>\n";
+	print "<title>Search for: $searchTerms at the $libraryname</title>\n";
+	print "<link>$searchurl</link>\n";
+	print "<description>Search results for $searchTerms at the $libraryname</description>\n";
+	print "<language>en-us</language>\n";
+	print "<copyright>\&amp;copy; 2005, The $libraryname.</copyright>\n";
+	print "<lastBuildDate>Wed, 08 Jun 2005</lastBuildDate>\n";
+	print "<docs></docs>\n";
+	print "<generator>Koha-RSS</generator>\n";
+	print "<openSearch:totalResults>$totalResults</openSearch:totalResults>\n";
+	print "<openSearch:startIndex>$startfrom</openSearch:startIndex>\n";
+	print "<openSearch:itemsPerPage>$count</openSearch:itemsPerPage>\n";
+	print "<ttl></ttl>\n";
+	print "<image>\n";
+	print "<title>The $libraryname logo</title>";
+	print "<url>$librarylogo</url>\n";
+	print "<link> $libraryhomepage</link>";	
+	print "</image>\n";
+	my $starting = "0";
+	$starting = $startfrom if $startfrom; #$count * $startfrom - ($count - 1);
+	my $ending = $starting + $count - 1;
+	if ($ending > $totalResults) {
+		$ending = $totalResults;
+	}
+	warn "start and end:"."$starting"."$ending";
+        for (my $i=$starting; $i<=$ending; $i++) {
+	    #warn "start:".$i;
+	if ($rs->record($i)){
+		#warn "got this far";
+        my $rec = $rs->record($i);
+ 	    my $raw = $rec->raw();
+		#warn "raw data:".$raw;
+	    #if ($rec->isa('Net::Z3950::Record::USMARC')) {
+		my $marc = MARC::Record->new_from_usmarc($raw) or die "marc not working";
+		my $bib;
+		$bib = $marc->subfield('090',"c"); # this is where bibids are stored
+		$bib = encode("utf8", $bib);
+		#warn "here's the bib:".$bib;
+		
+		my $title = $marc->title_proper();
+		$title = encode("utf8", $title);
+		$title =~ s/&/&amp;/;
+	
+		my $author = $marc->author();
+                $author = encode("utf8", $author);
+                $author =~ s/&/&amp;/;
+		my $authorlinker = $author;
+		$authorlinker =~ s/ /%2C%20/;
+
+		my $edition = $marc->edition();
+		$edition = encode("utf8", $edition);
+		$edition =~ s/&/&amp;/;
+
+		my $pub_date = $marc->publication_date();
+                $pub_date = encode("utf8", $pub_date);
+                $pub_date =~ s/&/&amp;/;
+		#warn "publication date:".$pub_date;
+	
+		my $isbn = $marc->subfield('020',"a");
+		if ($isbn) {
+		$isbn = encode("utf8", $isbn);
+		$isbn =~ s/&/&amp;/;
+		}
+		#grab holdings
+		my $holdings;
+		my $copies;
+		my $description = '';
+		#my $description = "<![CDATA[";
+		my @fields = $marc->field('952');
+    		if (@fields) {
+			foreach my $field(@fields) {
+				my $branch = $field->subfield('b');
+				$holdings.=" ".$field->subfield('b').", " unless $holdings =~ m/$branch/;
+				$copies++;
+			}
+			$holdings = "<br /><b>($copies) Copies at:</b> ".$holdings;
+			$holdings.="<a href=\"$reservelink$bib\">Place Reserve</a>";
+		}
+		my $subjects;
+		my @subjectfields = $marc->field('6..');
+		if (@subjectfields) {
+			foreach my $field(@subjectfields) {
+				my $subjectentry = $field->subfield('a');
+				my $subjectentrylinker = $subjectentry;
+				$subjectentrylinker =~ s/(\(|\)|\.|\?|\:|\!|\'|,|\-|\"|\(|\)|\[|\]|\{|\})/%20/;
+				$subjects.=" <a href=\"http://search.athenscounty.lib.oh.us/cgi-bin/koha/opac-search.pl?op=do_search&marclist=bibliosubject.subject&and_or=and&operator=contains&value=$subjectentrylinker\">$subjectentry</a>, ";
+			}
+		}
+
+		if ($author) {
+			$description.="<b>Author:</b> <a href=\"http://search.athenscounty.lib.oh.us/cgi-bin/koha/opac-search.pl?marclist=biblio.author&and_or=and&excluding=&operator=contains&value=$authorlinker&resultsperpage=20&orderby=biblio.title&op=do_search\">$author</a><br />";
+		}
+		if ($subjects) {
+			$description.="<b>Subjects:</b>$subjects<br />";
+		}
+		if ($pub_date) {
+			$description.="<b>Details:</b>";
+			$description.="$edition " unless (!$edition);
+			$description.="$pub_date" unless (!$pub_date);
+		}
+		#grab descriptions
+		my $notes;
+		my @notesfields = $marc->field('5..');
+		if (@notesfields) {
+		#$notes.= @notesfields->as_formatted();
+		#warn "herea re notes:".$notes;
+                        #foreach my $field(@notesfields) {
+                         #       $notes.=" ".$field->subfield('a').", " unless (!$field->subfield('a'));
+                        #}
+                }
+		$description.=$notes unless (!$notes);
+		#$marc->subfield('500',"a") unless (!$marc->subfield('500',"a"));
+		#$description.=$marc->subfield('520',"a") unless (!$marc->subfield('520',"a"));
+
+		if ($isbn) {
+		if ($amazonimages) {
+		$description.="<br /><img style=\"border-color: #FFFFFF; border:none;\"border=\"0\" src=\"http://images.amazon.com/images/P/$isbn.01.THUMBZZZ.jpg\" alt=\"read inside\" />";
+		}}
+		$description.=$holdings unless (!$holdings);
+		#$description.="<hr />\n]]>";
+		$description =~ s/&/&amp;/g;
+		$description =~ s/>/&gt;/g;
+		$description =~ s/</&lt;/g;
+		$description = encode("utf8",$description);
+
+		my $link = "$libraryOPACurl/opac-detail.pl?bib=$bib";
+	
+		#rank
+		#my $rank;
+		#my $ranker = $marc->field('999'); #$marc->subfield('999',"a"); # = $marc->field('999')->data(); #$marc->field('999');
+		# $bib = $marc->subfield('090',"c");
+		#$rank = $ranker;
+		#warn "ranking".$ranker;
+		print "<item>\n";
+		#print "<openIll:relevance>$rank</openIll:relevance>\n";
+		print "<title>$title</title>\n";
+		print "<link>$link</link>\n";
+		print "<description>$description</description>\n";
+		print "</item>\n";
+	    # } else {warn "not usmarc"; }
+	} else {warn "no record"; }
+	}
+	print "</channel>\n";
+	print "</rss>";
+
+}

Index: opensearchdescription
===================================================================
RCS file: opensearchdescription
diff -N opensearchdescription
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ opensearchdescription	19 Dec 2006 14:33:23 -0000	1.1.2.1
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+use CGI;
+use strict;
+my $cgi = new CGI;
+binmode(STDOUT, "utf8"); #output as utf8
+
+print $cgi->header( -type =>'text/xml' );
+print "<?xml version='1.0' encoding='utf-8'  ?>";
+print "<OpenSearchDescription \n\txmlns=\"http://a9.com/-/spec/opensearchdescription/1.0/\"\n\txmlns:openIll=\"http://open-ils.org/xml/openIll/1.0\">";
+print "\n<Url>http://search.athenscounty.lib.oh.us/opensearch?q={searchTerms}&amp;searchindex=NPLKoha&amp;startPage={startPage}&amp;count={count}</Url>";
+print "\n<Format>http://a9.com/-/spec/opensearchrss/1.0/</Format>";
+print "\n<ShortName>NPLKoha</ShortName>";
+print "\n<LongName>Nelsonville Public Library System (NPLS) Ohio</LongName>";
+print "\n<Description>Search for items the in Nelsonville Public Library System's Catalog.</Description>";
+print "\n<Tags>Koha ILS Catalog Public Library OPAC NPLS-RSS</Tags>";
+print "\n<Image>http://athenscounty.lib.oh.us/img/Hills_shadowed.gif</Image>";
+print "\n<SampleSearch>cryptonomicon</SampleSearch>";
+print "\n<Developer>Joshua Ferraro</Developer>";
+print "\n<Contact>jmf\@liblime.com</Contact>";
+print "\n<Attribution>Koha from LibLime: http://liblime.com/koha</Attribution>";
+print "\n<SyndicationRight>open</SyndicationRight>";
+print "\n<AdultContent>false</AdultContent>";
+print "\n</OpenSearchDescription>";

More information about the Koha-cvs mailing list