projekt kivitendo

sub _map_keys_to_arrays {

  my ($items, $keys, $array) = @_;

  for my $key (@$keys) {

    # handle nested keys

    if ($key =~ /\./) {

      my ($k1, $k2) = split /\./, $key;

      $array->{$key} = [ map { $_->{$k1}->{$k2} } @$items ];

    } else {

      $array->{$key} = [ map { $_->{$key} } @$items ];

    }

  }

}

sub add_legacy_template_arrays {

  my ($print_form) = @_;

  # extract loop variables (items and taxes) from the rose db object

  # and add them to the form, in the format that the built-in template parser expects

  #

  # using the keys that are used in the latex template: template/print/marei/sales_reclamation.tex

  my $items_sorted = $print_form->{reclamation}->items_sorted;

  my @keys = qw( position part.partnumber description longdescription reqdate serialnumber projectnumber reason.description

    reason_description_ext qty_as_number unit sellprice_as_number discount_as_number discount_as_percent linetotal );

  # (nested keys: part.partnumber, reason.description)

  my %template_arrays;

  _map_keys_to_arrays($items_sorted, \@keys, \%template_arrays);

  my $tax_items = $print_form->{reclamation}->taxes;

  my @tax_keys = qw( tax.taxdescription amount );

  _map_keys_to_arrays($tax_items, \@tax_keys, \%template_arrays);

  $print_form->{TEMPLATE_ARRAYS} = \%template_arrays;

}

  # add variables for printing with the built-in parser

  $reclamation->flatten_to_form($print_form, format_amounts => 1);

  add_legacy_template_arrays($print_form);