use warnings;
use Koha;
-use JSON;
+use JSON qw( from_json );
use Koha::Caches;
use HTTP::Request;
use HTTP::Request::Common;
require Exporter;
our @ISA = qw( Exporter ) ;
our @EXPORT = qw(
- IsOverDriveEnabled
GetOverDriveToken
);
}
=over
-=item IsOverDriveEnabled
-
-Returns 1 if all of the necessary system preferences for OverDrive are set.
-
-=back
-
-=cut
-
-sub IsOverDriveEnabled {
- return (
- C4::Context->preference( 'OverDriveClientKey' ) &&
- C4::Context->preference( 'OverDriveClientSecret' )
- );
-}
-
-=over
-
=item GetOverDriveToken
Fetches an OAuth2 auth token for the OverDrive API, reusing an existing token in