]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Controller/RequirementSpecVersion.pm
Finanzcontrolling: Refactor Accessors, Warnungen vermeiden
[mfinanz.git] / SL / Controller / RequirementSpecVersion.pm
index e1d737ddb9f98bd18ee4c2754c7c157819c49c6d..e97d2252b6effc7a020ac2d98390af750144387b 100644 (file)
@@ -72,13 +72,14 @@ sub action_create {
   return $self->js->error(@errors)->render($self) if @errors;
 
   my $db     = $self->requirement_spec->db;
-  my @result = $self->version($self->requirement_spec->create_version(%attributes));
+  my @result = $self->requirement_spec->create_version(%attributes);
 
   if (!@result) {
     $::lxdebug->message(LXDebug::WARN(), "Error: " . $db->error);
     return $self->js->error($::locale->text('Saving failed. Error message from the database: #1'), $db->error)->render($self);
   }
 
+  $self->version($result[0]);
   my $version_info_html = $self->render('requirement_spec/_version',     { output => 0 }, requirement_spec => $self->requirement_spec);
   my $version_list_html = $self->render('requirement_spec_version/list', { output => 0 });
 
@@ -95,7 +96,7 @@ sub action_create {
 
 sub check_auth {
   my ($self, %params) = @_;
-  $::auth->assert('sales_quotation_edit');
+  $::auth->assert('requirement_spec_edit');
 }
 
 #