| Lines 37-56
          BEGIN {
      
      
        Link Here | 
        
          | 37 | 	%EXPORT_TAGS = (all=>\@EXPORT_OK); | 37 | 	%EXPORT_TAGS = (all=>\@EXPORT_OK); | 
        
          | 38 | } | 38 | } | 
        
          | 39 |  | 39 |  | 
            
              | 40 | # These variables are plack safe: they are initialized each time |  |  | 
            
              | 41 | my ( $user, $pass, $agent, $image_url, $link_url ); | 
        
          | 42 |  | 40 |  | 
        
          | 43 | sub _initialize { | 41 | sub _initialize { | 
            
              |  |  | 42 |     my ( $user, $pass, $agent, $image_url, $link_url ); | 
        
          | 44 | 	$user     = (@_ ? shift : C4::Context->preference('BakerTaylorUsername')    ) || ''; # LL17984 | 43 | 	$user     = (@_ ? shift : C4::Context->preference('BakerTaylorUsername')    ) || ''; # LL17984 | 
        
          | 45 | 	$pass     = (@_ ? shift : C4::Context->preference('BakerTaylorPassword')    ) || ''; # CC82349 | 44 | 	$pass     = (@_ ? shift : C4::Context->preference('BakerTaylorPassword')    ) || ''; # CC82349 | 
        
          | 46 | 	$link_url = (@_ ? shift : C4::Context->preference('BakerTaylorBookstoreURL')); | 45 | 	$link_url = (@_ ? shift : C4::Context->preference('BakerTaylorBookstoreURL')); | 
        
          | 47 |         $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$user&Password=$pass&Options=Y&Return=T&Type=S&Value="; | 46 |         $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$user&Password=$pass&Options=Y&Return=T&Type=S&Value="; | 
        
          | 48 | 	$agent = "Koha/$VERSION [en] (Linux)"; | 47 | 	$agent = "Koha/$VERSION [en] (Linux)"; | 
        
          | 49 | 			#"Mozilla/4.76 [en] (Win98; U)",	#  if for some reason you want to go stealth, you might prefer this | 48 | 			#"Mozilla/4.76 [en] (Win98; U)",	#  if for some reason you want to go stealth, you might prefer this | 
            
              |  |  | 49 |     return ( $user, $pass, $agent, $image_url, $link_url ); | 
        
          | 50 | } | 50 | } | 
        
          | 51 |  | 51 |  | 
        
          | 52 | sub image_url { | 52 | sub image_url { | 
          
            
              | 53 |     _initialize(); | 53 |     my ( $user, $pass, $agent, $image_url, $link_url ) = _initialize(); | 
        
          | 54 | 	($user and $pass) or return; | 54 | 	($user and $pass) or return; | 
        
          | 55 | 	my $isbn = (@_ ? shift : ''); | 55 | 	my $isbn = (@_ ? shift : ''); | 
        
          | 56 | 	$isbn =~ s/(p|-)//g;	# sanitize | 56 | 	$isbn =~ s/(p|-)//g;	# sanitize | 
  
    | Lines 58-64
          sub image_url {
      
      
        Link Here | 
        
          | 58 | } | 58 | } | 
        
          | 59 |  | 59 |  | 
        
          | 60 | sub link_url { | 60 | sub link_url { | 
          
            
              | 61 |     _initialize(); | 61 |     my ( $user, $pass, $agent, $image_url, $link_url ) = _initialize(); | 
        
          | 62 | 	my $isbn = (@_ ? shift : ''); | 62 | 	my $isbn = (@_ ? shift : ''); | 
        
          | 63 | 	$isbn =~ s/(p|-)//g;	# sanitize | 63 | 	$isbn =~ s/(p|-)//g;	# sanitize | 
        
          | 64 | 	$link_url or return; | 64 | 	$link_url or return; | 
  
    | Lines 66-72
          sub link_url {
      
      
        Link Here | 
        
          | 66 | } | 66 | } | 
        
          | 67 |  | 67 |  | 
        
          | 68 | sub content_cafe_url { | 68 | sub content_cafe_url { | 
          
            
              | 69 |     _initialize(); | 69 |     my ( $user, $pass, $agent, $image_url, $link_url ) = _initialize(); | 
        
          | 70 | 	($user and $pass) or return; | 70 | 	($user and $pass) or return; | 
        
          | 71 | 	my $isbn = (@_ ? shift : ''); | 71 | 	my $isbn = (@_ ? shift : ''); | 
        
          | 72 | 	$isbn =~ s/(p|-)//g;	# sanitize | 72 | 	$isbn =~ s/(p|-)//g;	# sanitize | 
  
    | Lines 74-80
          sub content_cafe_url {
      
      
        Link Here | 
        
          | 74 | } | 74 | } | 
        
          | 75 |  | 75 |  | 
        
          | 76 | sub http_jacket_link { | 76 | sub http_jacket_link { | 
          
            
              | 77 |     _initialize(); | 77 |     my ( $user, $pass, $agent, $image_url, $link_url ) = _initialize(); | 
        
          | 78 | 	my $isbn = shift or return; | 78 | 	my $isbn = shift or return; | 
        
          | 79 | 	$isbn =~ s/(p|-)//g;	# sanitize | 79 | 	$isbn =~ s/(p|-)//g;	# sanitize | 
        
          | 80 | 	my $image = availability($isbn); | 80 | 	my $image = availability($isbn); | 
  
    | Lines 86-92
          sub http_jacket_link {
      
      
        Link Here | 
        
          | 86 | } | 86 | } | 
        
          | 87 |  | 87 |  | 
        
          | 88 | sub availability { | 88 | sub availability { | 
          
            
              | 89 |     _initialize(); | 89 |     my ( $user, $pass, $agent, $image_url, $link_url ) = _initialize(); | 
        
          | 90 | 	my $isbn = shift or return; | 90 | 	my $isbn = shift or return; | 
        
          | 91 | 	($user and $pass) or return; | 91 | 	($user and $pass) or return; | 
        
          | 92 | 	$isbn =~ s/(p|-)//g;	# sanitize | 92 | 	$isbn =~ s/(p|-)//g;	# sanitize | 
            
              | 93 | -  |  |  |