From 2a9f9db6ace09f2a8a541054f41eb7dcbae1fe1a Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Fri, 16 Aug 2019 12:38:01 -0400 Subject: [PATCH] tweaks to mig stagebibs Signed-off-by: Jason Etheridge --- mig-bin/mig-stagebibs | 20 ++++++++++++++++++++ 1 files changed, 20 insertions(+), 0 deletions(-) diff --git a/mig-bin/mig-stagebibs b/mig-bin/mig-stagebibs index 46244ec..0fa2b10 100755 --- a/mig-bin/mig-stagebibs +++ b/mig-bin/mig-stagebibs @@ -48,6 +48,8 @@ my $next_arg_is_file = 0; my $append = 0; my $next_arg_is_source = 0; my $next_arg_is_stage = 0; +my $next_arg_is_base_table = 0; +my $next_arg_is_stage_table = 0; my $base_table = 'biblio_record_entry'; my $stage_table = 'biblio_record_entry_legacy'; my $source = 'default'; @@ -77,6 +79,24 @@ foreach my $arg (@ARGV) { $next_arg_is_source = 0; next; } + if ($arg eq '--base-table') { + $next_arg_is_base_table = 1; + next; + } + if ($next_arg_is_base_table) { + $base_table = $arg; + $next_arg_is_base_table = 0; + next; + } + if ($arg eq '--stage-table') { + $next_arg_is_stage_table = 1; + next; + } + if ($next_arg_is_stage_table) { + $stage_table = $arg; + $next_arg_is_stage_table = 0; + next; + } } my $bre_test = check_for_table($dbh,$base_table); -- 1.7.2.5