Testfall Kosmetik (Alignment)

[mfinanz.git] / bin / mozilla / reportgenerator.pl

diff --git a/bin/mozilla/reportgenerator.pl b/bin/mozilla/reportgenerator.pl
index 89f3b721ca48fe4d32335ab0c4fbd3d6865ac4bc..2304e492d85ffb33edeebe4dc0fe8c2667239dee 100644 (file)
--- a/bin/mozilla/reportgenerator.pl
+++ b/bin/mozilla/reportgenerator.pl
@@ -13,7 +13,7 @@ use List::Util qw(max);
 
 use SL::Form;
 use SL::Common;
 
 use SL::Form;
 use SL::Common;

-use SL::MoreCommon;
+use SL::MoreCommon qw(restore_form save_form);

 use SL::ReportGenerator;
 
 use strict;
 use SL::ReportGenerator;
 
 use strict;


@@ -64,12 +64,15 @@ sub report_generator_export_as_pdf {
   $form->{copies} = max $myconfig{copies} * 1, 1;
 
   my $allow_font_selection = 1;
   $form->{copies} = max $myconfig{copies} * 1, 1;
 
   my $allow_font_selection = 1;

+  my $allow_attachments    = 0;

   eval { require PDF::API2; };
   $allow_font_selection = 0 if ($@);
   eval { require PDF::API2; };
   $allow_font_selection = 0 if ($@);

+  $allow_attachments    = 1 if $form->{report_generator_hidden_l_attachments};

 
   $form->{title} = $locale->text('PDF export -- options');
   $form->header();
   print $form->parse_html_template('report_generator/pdf_export_options', { 'HIDDEN'               => \@form_values,
 
   $form->{title} = $locale->text('PDF export -- options');
   $form->header();
   print $form->parse_html_template('report_generator/pdf_export_options', { 'HIDDEN'               => \@form_values,

+                                                                            'ALLOW_ATTACHMENTS'    => $allow_attachments,

                                                                             'ALLOW_FONT_SELECTION' => $allow_font_selection, });
 
   $main::lxdebug->leave_sub();
                                                                             'ALLOW_FONT_SELECTION' => $allow_font_selection, });
 
   $main::lxdebug->leave_sub();