Lines 20-38
use strict;
Link Here
|
20 |
use warnings; |
20 |
use warnings; |
21 |
|
21 |
|
22 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
23 |
|
|
|
24 |
use C4::Auth; |
23 |
use C4::Auth; |
25 |
use C4::Koha; |
24 |
use C4::Koha; |
26 |
use C4::Biblio; |
25 |
use C4::Biblio; |
27 |
use C4::Circulation; |
26 |
use C4::Circulation; |
28 |
use C4::Members; |
27 |
use C4::Members; |
29 |
use Koha::DateUtils; |
28 |
use C4::External::BakerTaylor qw(&image_url &link_url); |
30 |
use MARC::Record; |
|
|
31 |
|
32 |
use C4::Output; |
29 |
use C4::Output; |
33 |
use C4::Charset qw(StripNonXmlChars); |
30 |
use C4::Charset qw(StripNonXmlChars); |
34 |
|
|
|
35 |
use Koha::ItemTypes; |
31 |
use Koha::ItemTypes; |
|
|
32 |
use Koha::DateUtils; |
33 |
use MARC::Record; |
36 |
|
34 |
|
37 |
my $query = new CGI; |
35 |
my $query = new CGI; |
38 |
|
36 |
|
Lines 124-143
foreach my $issue ( @{$issues} ) {
Link Here
|
124 |
} |
122 |
} |
125 |
} |
123 |
} |
126 |
|
124 |
|
127 |
BEGIN { |
|
|
128 |
if (C4::Context->preference('BakerTaylorEnabled')) { |
129 |
require C4::External::BakerTaylor; |
130 |
import C4::External::BakerTaylor qw(&image_url &link_url); |
131 |
} |
132 |
} |
133 |
|
134 |
if (C4::Context->preference('BakerTaylorEnabled')) { |
125 |
if (C4::Context->preference('BakerTaylorEnabled')) { |
135 |
$template->param( |
126 |
$template->param( |
136 |
JacketImages => 1, |
|
|
137 |
BakerTaylorEnabled => 1, |
138 |
BakerTaylorImageURL => &image_url(), |
127 |
BakerTaylorImageURL => &image_url(), |
139 |
BakerTaylorLinkURL => &link_url(), |
128 |
BakerTaylorLinkURL => &link_url(), |
140 |
BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'), |
|
|
141 |
); |
129 |
); |
142 |
} |
130 |
} |
143 |
|
131 |
|
144 |
- |
|
|