X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/f46f64806e39e562d4e3577bac98e07c298754a4..8ec0d29a33e23ce962b807e87cc8b577c8c98ec2:/bin/mozilla/rp.pl diff --git a/bin/mozilla/rp.pl b/bin/mozilla/rp.pl index cf5bad33a..f66461ee6 100644 --- a/bin/mozilla/rp.pl +++ b/bin/mozilla/rp.pl @@ -495,7 +495,7 @@ $checked> | . $locale->text('Decimalplaces') . qq| - + $jsscript @@ -620,7 +620,7 @@ $checked> | . $locale->text('Decimalplaces') . qq| - + @@ -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}; @@ -1851,15 +1852,7 @@ sub aging { . $locale->text('Print') . qq|"> -|; - } - - if ($form->{menubar}) { - require "$form->{path}/menu.pl"; - &menubar; - } - print qq| @@ -2637,7 +2630,16 @@ sub print_options { $lxdebug->enter_sub(); $form->{sendmode} = "attachment"; - $form->{copies} = 2 unless $form->{copies}; + + $form->{"format"} = + $form->{"format"} ? $form->{"format"} : + $myconfig{"template_format"} ? $myconfig{"template_format"} : + "pdf"; + + $form->{"copies"} = + $form->{"copies"} ? $form->{"copies"} : + $myconfig{"copies"} ? $myconfig{"copies"} : + 2; $form->{PD}{ $form->{type} } = "selected"; $form->{DF}{ $form->{format} } = "selected";