tweaks to mig stagebibs

Signed-off-by: Jason Etheridge <jason@equinoxinitiative.org>

diff --git a/mig-bin/mig-stagebibs b/mig-bin/mig-stagebibs
index 46244ec..0fa2b10 100755 (executable)
--- 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);