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 ######################################################################
12 use List::Util qw(max);
17 use SL::ReportGenerator;
19 sub report_generator_export_as_pdf {
20 $lxdebug->enter_sub();
22 if ($form->{report_generator_pdf_options_set}) {
23 my $saved_form = save_form();
25 report_generator_do('PDF');
27 if ($form->{report_generator_printed}) {
28 restore_form($saved_form);
29 $form->{MESSAGE} = $locale->text('The list has been printed.');
30 report_generator_do('HTML');
33 $lxdebug->leave_sub();
37 my @form_values = $form->flatten_variables(grep { ($_ ne 'login') && ($_ ne 'password') } keys %{ $form });
39 $form->get_lists('printers' => 'ALL_PRINTERS');
40 map { $_->{selected} = $myconfig{default_printer_id} == $_->{id} } @{ $form->{ALL_PRINTERS} };
42 $form->{copies} = max $myconfig{copies} * 1, 1;
44 my $allow_font_selection = 1;
45 eval { require PDF::API2; };
46 $allow_font_selection = 0 if ($@);
48 $form->{title} = $locale->text('PDF export -- options');
50 print $form->parse_html_template('report_generator/pdf_export_options', { 'HIDDEN' => \@form_values,
51 'ALLOW_FONT_SELECTION' => $allow_font_selection, });
53 $lxdebug->leave_sub();
56 sub report_generator_export_as_csv {
57 $lxdebug->enter_sub();
59 if ($form->{report_generator_csv_options_set}) {
60 report_generator_do('CSV');
61 $lxdebug->leave_sub();
65 my @form_values = $form->flatten_variables(grep { ($_ ne 'login') && ($_ ne 'password') } keys %{ $form });
67 $form->{title} = $locale->text('CSV export -- options');
69 print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
71 $lxdebug->leave_sub();
74 sub report_generator_back {
75 $lxdebug->enter_sub();
77 report_generator_do('HTML');
79 $lxdebug->leave_sub();
82 sub report_generator_do {
83 $lxdebug->enter_sub();
87 my $nextsub = $form->{report_generator_nextsub};
89 $form->error($locale->text('report_generator_nextsub is not defined.'));
92 foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
93 $form->{$key} = $form->{"report_generator_hidden_${key}"};
96 $form->{report_generator_output_format} = $format;
98 delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
102 $lxdebug->leave_sub();
105 sub report_generator_dispatcher {
106 $lxdebug->enter_sub();
108 my $nextsub = $form->{report_generator_dispatch_to};
110 $form->error($locale->text('report_generator_dispatch_to is not defined.'));
113 delete $form->{report_generator_dispatch_to};
117 $lxdebug->leave_sub();