Revision 97954312
Von Bernd Bleßmann vor etwa 12 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 44 | 44 |
use SL::GenericTranslations; |
| 45 | 45 |
use SL::IO; |
| 46 | 46 |
use SL::MoreCommon; |
| 47 |
use SL::DB::Default; |
|
| 47 | 48 |
use List::Util qw(min); |
| 48 | 49 |
|
| 49 | 50 |
use strict; |
| ... | ... | |
| 502 | 503 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 503 | 504 |
if ($form->{"acc_trans_id_$i"}
|
| 504 | 505 |
&& $payments_only |
| 505 |
&& ($::lx_office_conf{features}->{payments_changeable} == 0)) {
|
|
| 506 |
&& (SL::DB::Default->get->payments_changeable == 0)) {
|
|
| 506 | 507 |
next; |
| 507 | 508 |
} |
| 508 | 509 |
|
| ... | ... | |
| 1437 | 1438 |
$old_form = save_form(); |
| 1438 | 1439 |
|
| 1439 | 1440 |
# Delete all entries in acc_trans from prior payments. |
| 1440 |
if ($::lx_office_conf{features}->{payments_changeable} != 0) {
|
|
| 1441 |
if (SL::DB::Default->get->payments_changeable != 0) {
|
|
| 1441 | 1442 |
$self->_delete_payments($form, $dbh); |
| 1442 | 1443 |
} |
| 1443 | 1444 |
|
Auch abrufbar als: Unified diff
Controller für Mandantenkonfiguration.
Im Moment lässt sich hier die Änderbarkeit für Zahlungen einstellen. Es
sollen demnächst auch noch anderen Konfig-Einstellungen aus der Konfig-Datei
hierher wandern.