1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 ######################################################################
8 # Stuff that can be used from other modules
10 ######################################################################
15 use SL::ReportGenerator;
17 sub report_generator_export_as_pdf {
18 $lxdebug->enter_sub();
20 if ($form->{report_generator_pdf_options_set}) {
21 report_generator_do('PDF');
22 $lxdebug->leave_sub();
27 map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
29 $form->{title} = $locale->text('PDF export -- options');
31 print $form->parse_html_template('report_generator/pdf_export_options',
32 { 'HIDDEN' => \@form_values,
33 'default_margin' => $form->format_amount(\%myconfig, 1.5) });
35 $lxdebug->leave_sub();
38 sub report_generator_export_as_csv {
39 $lxdebug->enter_sub();
41 if ($form->{report_generator_csv_options_set}) {
42 report_generator_do('CSV');
43 $lxdebug->leave_sub();
48 map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
50 $form->{title} = $locale->text('CSV export -- options');
52 print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
54 $lxdebug->leave_sub();
57 sub report_generator_back {
58 $lxdebug->enter_sub();
60 report_generator_do('HTML');
62 $lxdebug->leave_sub();
65 sub report_generator_do {
66 $lxdebug->enter_sub();
70 my $nextsub = $form->{report_generator_nextsub};
72 $form->error($locale->text('report_generator_nextsub is not defined.'));
75 foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
76 $form->{$key} = $form->{"report_generator_hidden_${key}"};
79 $form->{report_generator_output_format} = $format;
81 delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
85 $lxdebug->leave_sub();
88 sub report_generator_dispatcher {
89 $lxdebug->enter_sub();
91 my $nextsub = $form->{report_generator_dispatch_to};
93 $form->error($locale->text('report_generator_dispatch_to is not defined.'));
96 delete $form->{report_generator_dispatch_to};
100 $lxdebug->leave_sub();