gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 14629: [QA Follow-up] Small tidy up 

Some cosmetic changes as to whitespace and one call less to Normalize.

Test plan:
Run t/Koha.t

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
Marcel de Rooy 2016-10-28 12:30:23 +02:00 committed by Kyle M Hall
parent 0790de1321
commit bad06abf77
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C4/Koha.pm
View File

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