projekt kivitendo

  SL::DB->client->with_transaction(

    sub {

      SL::Model::Record->increment_subversion($self->order);

      # Todo: Call SL::Model::Record->save when implemented

      # SL::Model::Record->save($self->order);

      my $errors = $self->save();

      die join "\n", @{ $errors } if scalar @{ $errors };

      1;

    }

  );

  $self->redirect_to(action => 'edit',

                     type   => $self->type,

                     id     => $self->order->id,

  );

sub increment_version_number {

  my ($self) = @_;

  die t8('This sub-version is not yet finalized') if !$self->is_final_version;

  my $current_version_number = $self->current_version_number;

  my $new_version_number     = $current_version_number + 1;

  my $new_number = $self->number;

  $new_number    =~ s/-$current_version_number$//;

  $self->number($new_number . '-' . $new_version_number);

  $self->add_order_version(SL::DB::OrderVersion->new(version => $new_version_number));

}

  # Todo: check type data if this is allowed/supported for this record

  $record->increment_version_number;

  return;

Bernd Bleßmann E<lt>bernd@kivitendo-premium.deE<gt>

...

=cut