Revision a8e3100c
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| SL/Controller/Draft.pm | ||
|---|---|---|
| 82 | 82 |
require $allowed_modules{ $self->draft->module };
|
| 83 | 83 |
} |
| 84 | 84 |
|
| 85 |
|
|
| 86 |
my $params = delete $::form->{form};
|
|
| 85 | 87 |
my $new_form = YAML::Load($self->draft->form); |
| 86 | 88 |
$::form->{$_} = $new_form->{$_} for keys %$new_form;
|
| 87 | 89 |
$::form->{"draft_$_"} = $self->draft->$_ for qw(id description);
|
| 88 | 90 |
|
| 91 |
if ($params && 'HASH' eq ref $params) {
|
|
| 92 |
$::form->{$_} = $params->{$_} for keys %$params;
|
|
| 93 |
} |
|
| 94 |
|
|
| 89 | 95 |
$::form->{script} = $self->draft->module . '.pl';
|
| 90 | 96 |
::update(); |
| 91 | 97 |
} |
Auch abrufbar als: Unified diff
Drafts: load kann jetzt zusätzliche Argumente aus form übernehmen