Lines 84-90
sub get_xisbns {
Link Here
|
84 |
my ($response,$thing_response,$syndetics_response,$errors); |
84 |
my ($response,$thing_response,$syndetics_response,$errors); |
85 |
# THINGISBN |
85 |
# THINGISBN |
86 |
if ( C4::Context->preference('ThingISBN') ) { |
86 |
if ( C4::Context->preference('ThingISBN') ) { |
87 |
my $url = "http://www.librarything.com/api/thingISBN/".$isbn; |
87 |
my $url = "https://www.librarything.com/api/thingISBN/".$isbn; |
88 |
$thing_response = _get_url($url,'thingisbn'); |
88 |
$thing_response = _get_url($url,'thingisbn'); |
89 |
} |
89 |
} |
90 |
|
90 |
|
Lines 120-127
sub get_xisbns {
Link Here
|
120 |
sub _get_url { |
120 |
sub _get_url { |
121 |
my ($url,$service_type) = @_; |
121 |
my ($url,$service_type) = @_; |
122 |
my $ua = LWP::UserAgent->new( |
122 |
my $ua = LWP::UserAgent->new( |
123 |
timeout => 2 |
123 |
timeout => 2, |
124 |
); |
124 |
agent => "Mozilla/5.0" |
|
|
125 |
); |
125 |
|
126 |
|
126 |
my $response = $ua->get($url); |
127 |
my $response = $ua->get($url); |
127 |
if ($response->is_success) { |
128 |
if ($response->is_success) { |
128 |
- |
|
|