vitalif
/
VMXTemplate
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix VMX::Common::insertall_hashref() reselect

databind
vitalif 2009-03-03 23:36:57 +00:00 committed by Vitaliy Filippov
parent 44648f199f
commit 86506737c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
VMX/Common.pm
View File

@ -389,7 +389,7 @@ sub insertall_hashref
# осуществляем reselect данных # осуществляем reselect данных
$sql = "SELECT $reselect FROM `$table` WHERE `ji`=? ORDER BY `jin` ASC"; $sql = "SELECT $reselect FROM `$table` WHERE `ji`=? ORDER BY `jin` ASC";
@bind = ($conn_id); @bind = ($conn_id);
my $resel = $dbh->selectall_hashref($sql, [], {}, @bind); my $resel = $dbh->selectall_arrayref($sql, {Slice=>{}}, @bind) || [];
for (my $i = 0; $i < @$resel; $i++) for (my $i = 0; $i < @$resel; $i++)
{ {
$rows->[$i]->{$_} = $resel->[$i]->{$_} for keys %{$resel->[$i]}; $rows->[$i]->{$_} = $resel->[$i]->{$_} for keys %{$resel->[$i]};