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

(-)a/catalogue/detail.pl (-5 / +13 lines)
Lines 16-23 Link Here
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") );
(-)a/opac/opac-detail.pl (-4 / +12 lines)
Lines 20-27 Link Here
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");
(-)a/opac/opac-tags.pl (-5 / +13 lines)
Lines 30-37 C4::Scrubber is used to remove all markup content from the sumitted text. Link Here
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
- 

Return to bug 15263