@@ -, +, @@ --- C4/Koha.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) --- a/C4/Koha.pm +++ a/C4/Koha.pm @@ -1390,17 +1390,18 @@ sub NormalizeISSN { =cut sub GetVariationsOfISSN { - my ($issn) = @_; + my ( $issn ) = @_; return unless $issn; my @issns; - - if( NormalizeISSN({issn => $issn}) ){ - push( @issns, NormalizeISSN({ issn => $issn }) ); - push( @issns, NormalizeISSN({ issn => $issn, strip_hyphen => 1 }) ); + my $str = NormalizeISSN({ issn => $issn }); + if( $str ) { + push @issns, $str; + push @issns, NormalizeISSN({ issn => $issn, strip_hyphen => 1 }); + } else { + push @issns, $issn; } - else { push( @issns, $issn) } # Strip out any "empty" strings from the array @issns = grep { defined($_) && $_ =~ /\S/ } @issns; --