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

(-)a/C4/External/BakerTaylor.pm (-4 / +1 lines)
Lines 29-34 use warnings; Link Here
29
29
30
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
30
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
31
use vars qw($user $pass $agent $image_url $link_url);
31
use vars qw($user $pass $agent $image_url $link_url);
32
&initialize;
32
33
33
BEGIN {
34
BEGIN {
34
	require Exporter;
35
	require Exporter;
Lines 37-45 BEGIN { Link Here
37
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
38
	@EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link);
38
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
39
	%EXPORT_TAGS = (all=>\@EXPORT_OK);
39
}
40
}
40
INIT {
41
	&initialize;
42
}
43
41
44
sub initialize {
42
sub initialize {
45
	$user     = (@_ ? shift : C4::Context->preference('BakerTaylorUsername')    ) || ''; # LL17984
43
	$user     = (@_ ? shift : C4::Context->preference('BakerTaylorUsername')    ) || ''; # LL17984
46
- 

Return to bug 16636