Revision b2945bf6
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/DATEV.pm | ||
|---|---|---|
| 405 | 405 |
|
| 406 | 406 |
if ($ref2->{trans_id} != $trans->[0]->{trans_id}) {
|
| 407 | 407 |
$form->error("Unbalanced ledger! old trans_id " . $trans->[0]->{trans_id} . " new trans_id " . $ref2->{trans_id} . " count $count");
|
| 408 |
exit 1;
|
|
| 408 |
::end_of_request();
|
|
| 409 | 409 |
} |
| 410 | 410 |
|
| 411 | 411 |
push @{ $trans }, $ref2;
|
Auch abrufbar als: Unified diff
Aufrufe von 'exit' durch eigene Funktion '::end_of_request()' ersetzt.
Außerdem dafür gesorgt, dass Meldungen, die per
$form->show_generic_(error|information) ausgegeben werden, nicht
doppelt angezeigt werden.
Conflicts: