From 88d594e955975a737c4ccab46415837cd48aeb66 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Tue, 5 Jun 2007 08:32:28 +0000 Subject: [PATCH] Debug-Code entfernt. --- SL/IS.pm | 3 --- 1 file changed, 3 deletions(-) diff --git a/SL/IS.pm b/SL/IS.pm index 3f5b9a30c..82a426d85 100644 --- a/SL/IS.pm +++ b/SL/IS.pm @@ -1099,9 +1099,6 @@ sub post_payment { # Delete all entries in acc_trans from prior payments. $self->_delete_payments($form, $dbh); - my @after_dp; - push @after_dp, selectall_hashref_query($form, $dbh, qq|SELECT * FROM acc_trans WHERE trans_id = ? ORDER BY oid|, $form->{id}); - # Save the new payments the user made before cleaning up $form. map { $payments{$_} = $form->{$_} } grep m/^datepaid_\d+$|^memo_\d+$|^source_\d+$|^exchangerate_\d+$|^paid_\d+$|^AR_paid_\d+$|^paidaccounts$/, keys %{ $form }; -- 2.20.1