Revision 46aa98a9
Von Martin Helmling martin.helmling@octosoft.eu vor mehr als 7 Jahren hinzugefügt
| SL/Controller/Draft.pm | ||
|---|---|---|
| 81 | 81 |
package main; |
| 82 | 82 |
require $allowed_modules{ $self->draft->module };
|
| 83 | 83 |
} |
| 84 |
|
|
| 85 |
|
|
| 86 | 84 |
my $params = delete $::form->{form};
|
| 87 | 85 |
my $new_form = YAML::Load($self->draft->form); |
| 88 | 86 |
$::form->{$_} = $new_form->{$_} for keys %$new_form;
|
| ... | ... | |
| 91 | 89 |
if ($params && 'HASH' eq ref $params) {
|
| 92 | 90 |
$::form->{$_} = $params->{$_} for keys %$params;
|
| 93 | 91 |
} |
| 94 |
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
|
| 95 |
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
|
| 96 | 92 |
$::form->{script} = $self->draft->module . '.pl';
|
| 97 |
::update();
|
|
| 93 |
::show_draft();
|
|
| 98 | 94 |
} |
| 99 | 95 |
|
| 100 | 96 |
sub action_delete {
|
Auch abrufbar als: Unified diff
BUGFIX: Kreditorenbuchungen: Fehler beim Nutzen von Drafts(2)
Herausnahme der Anpassungen aus dem Draft Controller in die neuen Methoden show_draft der legacy scripts