X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Frp.pl;h=fef3355b56429a467567fa5435fa9dc05c1ccba5;hb=c046c42244acda83029d00cb06ff636063765fb2;hp=034fa4f893969c3b580c129c190f2dd26f2977b9;hpb=8c0a8805fea741b5a7befd2601b49d86c4a0e612;p=kivitendo-erp.git diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl index 034fa4f89..fef3355b5 100644 --- a/bin/mozilla/rp.pl +++ b/bin/mozilla/rp.pl @@ -1253,7 +1253,8 @@ sub generate_balance_sheet { $form->{IN} = "balance_sheet.html"; # setup company variables for the form - map { $form->{$_} = $myconfig{$_} } + map { $form->{$_} = $myconfig{$_}; + $form->{$_} =~ s/\\n/\n/g; } (qw(company address businessnumber nativecurr)); $form->{templates} = $myconfig{templates}; @@ -1850,16 +1851,10 @@ sub aging { -|; - } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } + . $locale->text('E-mail') . qq|">|; +} - print qq| +print qq| @@ -2132,10 +2127,10 @@ sub statement_details { push @{ $form->{duedate} }, $ref->{duedate}; foreach $item (qw(c0 c30 c60 c90)) { - eval { + if ($ref->{exchangerate} * 1) { $ref->{$item} = $form->round_amount($ref->{$item} / $ref->{exchangerate}, 2); - }; + } $form->{"${item}total"} += $ref->{$item}; $form->{total} += $ref->{$item}; push @{ $form->{$item} },