projekt kivitendo

  my @prior;

  push @prior, selectall_hashref_query($form, $dbh, qq|SELECT id, paid, datepaid FROM ap WHERE id = ?|, $form->{id});

  push @prior, selectall_hashref_query($form, $dbh, qq|SELECT * FROM acc_trans WHERE trans_id = ? ORDER BY oid|, $form->{id});

  my @after;

  push @after, selectall_hashref_query($form, $dbh, qq|SELECT id, paid, datepaid FROM ap WHERE id = ?|, $form->{id});

  push @after, selectall_hashref_query($form, $dbh, qq|SELECT * FROM acc_trans WHERE trans_id = ? ORDER BY oid|, $form->{id});

  foreach my $rows (@prior, @after) {

    map { delete @{$_}{qw(itime mtime)} } @{ $rows };

  }

  map { $main::lxdebug->dump_sql_result(0, 'davor ', $_) } @prior;

  map { $main::lxdebug->dump_sql_result(0, 'danach', $_) } @after;

  my $rc = 1;