Lines 836-842
sub _isbn_cleanup {
Link Here
|
836 |
to be of the specified format. |
836 |
to be of the specified format. |
837 |
|
837 |
|
838 |
If the string cannot be validated as an isbn, |
838 |
If the string cannot be validated as an isbn, |
839 |
it returns nothing. |
839 |
it returns nothing unless return_invalid param is passed. |
|
|
840 |
|
841 |
#FIXME This routine (and others?) should be moved to Koha::Util::Normalize |
840 |
|
842 |
|
841 |
=cut |
843 |
=cut |
842 |
|
844 |
|
Lines 846-851
sub NormalizeISBN {
Link Here
|
846 |
my $string = $params->{isbn}; |
848 |
my $string = $params->{isbn}; |
847 |
my $strip_hyphens = $params->{strip_hyphens}; |
849 |
my $strip_hyphens = $params->{strip_hyphens}; |
848 |
my $format = $params->{format}; |
850 |
my $format = $params->{format}; |
|
|
851 |
my $return_invalid = $params->{return_invalid}; |
849 |
|
852 |
|
850 |
return unless $string; |
853 |
return unless $string; |
851 |
|
854 |
|
Lines 854-860
sub NormalizeISBN {
Link Here
|
854 |
if ( $isbn && $isbn->is_valid() ) { |
857 |
if ( $isbn && $isbn->is_valid() ) { |
855 |
|
858 |
|
856 |
if ( $format eq 'ISBN-10' ) { |
859 |
if ( $format eq 'ISBN-10' ) { |
857 |
$isbn = $isbn->as_isbn10(); |
860 |
$isbn = $isbn->as_isbn10(); |
858 |
} |
861 |
} |
859 |
elsif ( $format eq 'ISBN-13' ) { |
862 |
elsif ( $format eq 'ISBN-13' ) { |
860 |
$isbn = $isbn->as_isbn13(); |
863 |
$isbn = $isbn->as_isbn13(); |
Lines 868-874
sub NormalizeISBN {
Link Here
|
868 |
} |
871 |
} |
869 |
|
872 |
|
870 |
return $string; |
873 |
return $string; |
|
|
874 |
} elsif ( $return_invalid ) { |
875 |
return $string; |
871 |
} |
876 |
} |
|
|
877 |
|
872 |
} |
878 |
} |
873 |
|
879 |
|
874 |
=head2 GetVariationsOfISBN |
880 |
=head2 GetVariationsOfISBN |