}
}
-abort('must specify --push or --pull') unless (defined $cmd_push or defined $cmd_pull);
+abort('must specify --push (db->worksheets) or --pull (worksheets->db)') unless (defined $cmd_push or defined $cmd_pull);
if (defined $cmd_push and defined $cmd_pull) { abort('you can not specify both a --push and --pull on the same command'); }
my $dbh = Mig::db_connect();
my @rows = $pull_ws->rows;
my @content;
map { $content[$_->row - 1][$_->col - 1] = $_->content } $pull_ws->cells;
- #print Dumper($pull_ws->cells);
- #print Dumper(@content);
my @tab_headers = shift @content;
my $tab_headers_length = $#{ $tab_headers[0] };
my @pg_headers;
push @content, $record;
}
- #print Dumper(@content);
foreach my $fillsheet (@content) {
my $new_row = $push_ws->add_row (
$fillsheet