fix double my in setDataByQuery
This commit is contained in:
parent
b7cbde0e79
commit
0ec7bb7a71
1 changed files with 3 additions and 3 deletions
|
|
@ -655,7 +655,6 @@ A value to match the dynamicPageNumberKey.
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
sub setDataByQuery {
|
sub setDataByQuery {
|
||||||
my ($sth, @row);
|
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my ($sql, $dbh, $unconditional, $placeholders, $dynamicPageNumberKey, $dynamicPageNumberValue) = @_;
|
my ($sql, $dbh, $unconditional, $placeholders, $dynamicPageNumberKey, $dynamicPageNumberValue) = @_;
|
||||||
|
|
||||||
|
|
@ -691,9 +690,10 @@ sub setDataByQuery {
|
||||||
($self->{_totalRows}) = $dbh->quickArray("select found_rows()");
|
($self->{_totalRows}) = $dbh->quickArray("select found_rows()");
|
||||||
$self->{_columnNames} = [ $sth->getColumnNames ];
|
$self->{_columnNames} = [ $sth->getColumnNames ];
|
||||||
|
|
||||||
|
my @row;
|
||||||
while (my $data = $sth->hashRef) {
|
while (my $data = $sth->hashRef) {
|
||||||
push(@row,$data);
|
push(@row,$data);
|
||||||
}
|
}
|
||||||
|
|
||||||
$self->{_rowRef} = \@row;
|
$self->{_rowRef} = \@row;
|
||||||
$self->{_setByQuery} = 1;
|
$self->{_setByQuery} = 1;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue