bug 5608 follow-up: exit immediately if UNIMARC

Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com>

diff --git a/misc/migration_tools/switch_marc21_series_info.pl b/misc/migration_tools/switch_marc21_series_info.pl
index 9f67e02..cfd204b 100755 (executable)
--- a/misc/migration_tools/switch_marc21_series_info.pl
+++ b/misc/migration_tools/switch_marc21_series_info.pl
@@ -46,6 +46,11 @@ my $result = GetOptions(
     'v'      => \$verbose,
     );
 
+# warn and exit if we're running UNIMARC
+if (C4::Context->preference('MARCFLAVOUR') eq 'UNIMARC') {
+    print "This script is useless when you're running UNIMARC\n";
+    exit 0;
+}
 if ( ! $result || $show_help ) {
     print_usage();
     exit 0;