diff --git a/C4/External/BakerTaylor.pm b/C4/External/BakerTaylor.pm index 4450e9b573..3f52a571fd 100644 --- a/C4/External/BakerTaylor.pm +++ b/C4/External/BakerTaylor.pm @@ -29,6 +29,7 @@ use warnings; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); use vars qw($user $pass $agent $image_url $link_url); +&initialize; BEGIN { require Exporter; @@ -37,9 +38,6 @@ BEGIN { @EXPORT_OK = qw(&availability &content_cafe &image_url &link_url &http_jacket_link); %EXPORT_TAGS = (all=>\@EXPORT_OK); } -INIT { - &initialize; -} sub initialize { $user = (@_ ? shift : C4::Context->preference('BakerTaylorUsername') ) || ''; # LL17984