X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/812b4c4f2191526856459dcb09d09332c80c922c..2ee3f0d75f00b1df29a6c1b27268093d3a09c4eb:/SL/CA.pm

diff --git a/SL/CA.pm b/SL/CA.pm
index 0dae72e48..a537085c9 100644
--- 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 '');