arap.pl: merge conflict hatte broken Pod hinterlassen.
[kivitendo-erp.git] / bin / mozilla / reportgenerator.pl
1 #=====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 ######################################################################
7 #
8 # Stuff that can be used from other modules
9 #
10 ######################################################################
11
12 use List::Util qw(max);
13
14 use SL::Form;
15 use SL::Common;
16 use SL::MoreCommon;
17 use SL::ReportGenerator;
18
19 use strict;
20
21 sub report_generator_set_default_sort {
22   $main::lxdebug->enter_sub();
23
24   my $form     = $main::form;
25
26   my $default_sortorder   = shift;
27   my $default_sortdir     = shift;
28
29   $form->{sort}         ||= $default_sortorder;
30   $form->{sortdir}        = $default_sortdir unless (defined $form->{sortdir});
31   $form->{sortdir}        = $form->{sortdir} ? 1 : 0;
32
33   $main::lxdebug->leave_sub();
34 }
35
36
37 sub report_generator_export_as_pdf {
38   $main::lxdebug->enter_sub();
39
40   my $form     = $main::form;
41   my %myconfig = %main::myconfig;
42   my $locale   = $main::locale;
43
44   if ($form->{report_generator_pdf_options_set}) {
45     my $saved_form = save_form();
46
47     report_generator_do('PDF');
48
49     if ($form->{report_generator_printed}) {
50       restore_form($saved_form);
51       $form->{MESSAGE} = $locale->text('The list has been printed.');
52       report_generator_do('HTML');
53     }
54
55     $main::lxdebug->leave_sub();
56     return;
57   }
58
59   my @form_values = $form->flatten_variables(grep { ($_ ne 'login') && ($_ ne 'password') } keys %{ $form });
60
61   $form->get_lists('printers' => 'ALL_PRINTERS');
62   map { $_->{selected} = $myconfig{default_printer_id} == $_->{id} } @{ $form->{ALL_PRINTERS} };
63
64   $form->{copies} = max $myconfig{copies} * 1, 1;
65
66   my $allow_font_selection = 1;
67   eval { require PDF::API2; };
68   $allow_font_selection = 0 if ($@);
69
70   $form->{title} = $locale->text('PDF export -- options');
71   $form->header();
72   print $form->parse_html_template('report_generator/pdf_export_options', { 'HIDDEN'               => \@form_values,
73                                                                             'ALLOW_FONT_SELECTION' => $allow_font_selection, });
74
75   $main::lxdebug->leave_sub();
76 }
77
78 sub report_generator_export_as_csv {
79   $main::lxdebug->enter_sub();
80
81   my $form     = $main::form;
82   my $locale   = $main::locale;
83
84   if ($form->{report_generator_csv_options_set}) {
85     report_generator_do('CSV');
86     $main::lxdebug->leave_sub();
87     return;
88   }
89
90   my @form_values = $form->flatten_variables(grep { ($_ ne 'login') && ($_ ne 'password') } keys %{ $form });
91
92   $form->{title} = $locale->text('CSV export -- options');
93   $form->header();
94   print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
95
96   $main::lxdebug->leave_sub();
97 }
98
99 sub report_generator_back {
100   $main::lxdebug->enter_sub();
101
102   report_generator_do('HTML');
103
104   $main::lxdebug->leave_sub();
105 }
106
107 sub report_generator_do {
108   $main::lxdebug->enter_sub();
109
110   my $format  = shift;
111
112   my $form     = $main::form;
113   my $locale   = $main::locale;
114
115   my $nextsub = $form->{report_generator_nextsub};
116   if (!$nextsub) {
117     $form->error($locale->text('report_generator_nextsub is not defined.'));
118   }
119
120   foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
121     $form->{$key} = $form->{"report_generator_hidden_${key}"};
122   }
123
124   $form->{report_generator_output_format} = $format;
125
126   delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
127
128   call_sub($nextsub);
129
130   $main::lxdebug->leave_sub();
131 }
132
133 sub report_generator_dispatcher {
134   $main::lxdebug->enter_sub();
135
136   my $form     = $main::form;
137   my $locale   = $main::locale;
138
139   my $nextsub = $form->{report_generator_dispatch_to};
140   if (!$nextsub) {
141     $form->error($locale->text('report_generator_dispatch_to is not defined.'));
142   }
143
144   delete $form->{report_generator_dispatch_to};
145
146   call_sub($nextsub);
147
148   $main::lxdebug->leave_sub();
149 }
150
151 1;