projekt kivitendo

sub action_add_from_reclamation {

  my ($self) = @_;

  require SL::DB::Reclamation;

  my $reclamation = SL::DB::Reclamation->new(id => $::form->{from_id})->load;

  my ($delivery_order, $error) = $reclamation->convert_to_delivery_order();

  if($error) {

    croak("Error while converting: " . $error);

  }

  $self->order($delivery_order);

  $self->action_add;

}