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 1315-1320 sub _normalize_match_point { Link Here
1315
}
1313
}
1316
1314
1317
sub _isbn_cleanup {
1315
sub _isbn_cleanup {
1316
    require Business::ISBN;
1318
    my $isbn = Business::ISBN->new( $_[0] );
1317
    my $isbn = Business::ISBN->new( $_[0] );
1319
    if ( $isbn ) {
1318
    if ( $isbn ) {
1320
        $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1319
        $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
1321
- 

Return to bug 6875