sub calculate_alu {
$lxdebug->enter_sub();
-
-
my ($length, $weight) = split /\r\n/,$form->{formel};
- #print(STDERR "$form->{formel} Formel\n");
- #print(STDERR "$form->{description} Description\n");
-
map({ $form->{$_} = "" } (qw(qty_alu price_alu total_alu qty_eloxal price_eloxal total_eloxal total)));
if ($form->{description} =~ /.*Alupreisberechnung.*/) {
$form->{total} = $form->format_amount(\%myconfig, ($form->parse_amount(\%myconfig, $form->{total_alu}) + $form->parse_amount(\%myconfig, $form->{total_eloxal})));
}
($form->{description}, $null) = split /\nAlupreisberechnung/, $form->{description};
- #map({ print(STDERR "$_ = $form->{$_}\n") } (qw(qty_alu price_alu total_alu qty_eloxal price_eloxal total_eloxal total)));
my $callback = "$form->{script}?action=vendor_selection&";
map({ $callback .= "$_=" . $form->escape($form->{$_}) . "&" }