Ein Query in SL/CA auf DBUTils umgestellt.

[mfinanz.git] / SL / CA.pm

diff --git a/SL/CA.pm b/SL/CA.pm
index 0dae72e48c9e3a927340e7fe6c3b6beaaac29b21..a537085c958499bf99e77bc27feb3d8f6f003af4 100644 (file)
--- a/SL/CA.pm
+++ b/SL/CA.pm
@@ -60,13 +60,10 @@ sub all_accounts {
     qq|WHERE c.id = a.chart_id | .
     qq|$acc_cash_where| .
     qq|GROUP BY c.accno|;
-  my $sth = $dbh->prepare($query);
-  $sth->execute || $form->dberror($query);
 
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+  foreach my $ref (selectall_hashref_query($form, $dbh, $query)) {
     $amount{ $ref->{accno} } = $ref->{amount};
   }
-  $sth->finish;
 
   my $where = "AND c.id = $chart_id" if ($chart_id ne '');