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 |
- |
|
|