@@ -, +, @@ - Run the regression tests: prove -v t/db_dependent/Biblio.t - Apply the patch - Run: prove -v t/db_dependent/Biblio.t - Verify that opac-detail.pl and catalogue/detail.pl look as usual regarding ISBN - Sign off --- C4/Biblio.pm | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) --- a/C4/Biblio.pm +++ a/C4/Biblio.pm @@ -1690,25 +1690,15 @@ sub GetMarcISBN { $scope = '020'; } my @marcisbns; - my $isbn = ""; - my $tag = ""; my $marcisbn; foreach my $field ( $record->field($scope) ) { - my $value = $field->as_string(); + my $isbn = $field->as_string(); if ( $isbn ne "" ) { $marcisbn = { marcisbn => $isbn, }; push @marcisbns, $marcisbn; - $isbn = $value; - } - if ( $isbn ne $value ) { - $isbn = $isbn . " " . $value; } } - if ($isbn) { - $marcisbn = { marcisbn => $isbn }; - push @marcisbns, $marcisbn; #load last tag into array - } return \@marcisbns; } # end GetMarcISBN --