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 |
- |
|
|