From 7c1312a13fe90c5aa3b18dcbf26cb36eb1114c47 Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Wed, 28 May 2008 22:33:56 +0200 Subject: [PATCH] If the catalogue contains a value that is not in authorised values and it should, display the code very usefull for us (UNIMARC) to find languages that are in the database but not in the auth values. Signed-off-by: Joshua Ferraro --- catalogue/MARCdetail.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index 40437e6bed..1448f6e34c 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -202,7 +202,7 @@ for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) { } $subfield_data{marc_value} = GetAuthorisedValueDesc( $fields[$x_i]->tag(), - $subf[$i][0], $subf[$i][1], '', $tagslib); + $subf[$i][0], $subf[$i][1], '', $tagslib) || $subf[$i][1]; } $subfield_data{marc_subfield} = $subf[$i][0]; @@ -259,7 +259,7 @@ foreach my $field (@fields) { $witness{ $subf[$i][0] } = $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib}; $this_row{ $subf[$i][0] } = GetAuthorisedValueDesc( $field->tag(), - $subf[$i][0], $subf[$i][1], '', $tagslib); + $subf[$i][0], $subf[$i][1], '', $tagslib) || $subf[$i][1]; } if (%this_row) { push( @big_array, \%this_row ); -- 2.39.5