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

(-)a/C4/Koha.pm (-7 / +7 lines)
Lines 1390-1406 sub NormalizeISSN { Link Here
1390
=cut
1390
=cut
1391
1391
1392
sub GetVariationsOfISSN {
1392
sub GetVariationsOfISSN {
1393
    my ($issn) = @_;
1393
    my ( $issn ) = @_;
1394
1394
1395
    return unless $issn;
1395
    return unless $issn;
1396
1396
1397
    my @issns;
1397
    my @issns;
1398
1398
    my $str = NormalizeISSN({ issn => $issn });
1399
    if( NormalizeISSN({issn => $issn}) ){
1399
    if( $str ) {
1400
        push( @issns, NormalizeISSN({ issn => $issn }) );
1400
        push @issns, $str;
1401
        push( @issns, NormalizeISSN({ issn => $issn, strip_hyphen => 1 }) );
1401
        push @issns, NormalizeISSN({ issn => $issn, strip_hyphen => 1 });
1402
    }  else {
1403
        push @issns, $issn;
1402
    }
1404
    }
1403
    else { push( @issns, $issn) }
1404
1405
1405
    # Strip out any "empty" strings from the array
1406
    # Strip out any "empty" strings from the array
1406
    @issns = grep { defined($_) && $_ =~ /\S/ } @issns;
1407
    @issns = grep { defined($_) && $_ =~ /\S/ } @issns;
1407
- 

Return to bug 14629