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';
binmode STDIN, ':utf8';
foreach my $arg (@ARGV) {
+ if ($arg eq '--auth') {
+ $base_table = 'authority_record_entry';
+ $stage_table = 'authority_record_entry_legacy';
+ }
+ if ($arg eq '--serial') {
+ $base_table = 'serial_record_entry';
+ $stage_table = 'serial_record_entry_legacy';
+ }
if ($arg eq '--file') {
$next_arg_is_file = 1;
next;
$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);