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

(-)a/opac/opac-detail.pl (-7 / +2 lines)
Lines 34-39 use C4::Circulation; Link Here
34
use C4::Tags qw(get_tags);
34
use C4::Tags qw(get_tags);
35
use C4::XISBN qw(get_xisbns);
35
use C4::XISBN qw(get_xisbns);
36
use C4::External::Amazon;
36
use C4::External::Amazon;
37
use C4::External::BakerTaylor;
38
use C4::External::BakerTaylor qw(&image_url &link_url);
37
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
39
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes );
38
use C4::Members;
40
use C4::Members;
39
use C4::XSLT;
41
use C4::XSLT;
Lines 61-73 use Koha::Patrons; Link Here
61
use Koha::Ratings;
63
use Koha::Ratings;
62
use Koha::Reviews;
64
use Koha::Reviews;
63
65
64
BEGIN {
65
	if (C4::Context->preference('BakerTaylorEnabled')) {
66
		require C4::External::BakerTaylor;
67
		import C4::External::BakerTaylor qw(&image_url &link_url);
68
	}
69
}
70
71
my $query = CGI->new();
66
my $query = CGI->new();
72
67
73
my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0;
68
my $biblionumber = $query->param('biblionumber') || $query->param('bib') || 0;
(-)a/opac/opac-readingrecord.pl (-7 / +2 lines)
Lines 25-30 use C4::Koha; Link Here
25
use C4::Biblio;
25
use C4::Biblio;
26
use C4::Circulation;
26
use C4::Circulation;
27
use C4::Members;
27
use C4::Members;
28
use C4::External::BakerTaylor;
29
use C4::External::BakerTaylor qw(&image_url &link_url);
28
use Koha::DateUtils;
30
use Koha::DateUtils;
29
use MARC::Record;
31
use MARC::Record;
30
32
Lines 138-150 if (C4::Context->preference('BakerTaylorEnabled')) { Link Here
138
	);
140
	);
139
}
141
}
140
142
141
BEGIN {
142
	if (C4::Context->preference('BakerTaylorEnabled')) {
143
		require C4::External::BakerTaylor;
144
		import C4::External::BakerTaylor qw(&image_url &link_url);
145
	}
146
}
147
148
for(qw(AmazonCoverImages GoogleJackets)) { # BakerTaylorEnabled handled above
143
for(qw(AmazonCoverImages GoogleJackets)) { # BakerTaylorEnabled handled above
149
	C4::Context->preference($_) or next;
144
	C4::Context->preference($_) or next;
150
	$template->param($_=>1);
145
	$template->param($_=>1);
(-)a/opac/opac-search.pl (-7 / +2 lines)
Lines 51-56 use C4::Koha; Link Here
51
use C4::Tags qw(get_tags);
51
use C4::Tags qw(get_tags);
52
use C4::SocialData;
52
use C4::SocialData;
53
use C4::External::OverDrive;
53
use C4::External::OverDrive;
54
use C4::External::BakerTaylor;
55
use C4::External::BakerTaylor qw(&image_url &link_url);
54
56
55
use Koha::CirculationRules;
57
use Koha::CirculationRules;
56
use Koha::Libraries;
58
use Koha::Libraries;
Lines 90-102 if ( $branch_group_limit ) { Link Here
90
    }
92
    }
91
}
93
}
92
94
93
BEGIN {
94
    if (C4::Context->preference('BakerTaylorEnabled')) {
95
        require C4::External::BakerTaylor;
96
        import C4::External::BakerTaylor qw(&image_url &link_url);
97
    }
98
}
99
100
my ($template,$borrowernumber,$cookie);
95
my ($template,$borrowernumber,$cookie);
101
# decide which template to use
96
# decide which template to use
102
my $template_name;
97
my $template_name;
(-)a/opac/opac-shelves.pl (+2 lines)
Lines 22-27 use Modern::Perl; Link Here
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Biblio;
24
use C4::Biblio;
25
use C4::External::BakerTaylor;
26
use C4::External::BakerTaylor qw(&image_url &link_url);
25
use C4::Koha;
27
use C4::Koha;
26
use C4::Items;
28
use C4::Items;
27
use C4::Members;
29
use C4::Members;
(-)a/opac/opac-user.pl (-8 / +2 lines)
Lines 24-29 use CGI qw ( -utf8 ); Link Here
24
use C4::Auth;
24
use C4::Auth;
25
use C4::Koha;
25
use C4::Koha;
26
use C4::Circulation;
26
use C4::Circulation;
27
use C4::External::BakerTaylor;
28
use C4::External::BakerTaylor qw(&image_url &link_url);
27
use C4::Reserves;
29
use C4::Reserves;
28
use C4::Members;
30
use C4::Members;
29
use C4::Members::AttributeTypes;
31
use C4::Members::AttributeTypes;
Lines 56-68 use Date::Calc qw( Link Here
56
58
57
my $query = new CGI;
59
my $query = new CGI;
58
60
59
BEGIN {
60
    if (C4::Context->preference('BakerTaylorEnabled')) {
61
        require C4::External::BakerTaylor;
62
        import C4::External::BakerTaylor qw(&image_url &link_url);
63
    }
64
}
65
66
# CAS single logout handling
61
# CAS single logout handling
67
# Will print header and exit
62
# Will print header and exit
68
C4::Context->preference('casAuthentication') and C4::Auth_with_cas::logout_if_required($query);
63
C4::Context->preference('casAuthentication') and C4::Auth_with_cas::logout_if_required($query);
69
- 

Return to bug 17896