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