From 0262a6aa1d12afe80ee3949fb5982b9582337bf6 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Thu, 21 Mar 2013 16:55:07 +0100 Subject: [PATCH] [PASSED QA] bug 5608 follow-up: exit immediately if UNIMARC Signed-off-by: Paul Poulain --- 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 9f67e02..cfd204b 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; -- 1.7.9.5