Attachment #50506 for bug #15263

View | Details | Raw Unified | Return to bug 15263
Collapse All | Expand All




# along with Koha; if not, see <http://www.gnu.org/licenses>.


use Modern::Perl;
use warnings;

use CGI qw ( -utf8 );
use C4::Acquisition qw( GetHistory );

my $marcflavour  = C4::Context->preference("marcflavour");

# XSLT processing of some stuff
my $xslfile = C4::Context->preference('XSLTDetailsDisplay');
my $lang   = $xslfile ? C4::Languages::getlanguage()  : undef;
my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;

if ( $xslfile ) {
    $template->param(
        XSLTDetailsDisplay => '1',
        XSLTBloc => XSLTParse4Display(
                        $biblionumber, $record, "XSLTDetailsDisplay",
                        1, undef, $sysxml, $xslfile, $lang
                    )
    );
}

$template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") );




# along with Koha; if not, see <http://www.gnu.org/licenses>.


use Modern::Perl;
use warnings;

use CGI qw ( -utf8 );
use C4::Acquisition qw( SearchOrders );

my $ean = GetNormalizedEAN( $record, $marcflavour );

# XSLT processing of some stuff
my $xslfile = C4::Context->preference('OPACXSLTDetailsDisplay');
my $lang   = $xslfile ? C4::Languages::getlanguage()  : undef;
my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;

if ( $xslfile ) {
    $template->param(
        XSLTBloc => XSLTParse4Display(
                        $biblionumber, $record, "OPACXSLTDetailsDisplay",
                        1, undef, $sysxml, $xslfile, $lang
                    )
    );
}

my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");





=cut

use Modern::Perl;

use CGI qw ( -utf8 );
use CGI::Cookie; # need to check cookies before having CGI parse the POST request


        $tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) );
        $tag->{title} = $biblio->{title};
        $tag->{author} = $biblio->{author};

        my $xslfile = C4::Context->preference('OPACXSLTResultsDisplay');
        my $lang   = $xslfile ? C4::Languages::getlanguage()  : undef;
        my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;

        if ( $xslfile ) {
            $tag->{XSLTBloc} = XSLTParse4Display(
                    $tag->{ biblionumber }, $record, "OPACXSLTResultsDisplay",
                    1, undef, $sysxml, $xslfile, $lang
            );
        }

        my $date = $tag->{date_created} || '';
        $date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;
        $tag->{time_created_display} = $1;
- 

Return to bug 15263

Lines 16-23 Link Here

