From 60de0703a74f40f6b49ba7f47fc2b5e54937e5d3 Mon Sep 17 00:00:00 2001 From: "Martin Helmling mh@waldpark.octosoft.eu" Date: Mon, 29 Feb 2016 15:49:07 +0100 Subject: [PATCH] =?utf8?q?4.=20=C3=9Cberarbeitung=20Pr=C3=BCfen=20beim=20S?= =?utf8?q?peichern,=20ob=20Dokument=20ge=C3=A4ndert=20ist(2)?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit fixup: Zu viel des Guten (patch hat falsch einsortiert) --- SL/AP.pm | 4 ---- SL/AR.pm | 4 ---- 2 files changed, 8 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index 7db5649f6..08dd54224 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -811,8 +811,6 @@ sub storno { $query = qq|UPDATE ap SET paid = amount + paid, storno = 't' WHERE id = ?|; do_query($form, $dbh, $query, $id); - $form->new_lastmtime('ap') if $id == $form->{id}; - # now copy acc_trans entries $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|; my $rowref = selectall_hashref_query($form, $dbh, $query, $id); @@ -832,8 +830,6 @@ sub storno { map { IO->set_datepaid(table => 'ap', id => $_, dbh => $dbh) } ($id, $new_id); - $form->new_lastmtime('ap') if $storno_id == $form->{id}; - $dbh->commit; $main::lxdebug->leave_sub(); diff --git a/SL/AR.pm b/SL/AR.pm index 3362c2e42..625812223 100644 --- a/SL/AR.pm +++ b/SL/AR.pm @@ -772,8 +772,6 @@ sub storno { $query = qq|UPDATE ar SET paid = amount + paid, storno = 't' WHERE id = ?|; do_query($form, $dbh, $query, $id); - $form->new_lastmtime('ar') if $id == $form->{id}; - # now copy acc_trans entries $query = qq|SELECT a.*, c.link FROM acc_trans a LEFT JOIN chart c ON a.chart_id = c.id WHERE a.trans_id = ? ORDER BY a.acc_trans_id|; my $rowref = selectall_hashref_query($form, $dbh, $query, $id); @@ -793,8 +791,6 @@ sub storno { map { IO->set_datepaid(table => 'ar', id => $_, dbh => $dbh) } ($id, $new_id); - $form->new_lastmtime('ar') if $storno_id == $form->{id}; - $dbh->commit; $main::lxdebug->leave_sub(); -- 2.20.1