Owen Leonard
ff7417fa91
This patch removes the AmazonReviews and AmazonSimilarItems features from the OPAC and staff client. With on Amazon feature remaining, cover images, the *AmazonEnabled preference is also removed in favor of checking the *AmazonCoverImages preference. Two other system preferences, AWSAccessKeyID and AWSPrivateKey are removed as they were required only by the removed features. Handling of book cover images from Amazon is unchanged. Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com> Turned on amazon covers in opac and staff client and all worked as expected. Then tested to make sure other cover image services still worked and they do. Signing off. Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
82 lines
1.7 KiB
Perl
82 lines
1.7 KiB
Perl
package C4::External::Amazon;
|
|
# Copyright (C) 2006 LibLime
|
|
# <jmf at liblime dot com>
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use vars qw($VERSION @ISA @EXPORT);
|
|
|
|
BEGIN {
|
|
require Exporter;
|
|
$VERSION = 3.07.00.049;
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(
|
|
get_amazon_tld
|
|
);
|
|
}
|
|
|
|
|
|
sub get_amazon_tld {
|
|
my %tld = (
|
|
CA => '.ca',
|
|
DE => '.de',
|
|
FR => '.fr',
|
|
JP => '.jp',
|
|
UK => '.co.uk',
|
|
US => '.com',
|
|
);
|
|
|
|
my $locale = C4::Context->preference('AmazonLocale');
|
|
my $tld = $tld{ $locale } || '.com'; # default top level domain is .com
|
|
return $tld;
|
|
}
|
|
|
|
|
|
=head1 NAME
|
|
|
|
C4::External::Amazon - Functions for retrieving Amazon.com content in Koha
|
|
|
|
=head2 FUNCTIONS
|
|
|
|
This module provides facilities for retrieving Amazon.com content in Koha
|
|
|
|
=over
|
|
|
|
=item get_amazon_tld()
|
|
|
|
Get Amazon Top Level Domain depending on Amazon local preference: AmazonLocal.
|
|
For example, if AmazonLocal is 'UK', returns '.co.uk'.
|
|
|
|
=back
|
|
|
|
=cut
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NOTES
|
|
|
|
=cut
|
|
|
|
=head1 AUTHOR
|
|
|
|
Joshua Ferraro <jmf@liblime.com>
|
|
|
|
=cut
|