|
Lines 20-39
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 |
use Koha::Patrons; |
31 |
use Koha::Patrons; |
| 35 |
|
|
|
| 36 |
use Koha::ItemTypes; |
32 |
use Koha::ItemTypes; |
|
|
33 |
use Koha::DateUtils; |
| 34 |
use MARC::Record; |
| 37 |
|
35 |
|
| 38 |
my $query = new CGI; |
36 |
my $query = new CGI; |
| 39 |
|
37 |
|
|
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 |
- |
|
|