Belegvorlagen: Speichern bei Kreditorenbuchungen

[mfinanz.git] / SL / Controller / Draft.pm

diff --git a/SL/Controller/Draft.pm b/SL/Controller/Draft.pm
index 131ed6b23e60291fdc56ef1f7edc85511fc3dded..a450e2c9f58375a44e0af26f7458969004342e8f 100644 (file)
--- 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 };
   }
     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;
   my $params = delete $::form->{form};
   my $new_form = YAML::Load($self->draft->form);
   $::form->{$_} = $new_form->{$_} for keys %$new_form;


@@ -91,10 +89,8 @@ sub action_load {
   if ($params && 'HASH' eq ref $params) {
     $::form->{$_} = $params->{$_} for keys %$params;
   }
   if ($params && 'HASH' eq ref $params) {
     $::form->{$_} = $params->{$_} for keys %$params;
   }

-  $::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
-  $::form->{gldate}    = $::form->{transdate} if !$::form->{gldate};

   $::form->{script} = $self->draft->module . '.pl';
   $::form->{script} = $self->draft->module . '.pl';

-  ::update();
+  ::show_draft();

 }
 
 sub action_delete {
 }
 
 sub action_delete {