View | Details | Raw Unified | Return to bug 6875
Collapse All | Expand All

(-)a/C4/Koha.pm (-5 / +3 lines)
Lines 23-32 package C4::Koha; Link Here
23
use strict;
23
use strict;
24
#use warnings; FIXME - Bug 2505
24
#use warnings; FIXME - Bug 2505
25
use C4::Context;
25
use C4::Context;
26
use C4::Output;
27
use URI::Split qw(uri_split);
28
use Memoize;
26
use Memoize;
29
use Business::ISBN;
30
27
31
use vars qw($VERSION @ISA @EXPORT $DEBUG);
28
use vars qw($VERSION @ISA @EXPORT $DEBUG);
32
29
Lines 472-479 sub getitemtypeimagelocation($$) { Link Here
472
	my ( $src, $image ) = @_;
469
	my ( $src, $image ) = @_;
473
470
474
	return '' if ( !$image );
471
	return '' if ( !$image );
472
    require URI::Split;
475
473
476
	my $scheme = ( uri_split( $image ) )[0];
474
	my $scheme = ( URI::Split::uri_split( $image ) )[0];
477
475
478
	return $image if ( $scheme );
476
	return $image if ( $scheme );
479
477
Lines 1316-1321 sub _normalize_match_point { Link Here
1316
}
1314
}
1317
1315
1318
sub _isbn_cleanup {
1316
sub _isbn_cleanup {
1317
    require Business::ISBN;
1319
    my $isbn = Business::ISBN->new( $_[0] );
1318
    my $isbn = Business::ISBN->new( $_[0] );
1320
    if ( $isbn ) {
1319
    if ( $isbn ) {
1321
        $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1320
        $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1322
- 

Return to bug 6875