If the catalogue contains a value that is not in authorised values and it should...

very usefull for us (UNIMARC) to find languages that are in the database but not in the auth values.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl
index 40437e6..1448f6e 100755 (executable)
--- 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 );