Eine Report-Klasse geschrieben, der die Ergebnisse von Datenbankabfragen übergeben...

[kivitendo-erp.git] / bin / mozilla / report_generator.pl

diff --git a/bin/mozilla/report_generator.pl b/bin/mozilla/report_generator.pl
new file mode 100644 (file)
index 0000000..6c76678
--- /dev/null
+++ b/bin/mozilla/report_generator.pl
@@ -0,0 +1,80 @@
+#=====================================================================
+# LX-Office ERP
+# Copyright (C) 2004
+# Based on SQL-Ledger Version 2.1.9
+# Web http://www.lx-office.org
+######################################################################
+#
+# Stuff that can be used from other modules
+#
+######################################################################
+
+use SL::Form;
+use SL::Common;
+use SL::MoreCommon;
+use SL::ReportGenerator;
+
+sub export_as_pdf {
+  $lxdebug->enter_sub();
+
+  if ($form->{report_generator_pdf_options_set}) {
+    report_generator_do('PDF');
+    $lxdebug->leave_sub();
+    return;
+  }
+
+  my @form_values;
+  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
+
+  $form->{title} = $locale->text('PDF export -- options');
+  $form->header();
+  print $form->parse_html_template('report_generator/pdf_export_options',
+                                   { 'HIDDEN'         => \@form_values,
+                                     'default_margin' => $form->format_amount(\%myconfig, 1.5) });
+
+  $lxdebug->leave_sub();
+}
+
+sub export_as_csv {
+  $lxdebug->enter_sub();
+
+  if ($form->{report_generator_csv_options_set}) {
+    report_generator_do('CSV');
+    $lxdebug->leave_sub();
+    return;
+  }
+
+  my @form_values;
+  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
+
+  $form->{title} = $locale->text('CSV export -- options');
+  $form->header();
+  print $form->parse_html_template('report_generator/csv_export_options', { 'HIDDEN' => \@form_values });
+
+  $lxdebug->leave_sub();
+}
+
+sub report_generator_do {
+  $lxdebug->enter_sub();
+
+  my $format  = shift;
+
+  my $nextsub = $form->{report_generator_nextsub};
+  if (!$nextsub) {
+    $form->error($locale->text('report_generator_nextsub is not defined.'));
+  }
+
+  foreach my $key (split m/ +/, $form->{report_generator_variable_list}) {
+    $form->{$key} = $form->{"report_generator_hidden_${key}"};
+  }
+
+  $form->{report_generator_output_format} = $format;
+
+  delete @{$form}{map { "report_generator_$_" } qw(nextsub variable_list)};
+
+  call_sub($nextsub);
+
+  $lxdebug->leave_sub();
+}
+
+1;