X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e0f5deeae4cdcf3faf3bc68a202f20ec6cd9af2e..1ca98d42a3b628007035e89bb3763fe327b05c39:/SL/Controller/Draft.pm diff --git a/SL/Controller/Draft.pm b/SL/Controller/Draft.pm index 41c8c1688..a450e2c9f 100644 --- a/SL/Controller/Draft.pm +++ b/SL/Controller/Draft.pm @@ -81,8 +81,6 @@ sub action_load { package main; require $allowed_modules{ $self->draft->module }; } - - my $params = delete $::form->{form}; my $new_form = YAML::Load($self->draft->form); $::form->{$_} = $new_form->{$_} for keys %$new_form; @@ -91,9 +89,8 @@ sub action_load { if ($params && 'HASH' eq ref $params) { $::form->{$_} = $params->{$_} for keys %$params; } - $::form->{script} = $self->draft->module . '.pl'; - ::update(); + ::show_draft(); } sub action_delete {