From be82a5f94208a6f41e033398c53fc3e9d0f80e62 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Thu, 21 Mar 2013 16:55:07 +0100
Subject: [PATCH] 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>
---
 misc/migration_tools/switch_marc21_series_info.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/misc/migration_tools/switch_marc21_series_info.pl b/misc/migration_tools/switch_marc21_series_info.pl
index 9f67e026c7..cfd204b57d 100755
--- 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;
-- 
2.39.5