use strict;
#use warnings; FIXME - Bug 2505
use C4::Context;
-use C4::Output;
-use URI::Split qw(uri_split);
use Memoize;
-use Business::ISBN;
use vars qw($VERSION @ISA @EXPORT $DEBUG);
my ( $src, $image ) = @_;
return '' if ( !$image );
+ require URI::Split;
- my $scheme = ( uri_split( $image ) )[0];
+ my $scheme = ( URI::Split::uri_split( $image ) )[0];
return $image if ( $scheme );
}
sub _isbn_cleanup {
+ require Business::ISBN;
my $isbn = Business::ISBN->new( $_[0] );
if ( $isbn ) {
$isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';