Attachment #56957 for bug #14629

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




=cut

sub GetVariationsOfISSN {
    my ( $issn ) = @_;

    return unless $issn;

    my @issns;
    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;
- 

Return to bug 14629

Lines 1390-1406 sub NormalizeISSN { Link Here

(-)a/C4/Koha.pm (-7 / +7 lines)
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	-