(-)a/catalogue/detail.pl (-5 / +13 lines)
16	# along with Koha; if not, see <http://www.gnu.org/licenses>.	16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
17		17
18		18
19	use strict;	19	use Modern::Perl;
20	use warnings;
21		20
22	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
23	use C4::Acquisition qw( GetHistory );	22	use C4::Acquisition qw( GetHistory );
Lines 84-92 my $showallitems = $query->param('showallitems'); Link Here
84	my $marcflavour = C4::Context->preference("marcflavour");	83	my $marcflavour = C4::Context->preference("marcflavour");
85		84
86	# XSLT processing of some stuff	85	# XSLT processing of some stuff
87	if (C4::Context->preference("XSLTDetailsDisplay") ) {	86	my $xslfile = C4::Context->preference('XSLTDetailsDisplay');
88	$template->param('XSLTDetailsDisplay' =>'1',	87	my $lang = $xslfile ? C4::Languages::getlanguage() : undef;
89	'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "XSLTDetailsDisplay") );	88	my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;
		89
		90	if ( $xslfile ) {
		91	$template->param(
		92	XSLTDetailsDisplay => '1',
		93	XSLTBloc => XSLTParse4Display(
		94	$biblionumber, $record, "XSLTDetailsDisplay",
		95	1, undef, $sysxml, $xslfile, $lang
		96	)
		97	);
90	}	98	}
91		99
92	$template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") );	100	$template->param( 'SpineLabelShowPrintOnBibDetails' => C4::Context->preference("SpineLabelShowPrintOnBibDetails") );

Lines 20-27 Link Here

(-)a/opac/opac-detail.pl (-4 / +12 lines)
20	# along with Koha; if not, see <http://www.gnu.org/licenses>.	20	# along with Koha; if not, see <http://www.gnu.org/licenses>.
21		21
22		22
23	use strict;	23	use Modern::Perl;
24	use warnings;
25		24
26	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
27	use C4::Acquisition qw( SearchOrders );	26	use C4::Acquisition qw( SearchOrders );
Lines 141-148 my $marcflavour = C4::Context->preference("marcflavour"); Link Here
141	my $ean = GetNormalizedEAN( $record, $marcflavour );	140	my $ean = GetNormalizedEAN( $record, $marcflavour );
142		141
143	# XSLT processing of some stuff	142	# XSLT processing of some stuff
144	if (C4::Context->preference("OPACXSLTDetailsDisplay") ) {	143	my $xslfile = C4::Context->preference('OPACXSLTDetailsDisplay');
145	$template->param( 'XSLTBloc' => XSLTParse4Display($biblionumber, $record, "OPACXSLTDetailsDisplay" ) );	144	my $lang = $xslfile ? C4::Languages::getlanguage() : undef;
		145	my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;
		146
		147	if ( $xslfile ) {
		148	$template->param(
		149	XSLTBloc => XSLTParse4Display(
		150	$biblionumber, $record, "OPACXSLTDetailsDisplay",
		151	1, undef, $sysxml, $xslfile, $lang
		152	)
		153	);
146	}	154	}
147		155
148	my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");	156	my $OpacBrowseResults = C4::Context->preference("OpacBrowseResults");

Lines 30-37 C4::Scrubber is used to remove all markup content from the sumitted text. Link Here

(-)a/opac/opac-tags.pl (-5 / +13 lines)
30		30
31	=cut	31	=cut
32		32
33	use strict;	33	use Modern::Perl;
34	use warnings;	34
35	use CGI qw ( -utf8 );	35	use CGI qw ( -utf8 );
36	use CGI::Cookie; # need to check cookies before having CGI parse the POST request	36	use CGI::Cookie; # need to check cookies before having CGI parse the POST request
37		37
Lines 234-242 if ($loggedinuser) { Link Here
234	$tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) );	234	$tag->{subtitle} = GetRecordValue( 'subtitle', $record, GetFrameworkCode( $tag->{biblionumber} ) );
235	$tag->{title} = $biblio->{title};	235	$tag->{title} = $biblio->{title};
236	$tag->{author} = $biblio->{author};	236	$tag->{author} = $biblio->{author};
237	if (C4::Context->preference("OPACXSLTResultsDisplay")) {	237
238	$tag->{XSLTBloc} = XSLTParse4Display($tag->{biblionumber}, $record, "OPACXSLTResultsDisplay");	238	my $xslfile = C4::Context->preference('OPACXSLTResultsDisplay');
		239	my $lang = $xslfile ? C4::Languages::getlanguage() : undef;
		240	my $sysxml = $xslfile ? C4::XSLT::get_xslt_sysprefs() : undef;
		241
		242	if ( $xslfile ) {
		243	$tag->{XSLTBloc} = XSLTParse4Display(
		244	$tag->{ biblionumber }, $record, "OPACXSLTResultsDisplay",
		245	1, undef, $sysxml, $xslfile, $lang
		246	);
239	}	247	}
		248
240	my $date = $tag->{date_created} \|\| '';	249	my $date = $tag->{date_created} \|\| '';
241	$date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;	250	$date =~ /\s+(\d{2}\:\d{2}\:\d{2})/;
242	$tag->{time_created_display} = $1;	251	$tag->{time_created_display} = $1;
243	-