3 # Copyright (C) 2006 LibLime
4 # <jmf at liblime dot com>
5 # Parts Copyright Katrin Fischer 2011
6 # Parts Copyright ByWater Solutions 2011
7 # Parts Copyright Biblibre 2012
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it
12 # under the terms of the GNU General Public License as published by
13 # the Free Software Foundation; either version 3 of the License, or
14 # (at your option) any later version.
16 # Koha is distributed in the hope that it will be useful, but
17 # WITHOUT ANY WARRANTY; without even the implied warranty of
18 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 # GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License
22 # along with Koha; if not, see <http://www.gnu.org/licenses>.
27 use C4::Koha qw( xml_escape );
28 use C4::Biblio qw( GetAuthorisedValueDesc GetFrameworkCode GetMarcStructure );
29 use Koha::AuthorisedValues;
31 use Koha::RecordProcessor;
36 my $engine; #XSLT Handler object
38 our (@ISA, @EXPORT_OK);
43 buildKohaItemsNamespace
46 $engine=Koha::XSLT::Base->new( { do_not_return_source => 1 } );
51 C4::XSLT - Functions for displaying XSLT-generated content
55 =head2 XSLTParse4Display
57 Returns xml for biblionumber and requested XSLT transformation.
58 Returns undef if the transform fails.
60 Used in OPAC results and detail, intranet results and detail, list display.
61 (Depending on the settings of your XSLT preferences.)
63 The helper function _get_best_default_xslt_filename is used in a unit test.
67 sub _get_best_default_xslt_filename {
68 my ($htdocs, $theme, $lang, $base_xslfile) = @_;
71 "$htdocs/$theme/$lang/xslt/${base_xslfile}", # exact match
72 "$htdocs/$theme/en/xslt/${base_xslfile}", # if not, preferred theme in English
73 "$htdocs/prog/$lang/xslt/${base_xslfile}", # if not, 'prog' theme in preferred language
74 "$htdocs/prog/en/xslt/${base_xslfile}", # otherwise, prog theme in English; should always
78 foreach my $filename (@candidates) {
79 $xslfilename = $filename;
81 last; # we have a winner!
87 sub get_xslt_sysprefs {
88 my $sysxml = "<sysprefs>\n";
89 foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
90 DisplayOPACiconsXSLT URLLinkText viewISBD
91 OPACBaseURL TraceCompleteSubfields UseICUStyleQuotes
92 UseAuthoritiesForTracings TraceSubjectSubdivisions
93 Display856uAsImage OPACDisplay856uAsImage
94 UseControlNumber IntranetBiblioDefaultView BiblioDefaultView
95 OPACItemLocation DisplayIconsXSLT
96 AlternateHoldingsField AlternateHoldingsSeparator
97 TrackClicks opacthemes IdRef OpacSuppression
98 OPACResultsLibrary OPACShowOpenURL
99 OpenURLResolverURL OpenURLImageLocation
100 OPACResultsMaxItems OPACResultsMaxItemsUnavailable OPACResultsUnavailableGroupingBy
101 OpenURLText OPACShowMusicalInscripts OPACPlayMusicalInscripts ContentWarningField / )
103 my $sp = C4::Context->preference( $syspref );
104 next unless defined($sp);
105 $sysxml .= "<syspref name=\"$syspref\">$sp</syspref>\n";
108 # singleBranchMode was a system preference, but no longer is
109 # we can retain it here for compatibility
110 my $singleBranchMode = Koha::Libraries->search->count == 1 ? 1 : 0;
111 $sysxml .= "<syspref name=\"singleBranchMode\">$singleBranchMode</syspref>\n";
113 $sysxml .= "</sysprefs>\n";
117 sub get_xsl_filename {
118 my ( $xslsyspref ) = @_;
120 my $lang = C4::Languages::getlanguage();
122 my $xslfilename = C4::Context->preference($xslsyspref) || "default";
124 if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
126 my ( $htdocs, $theme, $xslfile );
128 if ($xslsyspref eq "XSLTDetailsDisplay") {
129 $htdocs = C4::Context->config('intrahtdocs');
130 $theme = C4::Context->preference("template");
131 $xslfile = C4::Context->preference('marcflavour') .
132 "slim2intranetDetail.xsl";
133 } elsif ($xslsyspref eq "XSLTResultsDisplay") {
134 $htdocs = C4::Context->config('intrahtdocs');
135 $theme = C4::Context->preference("template");
136 $xslfile = C4::Context->preference('marcflavour') .
137 "slim2intranetResults.xsl";
138 } elsif ($xslsyspref eq "OPACXSLTDetailsDisplay") {
139 $htdocs = C4::Context->config('opachtdocs');
140 $theme = C4::Context->preference("opacthemes");
141 $xslfile = C4::Context->preference('marcflavour') .
142 "slim2OPACDetail.xsl";
143 } elsif ($xslsyspref eq "OPACXSLTResultsDisplay") {
144 $htdocs = C4::Context->config('opachtdocs');
145 $theme = C4::Context->preference("opacthemes");
146 $xslfile = C4::Context->preference('marcflavour') .
147 "slim2OPACResults.xsl";
148 } elsif ($xslsyspref eq 'XSLTListsDisplay') {
149 # Lists default to *Results.xslt
150 $htdocs = C4::Context->config('intrahtdocs');
151 $theme = C4::Context->preference("template");
152 $xslfile = C4::Context->preference('marcflavour') .
153 "slim2intranetResults.xsl";
154 } elsif ($xslsyspref eq 'OPACXSLTListsDisplay') {
155 # Lists default to *Results.xslt
156 $htdocs = C4::Context->config('opachtdocs');
157 $theme = C4::Context->preference("opacthemes");
158 $xslfile = C4::Context->preference('marcflavour') .
159 "slim2OPACResults.xsl";
161 $xslfilename = _get_best_default_xslt_filename($htdocs, $theme, $lang, $xslfile);
164 if ( $xslfilename =~ m/\{langcode\}/ ) {
165 $xslfilename =~ s/\{langcode\}/$lang/;
171 sub XSLTParse4Display {
174 my $biblionumber = $params->{biblionumber};
175 my $record = $params->{record};
176 my $xslsyspref = $params->{xsl_syspref};
177 my $fixamps = $params->{fix_amps};
178 my $hidden_items = $params->{hidden_items} || [];
179 my $variables = $params->{xslt_variables};
180 my $items_rs = $params->{items_rs};
181 my $interface = C4::Context->interface;
183 die "Mandatory \$params->{xsl_syspref} was not provided, called with biblionumber $params->{biblionumber}"
184 if not defined $params->{xsl_syspref};
186 my $xslfilename = get_xsl_filename( $xslsyspref);
188 my $frameworkcode = GetFrameworkCode($biblionumber) || '';
189 my $record_processor = Koha::RecordProcessor->new(
191 filters => [ 'ExpandCodedFields' ],
193 interface => $interface,
194 frameworkcode => $frameworkcode
198 $record_processor->process($record);
200 # grab the XML, run it through our stylesheet, push it out to the browser
202 if ( $xslsyspref eq "OPACXSLTDetailsDisplay" || $xslsyspref eq "XSLTDetailsDisplay" || $xslsyspref eq "XSLTResultsDisplay" ) {
203 $itemsxml = ""; #We don't use XSLT for items display on these pages
205 $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items, $items_rs);
207 my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
211 if ( $interface eq 'opac' && C4::Context->preference('OPACShowOpenURL')) {
212 my @biblio_itemtypes;
213 $biblio //= Koha::Biblios->find($biblionumber);
214 if (C4::Context->preference('item-level_itypes')) {
215 @biblio_itemtypes = $biblio->items->get_column("itype");
217 push @biblio_itemtypes, $biblio->itemtype;
219 my @itypes = split( /\s/, C4::Context->preference('OPACOpenURLItemTypes') );
221 map { $original{$_} = 1 } @biblio_itemtypes;
222 if ( grep { $original{$_} } @itypes ) {
223 $variables->{OpenURLResolverURL} = $biblio->get_openurl;
227 # possibly show volumes link in Detail views
228 if ($xslsyspref =~ m/Details/) {
229 $biblio //= Koha::Biblios->find( $biblionumber );
230 my $volumes = $biblio->get_marc_volumes();
231 $variables->{show_volumes_link} = ( scalar @{$volumes} == 0 ) ? 0 : 1;
235 my $varxml = "<variables>\n";
236 while (my ($key, $value) = each %$variables) {
238 $varxml .= "<variable name=\"$key\">$value</variable>\n";
240 $varxml .= "</variables>\n";
242 my $sysxml = get_xslt_sysprefs();
243 $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml$varxml\<\/record\>/;
244 if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs
245 $xmlrecord =~ s/\&amp;/\&/g;
246 $xmlrecord =~ s/\&\;lt\;/\<\;/g;
247 $xmlrecord =~ s/\&\;gt\;/\>\;/g;
249 $xmlrecord =~ s/\& /\&\; /;
250 $xmlrecord =~ s/\&\;amp\; /\&\; /;
252 #If the xslt should fail, we will return undef (old behavior was
254 #Note that we did set do_not_return_source at object construction
255 return $engine->transform($xmlrecord, $xslfilename ); #file or URL
258 =head2 buildKohaItemsNamespace
260 my $items_xml = buildKohaItemsNamespace( $biblionumber, [ $hidden_items, $items ] );
262 Returns XML for items. It accepts two optional parameters:
263 - I<$hidden_items>: An arrayref of itemnumber values, for items that should be hidden
264 - I<$items>: A Koha::Items resultset, for the items to be returned
266 If both parameters are passed, I<$items> is used as the basis resultset, and I<$hidden_items>
267 are filtered out of it.
269 Is only used in this module currently.
273 sub buildKohaItemsNamespace {
274 my ($biblionumber, $hidden_items, $items_rs) = @_;
276 $hidden_items ||= [];
279 $query = { 'me.itemnumber' => { not_in => $hidden_items } }
282 unless ( $items_rs && ref($items_rs) eq 'Koha::Items' ) {
283 $query->{'me.biblionumber'} = $biblionumber;
284 $items_rs = Koha::Items->new;
287 my $items = $items_rs->search( $query, { prefetch => [ 'branchtransfers', 'reserves' ] } );
290 { map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => "", kohafield => 'items.location' } ) };
292 { map { $_->{authorised_value} => $_->{opac_description} } Koha::AuthorisedValues->get_descriptions_by_koha_field( { frameworkcode => "", kohafield => 'items.ccode' } ) };
294 my %branches = map { $_->branchcode => $_->branchname } Koha::Libraries->search({}, { order_by => 'branchname' })->as_list;
296 my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search->unblessed } };
298 my %descs = map { $_->{authorised_value} => $_ } Koha::AuthorisedValues->get_descriptions_by_koha_field( { kohafield => 'items.notforloan' } );
299 my $ref_status = C4::Context->preference('Reference_NFL_Statuses') // q{}; # fallback to 1|2 removed
301 while ( my $item = $items->next ) {
306 if ( C4::Context->preference('UseRecalls') ) {
307 $recalls_count = Koha::Recalls->search({ item_id => $item->itemnumber, status => 'waiting' })->count;
310 if ($recalls_count) {
311 # recalls take priority over holds
313 $substatus = 'Recall waiting';
315 elsif ( $item->has_pending_hold ) {
317 $substatus = 'Pending hold';
319 elsif ( $item->holds->waiting->count ) {
321 $substatus = 'Hold waiting';
323 elsif ($item->get_transfer) {
325 $substatus = 'In transit';
327 elsif ($item->damaged) {
329 $substatus = "Damaged";
331 elsif ($item->itemlost) {
335 elsif ( $item->withdrawn) {
337 $substatus = "Withdrawn";
339 elsif ($item->onloan) {
341 $substatus = "Checked out";
343 elsif ( $item->notforloan ) {
344 $status = $item->notforloan =~ /^($ref_status)$/
346 : "reallynotforloan";
347 $substatus = exists $descs{$item->notforloan} ? $descs{$item->notforloan}->{opac_description} : "Not for loan";
349 elsif ( exists $itemtypes->{ $item->effective_itemtype }
350 && $itemtypes->{ $item->effective_itemtype }->{notforloan}
351 && $itemtypes->{ $item->effective_itemtype }->{notforloan} == 1 )
353 $status = "1" =~ /^($ref_status)$/
355 : "reallynotforloan";
356 $substatus = "Not for loan";
359 $status = "available";
361 my $homebranch = C4::Koha::xml_escape($branches{$item->homebranch});
362 my $holdingbranch = C4::Koha::xml_escape($branches{$item->holdingbranch});
363 my $resultbranch = C4::Context->preference('OPACResultsLibrary') eq 'homebranch' ? $homebranch : $holdingbranch;
364 my $location = C4::Koha::xml_escape($item->location && exists $shelflocations->{$item->location} ? $shelflocations->{$item->location} : $item->location);
365 my $ccode = C4::Koha::xml_escape($item->ccode && exists $ccodes->{$item->ccode} ? $ccodes->{$item->ccode} : $item->ccode);
366 my $itemcallnumber = C4::Koha::xml_escape($item->itemcallnumber);
367 my $stocknumber = C4::Koha::xml_escape($item->stocknumber);
370 . "<homebranch>$homebranch</homebranch>"
371 . "<holdingbranch>$holdingbranch</holdingbranch>"
372 . "<resultbranch>$resultbranch</resultbranch>"
373 . "<location>$location</location>"
374 . "<ccode>$ccode</ccode>"
375 . "<status>".( $status // q{} )."</status>"
376 . "<substatus>$substatus</substatus>"
377 . "<itemcallnumber>$itemcallnumber</itemcallnumber>"
378 . "<stocknumber>$stocknumber</stocknumber>"
381 $xml = "<items xmlns=\"http://www.koha-community.org/items\">".$xml."</items>";
387 Returns reference to XSLT handler object.
401 Joshua Ferraro <jmf@liblime.com>
403 Koha Development Team <http://koha-community.org/>