PartPicker - Parameter "type" heißt jetzt "part_type"

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

diff --git a/SL/Controller/Draft.pm b/SL/Controller/Draft.pm
index 9eff3fcfbb217f94ec29a87a5c167d3b5ad2d917..41c8c168802c044f456d8d267487ee435e50021e 100644 (file)
--- a/SL/Controller/Draft.pm
+++ b/SL/Controller/Draft.pm
@@ -82,10 +82,16 @@ sub action_load {
     require $allowed_modules{ $self->draft->module };
   }
 
     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;
   $::form->{"draft_$_"} = $self->draft->$_ for qw(id description);
 
   my $new_form = YAML::Load($self->draft->form);
   $::form->{$_} = $new_form->{$_} for keys %$new_form;
   $::form->{"draft_$_"} = $self->draft->$_ for qw(id description);
 

+  if ($params && 'HASH' eq ref $params) {
+    $::form->{$_} = $params->{$_} for keys %$params;
+  }
+

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


@@ -158,7 +164,7 @@ sub init_draft {
 }
 
 sub check_auth {
 }
 
 sub check_auth {

-  $::auth->assert('vendor_invoice_edit | invoice_edit | general_ledger');
+  $::auth->assert('vendor_invoice_edit | invoice_edit | ap_transactions | ar_transactions');

 }
 
 1;
 }
 
 1;