View | Details | Raw Unified | Return to bug 16342
Collapse All | Expand All

(-)a/C4/External/BakerTaylor.pm (-8 / +7 lines)
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
- 

Return to bug 16342