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