pqd: Merge --review-history into --review, added --review-table & --history-table

This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-01-21 12:40:46 -03:00
parent 06ce6e012e
commit 9dd124038b
5 changed files with 254 additions and 190 deletions

View File

@@ -111,7 +111,7 @@ sub new {
# table.
sub set_history_options {
my ( $self, %args ) = @_;
foreach my $arg ( qw(table dbh tbl_struct col_pat) ) {
foreach my $arg ( qw(table tbl_struct col_pat) ) {
die "I need a $arg argument" unless $args{$arg};
}
@@ -157,7 +157,7 @@ sub set_history_options {
} @cols) . ')';
PTDEBUG && _d($sql);
$self->{history_sth} = $args{dbh}->prepare($sql);
$self->{history_sth} = $self->{dbh}->prepare($sql);
$self->{history_metrics} = \@metrics;
return;