Revision 8c1d5d75
Von Martin Helmling mh@waldpark.octosoft.eu vor fast 9 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 183 | 183 |
do_query($form, $dbh, $query, $form->{paid}, $form->{paid} ? conv_date($form->{datepaid}) : undef, conv_i($form->{id}));
|
| 184 | 184 |
} |
| 185 | 185 |
|
| 186 |
$form->new_lastmtime('ar');
|
|
| 187 |
|
|
| 186 | 188 |
# add paid transactions |
| 187 | 189 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 188 | 190 |
|
| ... | ... | |
| 770 | 772 |
$query = qq|UPDATE ar SET paid = amount + paid, storno = 't' WHERE id = ?|; |
| 771 | 773 |
do_query($form, $dbh, $query, $id); |
| 772 | 774 |
|
| 775 |
$form->new_lastmtime('ar') if $id == $form->{id};
|
|
| 776 |
|
|
| 773 | 777 |
# now copy acc_trans entries |
| 774 | 778 |
$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|; |
| 775 | 779 |
my $rowref = selectall_hashref_query($form, $dbh, $query, $id); |
| ... | ... | |
| 789 | 793 |
|
| 790 | 794 |
map { IO->set_datepaid(table => 'ar', id => $_, dbh => $dbh) } ($id, $new_id);
|
| 791 | 795 |
|
| 796 |
$form->new_lastmtime('ar') if $storno_id == $form->{id};
|
|
| 797 |
|
|
| 792 | 798 |
$dbh->commit; |
| 793 | 799 |
|
| 794 | 800 |
$main::lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
4. Überarbeitung Prüfen beim Speichern, ob Dokument geändert ist
An einigen Stellen wird nach dem Speichern nicht neu gelesen,
sondern die alten Forms-Variablen zum Aufbau der Webseite verwendet, z.B. "Auslagern".
Deshalb wird $form->lastmtime nun nach jedem Speichern aktualisiert.