@@ -, +, @@ --- C4/External/BakerTaylor.pm | 6 +++--- opac/opac-detail.pl | 2 +- t/External/BakerTaylor.t | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) --- a/C4/External/BakerTaylor.pm +++ a/C4/External/BakerTaylor.pm @@ -44,7 +44,7 @@ sub _initialize { $user = (@_ ? shift : C4::Context->preference('BakerTaylorUsername') ) || ''; # LL17984 $pass = (@_ ? shift : C4::Context->preference('BakerTaylorPassword') ) || ''; # CC82349 $link_url = (@_ ? shift : C4::Context->preference('BakerTaylorBookstoreURL')); - $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$user&Password=$pass&Options=Y&Return=T&Type=S&Value="; + $image_url = "https://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$user&Password=$pass&Options=Y&Return=T&Type=S&Value="; $agent = "Koha/$VERSION [en] (Linux)"; #"Mozilla/4.76 [en] (Win98; U)", # if for some reason you want to go stealth, you might prefer this } @@ -70,7 +70,7 @@ sub content_cafe_url { ($user and $pass) or return; my $isbn = (@_ ? shift : ''); $isbn =~ s/(p|-)//g; # sanitize - return "http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn"; + return "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$user&Password=$pass&Options=Y&ItemKey=$isbn"; } sub http_jacket_link { @@ -90,7 +90,7 @@ sub availability { my $isbn = shift or return; ($user and $pass) or return; $isbn =~ s/(p|-)//g; # sanitize - my $url = "http://contentcafe2.btol.com/ContentCafe/InventoryAvailability.asmx/CheckInventory?UserID=$user&Password=$pass&Value=$isbn"; + my $url = "https://contentcafe2.btol.com/ContentCafe/InventoryAvailability.asmx/CheckInventory?UserID=$user&Password=$pass&Value=$isbn"; $debug and warn __PACKAGE__ . " request:\n$url\n"; my $content = get($url); $debug and print STDERR $content, "\n"; --- a/opac/opac-detail.pl +++ a/opac/opac-detail.pl @@ -1081,7 +1081,7 @@ if (C4::Context->preference("BakerTaylorEnabled")) { { $template->param( BakerTaylorContentURL => - sprintf("http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y", + sprintf("https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=%s&Password=%s&ItemKey=%s&Options=Y", $bt_user,$bt_pass,$isbn) ); } --- a/t/External/BakerTaylor.t +++ a/t/External/BakerTaylor.t @@ -20,8 +20,8 @@ t::lib::Mocks::mock_preference( 'BakerTaylorUsername', $username ); t::lib::Mocks::mock_preference( 'BakerTaylorPassword', $password ); t::lib::Mocks::mock_preference( 'BakerTaylorBookstoreURL', $link_url ); -my $image_url = "http://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$username&Password=$password&Options=Y&Return=T&Type=S&Value="; -my $content_cafe = "http://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$username&Password=$password&Options=Y&ItemKey="; +my $image_url = "https://contentcafe2.btol.com/ContentCafe/Jacket.aspx?UserID=$username&Password=$password&Options=Y&Return=T&Type=S&Value="; +my $content_cafe = "https://contentcafe2.btol.com/ContentCafeClient/ContentCafe.aspx?UserID=$username&Password=$password&Options=Y&ItemKey="; is( C4::External::BakerTaylor::image_url(), $image_url, "testing default image url"); is( C4::External::BakerTaylor::image_url("aa"), $image_url."aa", "testing image url construction"); --