Bug 8202 follow-up UNIMARC authority support

Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>

diff --git a/tools/export.pl b/tools/export.pl
index cebae90..8c08602 100755 (executable)
--- a/tools/export.pl
+++ b/tools/export.pl
@@ -210,7 +210,11 @@ if ($op eq "export") {
             }
         }
         if ( $output_format eq "xml" ) {
-            print $record->as_xml_record($marcflavour);
+            if ($marcflavour eq 'UNIMARC' && $record_type eq 'auths') {
+                print $record->as_xml_record('UNIMARCAUTH');
+            } else {
+                print $record->as_xml_record($marcflavour);
+            }
         }
         else {
             print $record->as_usmarc();