Owen Leonard
8129680afd
The code in opac-showmarc.pl isn't smart enough to find the xsl files in the "default" (prog) theme if the ccsr theme is enabled, so the "view plain" option on opac-MARCdetail.pl fails ever time. This patch copies some path-handling code from XSLT.pm to improve xsl file path handling when dealing with a "sub-theme." To test, view the MARC view in the OPAC and click the "view plain" link. This should work correctly in prog and ccsr themes and with different languages enabled (keeping in mind the ccsr theme will fail in general for languages other than en). Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Checked plain view works in both prog and ccsr themes now. All tests and QA script pass. Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>
96 lines
3.1 KiB
Perl
Executable file
96 lines
3.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# $Id: showmarc.pl,v 1.1.2.1 2007/06/18 21:57:23 rangi Exp $
|
|
|
|
|
|
# Koha library project www.koha-community.org
|
|
|
|
# Licensed under the GPL
|
|
|
|
# Copyright 2007 Liblime
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# standard or CPAN modules used
|
|
use CGI;
|
|
use Encode;
|
|
|
|
# Koha modules used
|
|
use C4::Context;
|
|
use C4::Output;
|
|
use C4::Auth;
|
|
use C4::Biblio;
|
|
use C4::ImportBatch;
|
|
use XML::LibXSLT;
|
|
use XML::LibXML;
|
|
|
|
my $input = new CGI;
|
|
my $biblionumber = $input->param('id');
|
|
$biblionumber = int($biblionumber);
|
|
my $importid= $input->param('importid');
|
|
my $view= $input->param('viewas') || 'marc';
|
|
|
|
my $record;
|
|
if ($importid) {
|
|
my ($marc) = GetImportRecordMarc($importid);
|
|
$record = MARC::Record->new_from_usmarc($marc);
|
|
}
|
|
else {
|
|
$record =GetMarcBiblio($biblionumber);
|
|
}
|
|
|
|
if ($view eq 'card' || $view eq 'html') {
|
|
my $xmlrecord= $importid? $record->as_xml(): GetXmlBiblio($biblionumber);
|
|
my $xslfile;
|
|
my $xslfilename;
|
|
my $htdocs = C4::Context->config('opachtdocs');
|
|
my $theme = C4::Context->preference("opacthemes");
|
|
my $lang = C4::Templates::_current_language();
|
|
|
|
if ($view eq 'card'){
|
|
$xslfile = "compact.xsl";
|
|
}
|
|
else { # must be html
|
|
$xslfile = C4::Context->preference('marcflavour') . "slim2OPACMARCdetail.xsl";
|
|
}
|
|
$xslfilename = "$htdocs/$theme/$lang/xslt/$xslfile";
|
|
$xslfilename = "$htdocs/$theme/en/xslt/$xslfile" unless ( $lang ne 'en' && -f $xslfilename );
|
|
$xslfilename = "$htdocs/prog/$lang/xslt/$xslfile" unless ( -f $xslfile );
|
|
$xslfilename = "$htdocs/prog/en/xslt/$xslfile" unless ( $lang ne 'en' && -f $xslfilename );
|
|
|
|
my $parser = XML::LibXML->new();
|
|
my $xslt = XML::LibXSLT->new();
|
|
my $source = $parser->parse_string($xmlrecord);
|
|
my $style_doc = $parser->parse_file($xslfilename);
|
|
my $stylesheet = $xslt->parse_stylesheet($style_doc);
|
|
my $results = $stylesheet->transform($source);
|
|
my $newxmlrecord = $stylesheet->output_string($results);
|
|
print $input->header(-charset => 'UTF-8'), Encode::encode_utf8($newxmlrecord);
|
|
}
|
|
else { #view eq marc
|
|
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
|
|
template_name => "opac-showmarc.tmpl",
|
|
query => $input,
|
|
type => "opac",
|
|
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
|
|
debug => 1,
|
|
});
|
|
$template->param( MARC_FORMATTED => $record->as_formatted );
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|
|
}
|