1 package OpenILS::WWW::SuperCat;
2 use strict; use warnings;
5 use Apache2::Const -compile => qw(OK REDIRECT DECLINED NOT_FOUND :log);
6 use APR::Const -compile => qw(:error SUCCESS);
7 use Apache2::RequestRec ();
8 use Apache2::RequestIO ();
9 use Apache2::RequestUtil;
15 use OpenSRF::EX qw(:try);
16 use OpenSRF::Utils qw/:datetime/;
17 use OpenSRF::Utils::Cache;
19 use OpenSRF::AppSession;
24 use Unicode::Normalize;
25 use OpenILS::Utils::Fieldmapper;
26 use OpenILS::WWW::SuperCat::Feed;
27 use OpenSRF::Utils::Logger qw/$logger/;
32 my $log = 'OpenSRF::Utils::Logger';
34 # set the bootstrap config when this module is loaded
35 my ($bootstrap, $cstore, $supercat, $actor, $parser, $search, $xslt, $cn_browse_xslt, %browse_types);
37 $browse_types{call_number}{xml} = sub {
40 my $year = (gmtime())[5] + 1900;
43 $content .= "<hold:volumes xmlns:hold='http://open-ils.org/spec/holdings/v1'>";
46 (my $cn_class = $cn->class_name) =~ s/::/-/gso;
47 $cn_class =~ s/Fieldmapper-//gso;
49 my $cn_tag = "tag:open-ils.org,$year:$cn_class/".$cn->id;
50 my $cn_lib = $cn->owning_lib->shortname;
51 my $cn_label = $cn->label;
53 $cn_label =~ s/\n//gos;
54 $cn_label =~ s/'/'/go;
56 (my $ou_class = $cn->owning_lib->class_name) =~ s/::/-/gso;
57 $ou_class =~ s/Fieldmapper-//gso;
59 my $ou_tag = "tag:open-ils.org,$year:$ou_class/".$cn->owning_lib->id;
60 my $ou_name = $cn->owning_lib->name;
62 $ou_name =~ s/\n//gos;
63 $ou_name =~ s/'/'/go;
65 (my $rec_class = $cn->record->class_name) =~ s/::/-/gso;
66 $rec_class =~ s/Fieldmapper-//gso;
68 my $rec_tag = "tag:open-ils.org,$year:$rec_class/".$cn->record->id.'/'.$cn->owning_lib->shortname;
70 $content .= "<hold:volume id='$cn_tag' lib='$cn_lib' label='$cn_label'>";
71 $content .= "<act:owning_lib xmlns:act='http://open-ils.org/spec/actors/v1' id='$ou_tag' name='$ou_name'/>";
73 my $r_doc = $parser->parse_string($cn->record->marc);
74 $r_doc->documentElement->setAttribute( id => $rec_tag );
75 $content .= entityize($r_doc->documentElement->toString);
77 $content .= "</hold:volume>";
80 $content .= '</hold:volumes>';
81 return ("Content-type: application/xml\n\n",$content);
85 $browse_types{call_number}{html} = sub {
90 if (!$cn_browse_xslt) {
91 $cn_browse_xslt = $parser->parse_file(
92 OpenSRF::Utils::SettingsClient
94 ->config_value( dirs => 'xsl' ).
97 $cn_browse_xslt = $xslt->parse_stylesheet( $cn_browse_xslt );
100 my (undef,$xml) = $browse_types{call_number}{xml}->($tree);
103 "Content-type: text/html\n\n",
105 $cn_browse_xslt->transform(
106 $parser->parse_string( $xml ),
121 OpenSRF::System->bootstrap_client( config_file => $bootstrap );
123 my $idl = OpenSRF::Utils::SettingsClient->new->config_value("IDL");
124 Fieldmapper->import(IDL => $idl);
126 $supercat = OpenSRF::AppSession->create('open-ils.supercat');
127 $cstore = OpenSRF::AppSession->create('open-ils.cstore');
128 $actor = OpenSRF::AppSession->create('open-ils.actor');
129 $search = OpenSRF::AppSession->create('open-ils.search');
130 $parser = new XML::LibXML;
131 $xslt = new XML::LibXSLT;
133 $cn_browse_xslt = $parser->parse_file(
134 OpenSRF::Utils::SettingsClient
136 ->config_value( dirs => 'xsl' ).
140 $cn_browse_xslt = $xslt->parse_stylesheet( $cn_browse_xslt );
147 return Apache2::Const::DECLINED if (-e $apache->filename);
149 (my $isbn = $apache->path_info) =~ s{^.*?([^/]+)$}{$1}o;
152 ->request("open-ils.supercat.oisbn", $isbn)
155 print "Content-type: application/xml; charset=utf-8\n\n";
156 print "<?xml version='1.0' encoding='UTF-8' ?>\n";
158 unless (exists $$list{metarecord}) {
160 return Apache2::Const::OK;
163 print "<idlist metarecord='$$list{metarecord}'>\n";
165 for ( keys %{ $$list{record_list} } ) {
166 (my $o = $$list{record_list}{$_}) =~s/^(\S+).*?$/$1/o;
167 print " <isbn record='$_'>$o</isbn>\n"
172 return Apache2::Const::OK;
178 return Apache2::Const::DECLINED if (-e $apache->filename);
183 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
184 my $rel_name = $cgi->url(-relative=>1);
185 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
188 my $url = $cgi->url(-path_info=>$add_path);
189 my $root = (split 'unapi', $url)[0];
190 my $base = (split 'unapi', $url)[0] . 'unapi';
193 my $uri = $cgi->param('id') || '';
194 my $host = $cgi->virtual_host || $cgi->server_name;
196 my $format = $cgi->param('format');
197 my $flesh_feed = ($format =~ /-full$/o) ? 1 : 0;
198 (my $base_format = $format) =~ s/-full$//o;
199 my ($id,$type,$command,$lib) = ('','','');
202 my $body = "Content-type: application/xml; charset=utf-8\n\n";
204 if ($uri =~ m{^tag:[^:]+:([^\/]+)/([^/]+)(?:/(.+))$}o) {
208 $type = 'metarecord' if ($1 =~ /^m/o);
211 ->request("open-ils.supercat.$type.formats")
214 if ($type eq 'record' or $type eq 'isbn') {
215 $body .= <<" FORMATS";
217 <format name='opac' type='text/html'/>
218 <format name='html' type='text/html'/>
219 <format name='htmlholdings' type='text/html'/>
220 <format name='html-full' type='text/html'/>
221 <format name='htmlholdings-full' type='text/html'/>
223 } elsif ($type eq 'metarecord') {
224 $body .= <<" FORMATS";
226 <format name='opac' type='text/html'/>
231 my ($type) = keys %$h;
232 $body .= "\t<format name='$type' type='application/xml'";
234 for my $part ( qw/namespace_uri docs schema_location/ ) {
235 $body .= " $part='$$h{$type}{$part}'"
236 if ($$h{$type}{$part});
241 if (OpenILS::WWW::SuperCat::Feed->exists($type)) {
242 $body .= "\t<format name='$type-full' type='application/xml'";
244 for my $part ( qw/namespace_uri docs schema_location/ ) {
245 $body .= " $part='$$h{$type}{$part}'"
246 if ($$h{$type}{$part});
253 $body .= "</formats>\n";
257 ->request("open-ils.supercat.record.formats")
262 ->request("open-ils.supercat.metarecord.formats")
266 my %hash = map { ( (keys %$_)[0] => (values %$_)[0] ) } @$list;
267 $list = [ map { { $_ => $hash{$_} } } sort keys %hash ];
269 $body .= <<" FORMATS";
271 <format name='opac' type='text/html'/>
272 <format name='html' type='text/html'/>
273 <format name='htmlholdings' type='text/html'/>
274 <format name='html-full' type='text/html'/>
275 <format name='htmlholdings-full' type='text/html'/>
280 my ($type) = keys %$h;
281 $body .= "\t<format name='$type' type='application/xml'";
283 for my $part ( qw/namespace_uri docs schema_location/ ) {
284 $body .= " $part='$$h{$type}{$part}'"
285 if ($$h{$type}{$part});
290 if (OpenILS::WWW::SuperCat::Feed->exists($type)) {
291 $body .= "\t<format name='$type-full' type='application/xml'";
293 for my $part ( qw/namespace_uri docs schema_location/ ) {
294 $body .= " $part='$$h{$type}{$part}'"
295 if ($$h{$type}{$part});
302 $body .= "</formats>\n";
306 return Apache2::Const::OK;
309 if ($uri =~ m{^tag:[^:]+:([^\/]+)/([^/]+)(?:/(.+))?}o) {
313 $type = 'metarecord' if ($1 =~ /^metabib/o);
314 $type = 'isbn' if ($1 =~ /^isbn/o);
315 $type = 'call_number' if ($1 =~ /^call_number/o);
316 $command = 'retrieve';
317 $command = 'browse' if ($type eq 'call_number');
320 if (!$lib || $lib eq '-') {
321 $lib = $actor->request(
322 'open-ils.actor.org_unit_list.search' => parent_ou => undef
323 )->gather(1)->[0]->shortname;
326 my $lib_object = $actor->request(
327 'open-ils.actor.org_unit_list.search' => shortname => $lib
329 my $lib_id = $lib_object->id;
331 my $ou_types = $actor->request( 'open-ils.actor.org_types.retrieve' )->gather(1);
332 my $lib_depth = (grep { $_->id == $lib_object->ou_type } @$ou_types)[0]->depth;
334 if ($type eq 'call_number' and $command eq 'browse') {
335 print "Location: $root/browse/$base_format/call_number/$lib/$id\n\n";
339 if ($type eq 'isbn') {
340 my $rec = $supercat->request('open-ils.supercat.isbn.object.retrieve',$id)->gather(1);
342 print "Content-type: text/html; charset=utf-8\n\n";
343 $apache->custom_response( 404, <<" HTML");
346 <title>Type [$type] with id [$id] not found!</title>
350 <center>Sorry, we couldn't $command a $type with the id of $id in format $format.</center>
361 { (keys(%$_))[0] eq $base_format }
362 @{ $supercat->request("open-ils.supercat.$type.formats")->gather(1) }
364 { $_ eq $base_format }
365 qw/opac html htmlholdings/
367 print "Content-type: text/html; charset=utf-8\n\n";
368 $apache->custom_response( 406, <<" HTML");
371 <title>Invalid format [$format] for type [$type]!</title>
375 <center>Sorry, format $format is not valid for type $type.</center>
382 if ($format eq 'opac') {
383 print "Location: $root/../../en-US/skin/default/xml/rresult.xml?m=$id&l=$lib_id&d=$lib_depth\n\n"
384 if ($type eq 'metarecord');
385 print "Location: $root/../../en-US/skin/default/xml/rdetail.xml?r=$id&l=$lib_id&d=$lib_depth\n\n"
386 if ($type eq 'record');
388 } elsif (OpenILS::WWW::SuperCat::Feed->exists($base_format)) {
389 my $feed = create_record_feed(
398 print "Content-type: text/html; charset=utf-8\n\n";
399 $apache->custom_response( 404, <<" HTML");
402 <title>Type [$type] with id [$id] not found!</title>
406 <center>Sorry, we couldn't $command a $type with the id of $id in format $format.</center>
414 $feed->creator($host);
415 $feed->update_ts(gmtime_ISO8601());
416 $feed->link( unapi => $base) if ($flesh_feed);
418 print "Content-type: ". $feed->type ."; charset=utf-8\n\n";
419 print entityize($feed->toString) . "\n";
421 return Apache2::Const::OK;
424 my $req = $supercat->request("open-ils.supercat.$type.$format.$command",$id);
425 my $data = $req->gather(1);
427 if ($req->failed || !$data) {
428 print "Content-type: text/html; charset=utf-8\n\n";
429 $apache->custom_response( 404, <<" HTML");
432 <title>$type $id not found!</title>
436 <center>Sorry, we couldn't $command a $type with the id of $id in format $format.</center>
443 print "Content-type: application/xml; charset=utf-8\n\n$data";
445 return Apache2::Const::OK;
451 return Apache2::Const::DECLINED if (-e $apache->filename);
456 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
457 my $rel_name = $cgi->url(-relative=>1);
458 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
461 my $url = $cgi->url(-path_info=>$add_path);
462 my $root = (split 'supercat', $url)[0];
463 my $base = (split 'supercat', $url)[0] . 'supercat';
464 my $unapi = (split 'supercat', $url)[0] . 'unapi';
466 my $host = $cgi->virtual_host || $cgi->server_name;
468 my $path = $cgi->path_info;
469 my ($id,$type,$format,$command) = reverse split '/', $path;
470 my $flesh_feed = ($type =~ /-full$/o) ? 1 : 0;
471 (my $base_format = $format) =~ s/-full$//o;
473 if ( $path =~ m{^/formats(?:/([^\/]+))?$}o ) {
474 print "Content-type: application/xml; charset=utf-8\n";
477 ->request("open-ils.supercat.$1.formats")
485 <type>text/html</type>
488 if ($1 eq 'record' or $1 eq 'isbn') {
490 <name>htmlholdings</name>
491 <type>text/html</type>
495 <type>text/html</type>
498 <name>htmlholdings-full</name>
499 <type>text/html</type>
502 <name>html-full</name>
503 <type>text/html</type>
508 my ($type) = keys %$h;
509 print "<format><name>$type</name><type>application/xml</type>";
511 for my $part ( qw/namespace_uri docs schema_location/ ) {
512 print "<$part>$$h{$type}{$part}</$part>"
513 if ($$h{$type}{$part});
518 if (OpenILS::WWW::SuperCat::Feed->exists($type)) {
519 print "<format><name>$type-full</name><type>application/xml</type>";
521 for my $part ( qw/namespace_uri docs schema_location/ ) {
522 print "<$part>$$h{$type}{$part}</$part>"
523 if ($$h{$type}{$part});
531 print "</formats>\n";
533 return Apache2::Const::OK;
537 ->request("open-ils.supercat.record.formats")
542 ->request("open-ils.supercat.metarecord.formats")
546 my %hash = map { ( (keys %$_)[0] => (values %$_)[0] ) } @$list;
547 $list = [ map { { $_ => $hash{$_} } } sort keys %hash ];
552 <type>text/html</type>
555 <name>htmlholdings</name>
556 <type>text/html</type>
560 <type>text/html</type>
563 <name>htmlholdings-full</name>
564 <type>text/html</type>
567 <name>html-full</name>
568 <type>text/html</type>
572 my ($type) = keys %$h;
573 print "<format><name>$type</name><type>application/xml</type>";
575 for my $part ( qw/namespace_uri docs schema_location/ ) {
576 print "<$part>$$h{$type}{$part}</$part>"
577 if ($$h{$type}{$part});
582 if (OpenILS::WWW::SuperCat::Feed->exists($type)) {
583 print "<format><name>$type-full</name><type>application/xml</type>";
585 for my $part ( qw/namespace_uri docs schema_location/ ) {
586 print "<$part>$$h{$type}{$part}</$part>"
587 if ($$h{$type}{$part});
595 print "</formats>\n";
598 return Apache2::Const::OK;
601 if ($format eq 'opac') {
602 print "Location: $root/../../en-US/skin/default/xml/rresult.xml?m=$id\n\n"
603 if ($type eq 'metarecord');
604 print "Location: $root/../../en-US/skin/default/xml/rdetail.xml?r=$id\n\n"
605 if ($type eq 'record');
608 } elsif ($base_format eq 'marc21') {
612 my $bib = $supercat->request( "open-ils.supercat.record.object.retrieve", $id )->gather(1)->[0];
614 my $r = MARC::Record->new_from_xml( $bib->marc, 'UTF-8', 'USMARC' );
615 $r->delete_field( $_ ) for ($r->field(901));
620 a => $bib->tcn_value,
621 b => $bib->tcn_source,
626 print "Content-type: application/octet-stream\n\n";
632 print "Content-type: text/html; charset=utf-8\n\n";
633 $apache->custom_response( 404, <<" HTML");
640 <center>Couldn't fetch $id as MARC21.</center>
647 return Apache2::Const::OK;
649 } elsif (OpenILS::WWW::SuperCat::Feed->exists($base_format)) {
650 my $feed = create_record_feed(
658 $feed->creator($host);
659 $feed->update_ts(gmtime_ISO8601());
660 $feed->link( unapi => $base) if ($flesh_feed);
662 print "Content-type: ". $feed->type ."; charset=utf-8\n\n";
663 print entityize($feed->toString) . "\n";
665 return Apache2::Const::OK;
668 my $req = $supercat->request("open-ils.supercat.$type.$format.$command",$id);
672 print "Content-type: text/html; charset=utf-8\n\n";
673 $apache->custom_response( 404, <<" HTML");
676 <title>$type $id not found!</title>
680 <center>Sorry, we couldn't $command a $type with the id of $id in format $format.</center>
687 print "Content-type: application/xml; charset=utf-8\n\n";
688 print entityize( $parser->parse_string( $req->gather(1) )->documentElement->toString );
690 return Apache2::Const::OK;
696 return Apache2::Const::DECLINED if (-e $apache->filename);
700 my $year = (gmtime())[5] + 1900;
701 my $host = $cgi->virtual_host || $cgi->server_name;
704 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
705 my $rel_name = $cgi->url(-relative=>1);
706 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
709 my $url = $cgi->url(-path_info=>$add_path);
710 my $root = (split 'feed', $url)[0] . '/';
711 my $base = (split 'bookbag', $url)[0] . '/bookbag';
712 my $unapi = (split 'feed', $url)[0] . '/unapi';
714 $root =~ s{(?<!http:)//}{/}go;
715 $base =~ s{(?<!http:)//}{/}go;
716 $unapi =~ s{(?<!http:)//}{/}go;
718 my $path = $cgi->path_info;
719 #warn "URL breakdown: $url -> $root -> $base -> $path -> $unapi";
721 my ($id,$type) = reverse split '/', $path;
722 my $flesh_feed = ($type =~ /-full$/o) ? 1 : 0;
724 my $bucket = $actor->request("open-ils.actor.container.public.flesh", 'biblio', $id)->gather(1);
725 return Apache2::Const::NOT_FOUND unless($bucket);
727 my $bucket_tag = "tag:$host,$year:record_bucket/$id";
728 if ($type eq 'opac') {
729 print "Location: $root/../../en-US/skin/default/xml/rresult.xml?rt=list&" .
730 join('&', map { "rl=" . $_->target_biblio_record_entry } @{ $bucket->items }) .
735 my $feed = create_record_feed(
738 [ map { $_->target_biblio_record_entry } @{ $bucket->items } ],
745 $feed->title("Items in Book Bag [".$bucket->name."]");
746 $feed->creator($host);
747 $feed->update_ts(gmtime_ISO8601());
749 $feed->link(rss => $base . "/rss2-full/$id" => 'application/rss+xml');
750 $feed->link(alternate => $base . "/atom-full/$id" => 'application/atom+xml');
751 $feed->link(html => $base . "/html-full/$id" => 'text/html');
752 $feed->link(unapi => $unapi);
756 '/opac/en-US/skin/default/xml/rresult.xml?rt=list&' .
757 join('&', map { 'rl=' . $_->target_biblio_record_entry } @{$bucket->items} ),
762 print "Content-type: ". $feed->type ."; charset=utf-8\n\n";
763 print entityize($feed->toString) . "\n";
765 return Apache2::Const::OK;
770 return Apache2::Const::DECLINED if (-e $apache->filename);
774 my $year = (gmtime())[5] + 1900;
775 my $host = $cgi->virtual_host || $cgi->server_name;
778 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
779 my $rel_name = $cgi->url(-relative=>1);
780 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
783 my $url = $cgi->url(-path_info=>$add_path);
784 my $root = (split 'feed', $url)[0];
785 my $base = (split 'freshmeat', $url)[0] . 'freshmeat';
786 my $unapi = (split 'feed', $url)[0] . 'unapi';
788 my $path = $cgi->path_info;
789 #warn "URL breakdown: $url ($rel_name) -> $root -> $base -> $path -> $unapi";
791 $path =~ s/^\/(?:feed\/)?freshmeat\///og;
793 my ($type,$rtype,$axis,$limit,$date) = split '/', $path;
794 my $flesh_feed = ($type =~ /-full$/o) ? 1 : 0;
797 my $list = $supercat->request("open-ils.supercat.$rtype.record.$axis.recent", $date, $limit)->gather(1);
799 #if ($type eq 'opac') {
800 # print "Location: $root/../../en-US/skin/default/xml/rresult.xml?rt=list&" .
801 # join('&', map { "rl=" . $_ } @$list) .
806 my $feed = create_record_feed( 'record', $type, $list, $unapi, undef, $flesh_feed);
810 $feed->title("Up to $limit recent $rtype ${axis}s from $date forward");
812 $feed->title("$limit most recent $rtype ${axis}s");
815 $feed->creator($host);
816 $feed->update_ts(gmtime_ISO8601());
818 $feed->link(rss => $base . "/rss2-full/$rtype/$axis/$limit/$date" => 'application/rss+xml');
819 $feed->link(alternate => $base . "/atom-full/$rtype/$axis/$limit/$date" => 'application/atom+xml');
820 $feed->link(html => $base . "/html-full/$rtype/$axis/$limit/$date" => 'text/html');
821 $feed->link(unapi => $unapi);
825 '/opac/en-US/skin/default/xml/rresult.xml?rt=list&' .
826 join('&', map { 'rl=' . $_} @$list ),
831 print "Content-type: ". $feed->type ."; charset=utf-8\n\n";
832 print entityize($feed->toString) . "\n";
834 return Apache2::Const::OK;
843 if ($version eq '1.0') {
845 Content-type: application/opensearchdescription+xml; charset=utf-8
847 <?xml version="1.0" encoding="UTF-8"?>
848 <OpenSearchDescription xmlns="http://a9.com/-/spec/opensearchdescription/1.0/">
849 <Url>$base/1.0/$lib/-/$class/?searchTerms={searchTerms}&startPage={startPage}&startIndex={startIndex}&count={count}</Url>
850 <Format>http://a9.com/-/spec/opensearchrss/1.0/</Format>
851 <ShortName>$lib</ShortName>
852 <LongName>Search $lib</LongName>
853 <Description>Search the $lib OPAC by $class.</Description>
854 <Tags>$lib book library</Tags>
855 <SampleSearch>harry+potter</SampleSearch>
856 <Developer>Mike Rylander for GPLS/PINES</Developer>
857 <Contact>feedback\@open-ils.org</Contact>
858 <SyndicationRight>open</SyndicationRight>
859 <AdultContent>false</AdultContent>
860 </OpenSearchDescription>
864 Content-type: application/opensearchdescription+xml; charset=utf-8
866 <?xml version="1.0" encoding="UTF-8"?>
867 <OpenSearchDescription xmlns="http://a9.com/-/spec/opensearch/1.1/">
868 <ShortName>$lib</ShortName>
869 <Description>Search the $lib OPAC by $class.</Description>
870 <Tags>$lib book library</Tags>
871 <Url type="application/rss+xml"
872 template="$base/1.1/$lib/rss2-full/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
873 <Url type="application/atom+xml"
874 template="$base/1.1/$lib/atom-full/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
875 <Url type="application/x-mods3+xml"
876 template="$base/1.1/$lib/mods3/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
877 <Url type="application/x-mods+xml"
878 template="$base/1.1/$lib/mods/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
879 <Url type="application/x-marcxml+xml"
880 template="$base/1.1/$lib/marcxml/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
881 <Url type="text/html"
882 template="$base/1.1/$lib/html-full/$class/?searchTerms={searchTerms}&startPage={startPage?}&startIndex={startIndex?}&count={count?}&searchLang={language?}"/>
883 <LongName>Search $lib</LongName>
884 <Query role="example" searchTerms="harry+potter" />
885 <Developer>Mike Rylander for GPLS/PINES</Developer>
886 <Contact>feedback\@open-ils.org</Contact>
887 <SyndicationRight>open</SyndicationRight>
888 <AdultContent>false</AdultContent>
889 <Language>en-US</Language>
890 <OutputEncoding>UTF-8</OutputEncoding>
891 <InputEncoding>UTF-8</InputEncoding>
892 </OpenSearchDescription>
896 return Apache2::Const::OK;
899 sub opensearch_feed {
901 return Apache2::Const::DECLINED if (-e $apache->filename);
904 my $year = (gmtime())[5] + 1900;
906 my $host = $cgi->virtual_host || $cgi->server_name;
909 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
910 my $rel_name = $cgi->url(-relative=>1);
911 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
914 my $url = $cgi->url(-path_info=>$add_path);
915 my $root = (split 'opensearch', $url)[0];
916 my $base = (split 'opensearch', $url)[0] . 'opensearch';
917 my $unapi = (split 'opensearch', $url)[0] . 'unapi';
919 my $path = $cgi->path_info;
920 #warn "URL breakdown: $url ($rel_name) -> $root -> $base -> $path -> $unapi";
922 if ($path =~ m{^/?(1\.\d{1})/(?:([^/]+)/)?([^/]+)/osd.xml}o) {
928 if (!$lib || $lib eq '-') {
929 $lib = $actor->request(
930 'open-ils.actor.org_unit_list.search' => parent_ou => undef
931 )->gather(1)->[0]->shortname;
938 return opensearch_osd($version, $lib, $class, $base);
942 my $page = $cgi->param('startPage') || 1;
943 my $offset = $cgi->param('startIndex') || 1;
944 my $limit = $cgi->param('count') || 10;
946 $page = 1 if ($page !~ /^\d+$/);
947 $offset = 1 if ($offset !~ /^\d+$/);
948 $limit = 10 if ($limit !~ /^\d+$/); $limit = 25 if ($limit > 25);
951 $offset = ($page - 1) * $limit;
956 my ($version,$org,$type,$class,$terms,$sort,$sortdir,$lang) = ('','','','','','','','');
957 (undef,$version,$org,$type,$class,$terms,$sort,$sortdir,$lang) = split '/', $path;
959 $lang = $cgi->param('searchLang') if $cgi->param('searchLang');
960 $lang = '' if ($lang eq '*');
962 $sort = $cgi->param('searchSort') if $cgi->param('searchSort');
964 $sortdir = $cgi->param('searchSortDir') if $cgi->param('searchSortDir');
967 $terms .= " " if ($terms && $cgi->param('searchTerms'));
968 $terms .= $cgi->param('searchTerms') if $cgi->param('searchTerms');
970 $class = $cgi->param('searchClass') if $cgi->param('searchClass');
973 $type = $cgi->param('responseType') if $cgi->param('responseType');
976 $org = $cgi->param('searchOrg') if $cgi->param('searchOrg');
980 my $kwt = $cgi->param('kw');
981 my $tit = $cgi->param('ti');
982 my $aut = $cgi->param('au');
983 my $sut = $cgi->param('su');
984 my $set = $cgi->param('se');
986 $terms .= " " if ($terms && $kwt);
987 $terms .= "keyword: $kwt" if ($kwt);
988 $terms .= " " if ($terms && $tit);
989 $terms .= "title: $tit" if ($tit);
990 $terms .= " " if ($terms && $aut);
991 $terms .= "author: $aut" if ($aut);
992 $terms .= " " if ($terms && $sut);
993 $terms .= "subject: $sut" if ($sut);
994 $terms .= " " if ($terms && $set);
995 $terms .= "series: $set" if ($set);
997 if ($version eq '1.0') {
999 } elsif ($type eq '-') {
1002 my $flesh_feed = ($type =~ /-full$/o) ? 1 : 0;
1004 if ($terms eq 'help') {
1005 print $cgi->header(-type => 'text/html');
1009 <title>just type something!</title>
1012 <p>You are in a maze of dark, twisty stacks, all alike.</p>
1016 return Apache2::Const::OK;
1019 $terms = decode_utf8($terms);
1020 $lang = 'eng' if ($lang eq 'en-US');
1022 $log->debug("OpenSearch terms: $terms");
1026 $org_unit = $actor->request(
1027 'open-ils.actor.org_unit_list.search' => parent_ou => undef
1029 } elsif ($org !~ /^\d+$/o) {
1030 $org_unit = $actor->request(
1031 'open-ils.actor.org_unit_list.search' => shortname => uc($org)
1034 $org_unit = $actor->request(
1035 'open-ils.actor.org_unit_list.search' => id => $org
1039 my $recs = $search->request(
1040 'open-ils.search.biblio.multiclass.query' => {
1041 org_unit => $org_unit->[0]->id,
1042 offset => $offset - 1,
1045 sort_dir => $sortdir,
1046 ($lang ? ( 'language' => $lang ) : ()),
1050 $log->debug("Hits for [$terms]: $recs->{count}");
1052 my $feed = create_record_feed(
1055 [ map { $_->[0] } @{$recs->{ids}} ],
1061 $log->debug("Feed created...");
1065 $feed->search($terms);
1066 $feed->class($class);
1068 $feed->title("Search results for [$terms] at ".$org_unit->[0]->name);
1070 $feed->creator($host);
1071 $feed->update_ts(gmtime_ISO8601());
1073 $feed->_create_node(
1074 $feed->{item_xpath},
1075 'http://a9.com/-/spec/opensearch/1.1/',
1080 $feed->_create_node(
1081 $feed->{item_xpath},
1082 'http://a9.com/-/spec/opensearch/1.1/',
1087 $feed->_create_node(
1088 $feed->{item_xpath},
1089 'http://a9.com/-/spec/opensearch/1.1/',
1094 $log->debug("...basic feed data added...");
1098 $base . "/$version/$org/$type/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang&startIndex=" . int($offset + $limit + 1) . "&count=" . $limit =>
1099 'application/opensearch+xml'
1100 ) if ($offset + $limit < $recs->{count});
1104 $base . "/$version/$org/$type/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang&startIndex=" . int(($offset - $limit) + 1) . "&count=" . $limit =>
1105 'application/opensearch+xml'
1110 $base . "/$version/$org/$type/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang" =>
1111 'application/opensearch+xml'
1116 $base . "/$version/$org/rss2-full/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang" =>
1117 'application/rss+xml'
1122 $base . "/$version/$org/atom-full/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang" =>
1123 'application/atom+xml'
1128 $base . "/$version/$org/html/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang" =>
1134 $base . "/$version/$org/html-full/$class?searchTerms=$terms&searchSort=$sort&searchSortDir=$sortdir&searchLang=$lang" =>
1138 $feed->link( 'unapi-server' => $unapi);
1140 $log->debug("...feed links added...");
1144 # $root . "../$lang/skin/default/xml/rresult.xml?rt=list&" .
1145 # join('&', map { 'rl=' . $_->[0] } grep { ref $_ && defined $_->[0] } @{$recs->{ids}} ),
1149 print $cgi->header( -type => $feed->type, -charset => 'UTF-8') . entityize($feed->toString) . "\n";
1151 $log->debug("...and feed returned.");
1153 return Apache2::Const::OK;
1156 sub create_record_feed {
1159 my $records = shift;
1162 my $lib = uc(shift()) || '-';
1164 $flesh = 1 if (!defined($flesh));
1167 my $base = $cgi->url;
1168 my $host = $cgi->virtual_host || $cgi->server_name;
1170 my $year = (gmtime())[5] + 1900;
1172 my $flesh_feed = ($type =~ s/-full$//o) ? 1 : 0;
1174 my $feed = new OpenILS::WWW::SuperCat::Feed ($type);
1175 $feed->base($base) if ($flesh);
1176 $feed->unapi($unapi) if ($flesh);
1178 $type = 'atom' if ($type eq 'html');
1179 $type = 'marcxml' if ($type eq 'htmlholdings');
1181 #$records = $supercat->request( "open-ils.supercat.record.object.retrieve", $records )->gather(1);
1184 for my $record (@$records) {
1185 next unless($record);
1187 #my $rec = $record->id;
1190 my $item_tag = "tag:$host,$year:biblio-record_entry/$rec/$lib";
1191 $item_tag = "tag:$host,$year:isbn/$rec/$lib" if ($search eq 'isbn');
1193 my $xml = $supercat->request(
1194 "open-ils.supercat.$search.$type.retrieve",
1199 my $node = $feed->add_item($xml);
1203 if ($lib && $type eq 'marcxml' && $flesh) {
1204 my $r = $supercat->request( "open-ils.supercat.$search.holdings_xml.retrieve", $rec, $lib );
1205 while ( !$r->complete ) {
1206 $xml .= join('', map {$_->content} $r->recv);
1208 $xml .= join('', map {$_->content} $r->recv);
1209 $node->add_holdings($xml);
1212 $node->id($item_tag) if ($flesh);
1213 #$node->update_ts(clense_ISO8601($record->edit_date));
1214 $node->link(alternate => $feed->unapi . "?id=$item_tag&format=htmlholdings-full" => 'text/html') if ($flesh);
1215 $node->link(opac => $feed->unapi . "?id=$item_tag&format=opac") if ($flesh);
1216 $node->link(unapi => $feed->unapi . "?id=$item_tag") if ($flesh);
1217 $node->link('unapi-id' => $item_tag) if ($flesh);
1224 my $stuff = NFC(shift());
1225 $stuff =~ s/&(?!\S+;)/&/gso;
1226 $stuff =~ s/([\x{0080}-\x{fffd}])/sprintf('&#x%X;',ord($1))/sgoe;
1232 return Apache2::Const::DECLINED if (-e $apache->filename);
1235 my $year = (gmtime())[5] + 1900;
1237 my $host = $cgi->virtual_host || $cgi->server_name;
1240 if ( $cgi->server_software !~ m|^Apache/2.2| ) {
1241 my $rel_name = $cgi->url(-relative=>1);
1242 $add_path = 1 if ($cgi->url(-path_info=>1) !~ /$rel_name$/);
1245 my $url = $cgi->url(-path_info=>$add_path);
1246 my $root = (split 'browse', $url)[0];
1247 my $base = (split 'browse', $url)[0] . 'browse';
1248 my $unapi = (split 'browse', $url)[0] . 'unapi';
1250 my $path = $cgi->path_info;
1253 my ($format,$axis,$site,$string,$page,$page_size) = split '/', $path;
1254 #warn " >>> $format -> $axis -> $site -> $string -> $page -> $page_size ";
1256 $site ||= $cgi->param('searchOrg');
1257 $page ||= $cgi->param('startPage') || 0;
1258 $page_size ||= $cgi->param('count') || 9;
1260 $page = 0 if ($page !~ /^-?\d+$/);
1262 my $prev = join('/', $base,$format,$axis,$site,$string,$page - 1,$page_size);
1263 my $next = join('/', $base,$format,$axis,$site,$string,$page + 1,$page_size);
1265 unless ($string and $axis and grep { $axis eq $_ } keys %browse_types) {
1266 warn "something's wrong...";
1267 warn " >>> $format -> $axis -> $site -> $string -> $page -> $page_size ";
1271 $string = decode_utf8($string);
1272 $string =~ s/\+/ /go;
1275 my $tree = $supercat->request(
1276 "open-ils.supercat.$axis.browse",
1283 my ($header,$content) = $browse_types{$axis}{$format}->($tree,$prev,$next);
1284 print $header.$content;
1285 return Apache2::Const::OK;
1291 my $req = SRU::Request->newFromCGI( $cgi );
1292 my $resp = SRU::Response->newFromRequest( $req );
1294 if ( $resp->type eq 'searchRetrieve' ) {
1295 my $cql_query = $req->query;
1296 my $search_string = $req->cql->toEvergreen;
1298 my $offset = $req->startRecord;
1299 $offset-- if ($offset);
1302 my $limit = $req->maximumRecords;
1305 warn "SRU search string [$cql_query] converted to [$search_string]\n";
1307 my $recs = $search->request(
1308 'open-ils.search.biblio.multiclass.query' => {offset => $offset, limit => $limit} => $search_string => 1
1311 my $bre = $supercat->request( 'open-ils.supercat.record.object.retrieve' => [ map { $_->[0] } @{$recs->{ids}} ] )->gather(1);
1314 SRU::Response::Record->new(
1315 recordSchema => 'info:srw/schema/1/marcxml-v1.1',
1316 recordData => $_->marc
1320 $resp->numberOfRecords($recs->{count});
1322 print $cgi->header( -type => 'application/xml' );
1323 print entityize($resp->asXML) . "\n";
1324 return Apache2::Const::OK;
1329 package CQL::BooleanNode;
1333 my $left = $self->left();
1334 my $right = $self->right();
1335 my $leftStr = $left->toEvergreen;
1336 my $rightStr = $right->toEvergreen();
1338 my $op = '||' if uc $self->op() eq 'OR';
1341 return "$leftStr $rightStr";
1344 package CQL::TermNode;
1346 our %qualifier_map = (
1349 'eg.site' => 'site',
1350 'eg.sort' => 'sort',
1351 'eg.direction' => 'dir',
1352 'eg.available' => 'available',
1355 'dc.title' => 'title',
1356 'bib.titleabbreviated' => 'title|abbreviated',
1357 'bib.titleuniform' => 'title|uniform',
1358 'bib.titletranslated' => 'title|translated',
1359 'bib.titlealternative' => 'title',
1360 'bib.titleseries' => 'series',
1362 # Author/Name class:
1363 'creator' => 'author',
1364 'dc.creator' => 'author',
1365 'dc.contributer' => 'author',
1366 'dc.publisher' => 'keyword',
1367 'bib.name' => 'author',
1368 'bib.namepersonal' => 'author|personal',
1369 'bib.namepersonalfamily'=> 'author|personal',
1370 'bib.namepersonalgiven' => 'author|personal',
1371 'bib.namecorporate' => 'author|corporate',
1372 'bib.nameconference' => 'author|converence',
1375 'dc.subject' => 'subject',
1376 'bib.subjectplace' => 'subject|geographic',
1377 'bib.subjecttitle' => 'keyword',
1378 'bib.subjectname' => 'subject|name',
1379 'bib.subjectoccupation' => 'keyword',
1382 'srw.serverchoice' => 'keyword',
1385 'dc.identifier' => 'keyword',
1388 'bib.dateissued' => undef,
1389 'bib.datecreated' => undef,
1390 'bib.datevalid' => undef,
1391 'bib.datemodified' => undef,
1392 'bib.datecopyright' => undef,
1398 'dc.format' => undef,
1401 'bib.genre' => 'keyword',
1404 'bib.audience' => undef,
1407 'bib.originplace' => undef,
1410 'dc.language' => 'lang',
1413 'bib.edition' => 'keyword',
1416 'bib.volume' => 'keyword',
1417 'bib.issue' => 'keyword',
1418 'bib.startpage' => 'keyword',
1419 'bib.endpage' => 'keyword',
1422 'bib.issuance' => 'keyword',
1427 my $qualifier = $self->getQualifier();
1428 my $term = $self->getTerm();
1429 my $relation = $self->getRelation();
1434 if ( exists($qualifier_map{lc($qualifier)}) ) {
1435 $qualifier = $qualifier_map{lc($qualifier)} || 'kw';
1439 my @modifiers = $relation->getModifiers();
1441 my $base = $relation->getBase();
1442 if ( grep { $base eq $_ } qw/= scr exact all/ ) {
1445 foreach my $m ( @modifiers ) {
1446 if( grep { $m->[ 1 ] eq $_ } qw/cql.fuzzy cql.stem cql.relevant cql.word/ ) {
1452 $quote_it = 0 if ( $base eq 'all' );
1453 $term = maybeQuote($term) if $quote_it;
1456 croak( "Evergreen doesn't support the $base relations" );
1459 return "$qualifier:$term";