From 002403aea07d3ea8f92d9fa5da3088c3be03d8c8 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Tue, 29 Jul 2014 16:12:52 -0300 Subject: [PATCH] Bug 12674: GetMarcISSN should not return empty ISSN This patch makes GetMarcISSN test for empty subfield before pushing to the result array. To test: - Run the regression test => FAILS for all MARC flavours - Apply the patch - Run the regression test => SUCCESS: tests pass - Sign off Sponsored-by: Universidad Nacional de Cordoba --- C4/Biblio.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index d465cf6..ea78deb 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1746,7 +1746,8 @@ sub GetMarcISSN { } my @marcissns; foreach my $field ( $record->field($scope) ) { - push @marcissns, $field->subfield( 'a' ); + push @marcissns, $field->subfield( 'a' ) + if ( $field->subfield( 'a' ) ne "" ); } return \@marcissns; } # end GetMarcISSN -- 1.9.1