Revision d7310fc2
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/CA.pm | ||
|---|---|---|
| 60 | 60 |
qq|WHERE c.id = a.chart_id | . |
| 61 | 61 |
qq|$acc_cash_where| . |
| 62 | 62 |
qq|GROUP BY c.accno|; |
| 63 |
my $sth = $dbh->prepare($query); |
|
| 64 |
$sth->execute || $form->dberror($query); |
|
| 65 | 63 |
|
| 66 |
while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
|
|
| 64 |
foreach my $ref (selectall_hashref_query($form, $dbh, $query)) {
|
|
| 67 | 65 |
$amount{ $ref->{accno} } = $ref->{amount};
|
| 68 | 66 |
} |
| 69 |
$sth->finish; |
|
| 70 | 67 |
|
| 71 | 68 |
my $where = "AND c.id = $chart_id" if ($chart_id ne ''); |
| 72 | 69 |
|
Auch abrufbar als: Unified diff
Ein Query in SL/CA auf DBUTils umgestellt.