4. Überarbeitung Prüfen beim Speichern, ob Dokument geändert ist(2)

fixup: Zu viel des Guten (patch hat falsch einsortiert)

diff --git a/SL/AP.pm b/SL/AP.pm
index 7db5649..08dd542 100644 (file)
--- 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 3362c2e..6258122 100644 (file)
--- 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();