@@ -, +, @@ C4/External/BakerTaylor.pm --------- -- warnings about INIT for BakerTaylor -- should all run okay -- warning should be gone, and everything else run okay Added sign off based on comment #6. --- C4/External/BakerTaylor.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) --- a/C4/External/BakerTaylor.pm +++ a/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 --