package C4::XSLT;
# Copyright (C) 2006 LibLime
# <jmf at liblime dot com>
+# Parts Copyright Katrin Fischer 2011
+# Parts Copyright ByWater Solutions 2011
+# Parts Copyright Biblibre 2012
#
# This file is part of Koha.
#
use C4::Biblio;
use C4::Circulation;
use C4::Reserves;
-use C4::Output qw//;
use Encode;
use XML::LibXML;
use XML::LibXSLT;
+use LWP::Simple;
use vars qw($VERSION @ISA @EXPORT);
@ISA = qw(Exporter);
@EXPORT = qw(
&XSLTParse4Display
+ &GetURI
);
}
=head1 FUNCTIONS
+=head2 GetURI
+
+GetURI file and returns the xslt as a string
+
+=cut
+
+sub GetURI {
+ my ($uri) = @_;
+ my $string;
+ $string = get $uri ;
+ return $string;
+}
+
=head2 transformMARCXML4XSLT
Replaces codes with authorized values in a MARC::Record object
sub transformMARCXML4XSLT {
my ($biblionumber, $record) = @_;
- my $frameworkcode = GetFrameworkCode($biblionumber);
+ my $frameworkcode = GetFrameworkCode($biblionumber) || '';
my $tagslib = &GetMarcStructure(1,$frameworkcode);
my @fields;
# FIXME: wish there was a better way to handle exceptions
my $stylesheet;
sub XSLTParse4Display {
- my ( $biblionumber, $orig_record, $xsl_suffix, $interface ) = @_;
- $interface = 'opac' unless $interface;
+ my ( $biblionumber, $orig_record, $xslsyspref, $fixamps, $hidden_items ) = @_;
+ my $xslfilename = C4::Context->preference($xslsyspref);
+ if ( $xslfilename =~ /^\s*"?default"?\s*$/i ) {
+ if ($xslsyspref eq "XSLTDetailsDisplay") {
+ $xslfilename = C4::Context->config('intrahtdocs') .
+ '/' . C4::Context->preference("template") .
+ '/' . C4::Templates::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2intranetDetail.xsl";
+ } elsif ($xslsyspref eq "XSLTResultsDisplay") {
+ $xslfilename = C4::Context->config('intrahtdocs') .
+ '/' . C4::Context->preference("template") .
+ '/' . C4::Templates::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2intranetResults.xsl";
+ } elsif ($xslsyspref eq "OPACXSLTDetailsDisplay") {
+ $xslfilename = C4::Context->config('opachtdocs') .
+ '/' . C4::Context->preference("opacthemes") .
+ '/' . C4::Templates::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2OPACDetail.xsl";
+ } elsif ($xslsyspref eq "OPACXSLTResultsDisplay") {
+ $xslfilename = C4::Context->config('opachtdocs') .
+ '/' . C4::Context->preference("opacthemes") .
+ '/' . C4::Templates::_current_language() .
+ '/xslt/' .
+ C4::Context->preference('marcflavour') .
+ "slim2OPACResults.xsl";
+ }
+ }
+
+ if ( $xslfilename =~ m/\{langcode\}/ ) {
+ my $lang = C4::Templates::_current_language();
+ $xslfilename =~ s/\{langcode\}/$lang/;
+ }
+
# grab the XML, run it through our stylesheet, push it out to the browser
my $record = transformMARCXML4XSLT($biblionumber, $orig_record);
#return $record->as_formatted();
- my $itemsxml = buildKohaItemsNamespace($biblionumber);
+ my $itemsxml = buildKohaItemsNamespace($biblionumber, $hidden_items);
my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
my $sysxml = "<sysprefs>\n";
- foreach my $syspref ( qw/OPACURLOpenInNewWindow DisplayOPACiconsXSLT URLLinkText viewISBD OPACBaseURL/ ) {
+ foreach my $syspref ( qw/ hidelostitems OPACURLOpenInNewWindow
+ DisplayOPACiconsXSLT URLLinkText viewISBD
+ OPACBaseURL TraceCompleteSubfields UseICU
+ UseAuthoritiesForTracings TraceSubjectSubdivisions
+ Display856uAsImage OPACDisplay856uAsImage
+ UseControlNumber
+ AlternateHoldingsField AlternateHoldingsSeparator / )
+ {
my $sp = C4::Context->preference( $syspref );
next unless defined($sp);
$sysxml .= "<syspref name=\"$syspref\">$sp</syspref>\n";
}
$sysxml .= "</sysprefs>\n";
$xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;
+ if ($fixamps) { # We need to correct the ampersand entities that Zebra outputs
+ $xmlrecord =~ s/\&amp;/\&/g;
+ }
$xmlrecord =~ s/\& /\&\; /;
- $xmlrecord=~ s/\&\;amp\; /\&\; /;
+ $xmlrecord =~ s/\&\;amp\; /\&\; /;
my $parser = XML::LibXML->new();
# don't die when you find &, >, etc
$parser->recover_silently(0);
my $source = $parser->parse_string($xmlrecord);
- unless ( $stylesheet ) {
+ unless ( $stylesheet->{$xslfilename} ) {
my $xslt = XML::LibXSLT->new();
- my $xslfile;
- if ($interface eq 'intranet') {
- $xslfile = C4::Context->config('intrahtdocs') .
- '/' . C4::Context->preference("template") .
- '/' . C4::Output::_current_language() .
- '/xslt/' .
- C4::Context->preference('marcflavour') .
- "slim2intranet$xsl_suffix.xsl";
+ my $style_doc;
+ if ( $xslfilename =~ /^https?:\/\// ) {
+ my $xsltstring = GetURI($xslfilename);
+ $style_doc = $parser->parse_string($xsltstring);
} else {
- $xslfile = C4::Context->config('opachtdocs') .
- '/' . C4::Context->preference("opacthemes") .
- '/' . C4::Output::_current_language() .
- '/xslt/' .
- C4::Context->preference('marcflavour') .
- "slim2OPAC$xsl_suffix.xsl";
+ use Cwd;
+ $style_doc = $parser->parse_file($xslfilename);
}
- my $style_doc = $parser->parse_file($xslfile);
- $stylesheet = $xslt->parse_stylesheet($style_doc);
+ $stylesheet->{$xslfilename} = $xslt->parse_stylesheet($style_doc);
}
- my $results = $stylesheet->transform($source);
- my $newxmlrecord = $stylesheet->output_string($results);
+ my $results = $stylesheet->{$xslfilename}->transform($source);
+ my $newxmlrecord = $stylesheet->{$xslfilename}->output_string($results);
return $newxmlrecord;
}
sub buildKohaItemsNamespace {
- my ($biblionumber) = @_;
+ my ($biblionumber, $hidden_items) = @_;
+
my @items = C4::Items::GetItemsInfo($biblionumber);
+ if ($hidden_items && @$hidden_items) {
+ my %hi = map {$_ => 1} @$hidden_items;
+ @items = grep { !$hi{$_->{itemnumber}} } @items;
+ }
my $branches = GetBranches();
my $itemtypes = GetItemTypes();
my $xml = '';
my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber});
- my ( $reservestatus, $reserveitem ) = C4::Reserves::CheckReserves($item->{itemnumber});
+ my ( $reservestatus, $reserveitem, undef ) = C4::Reserves::CheckReserves($item->{itemnumber});
if ( $itemtypes->{ $item->{itype} }->{notforloan} || $item->{notforloan} || $item->{onloan} || $item->{wthdrawn} || $item->{itemlost} || $item->{damaged} ||
(defined $transfertwhen && $transfertwhen ne '') || $item->{itemnotforloan} || (defined $reservestatus && $reservestatus eq "Waiting") ){
} else {
$status = "available";
}
- my $homebranch = xml_escape($branches->{$item->{homebranch}}->{'branchname'});
+ my $homebranch = $item->{homebranch}? xml_escape($branches->{$item->{homebranch}}->{'branchname'}):'';
my $itemcallnumber = xml_escape($item->{itemcallnumber});
$xml.= "<item><homebranch>$homebranch</homebranch>".
"<status>$status</status>".
projects / koha.git / blobdiff