report_generator.pl in reportgenerator.pl umbenannt.

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

diff --git a/bin/mozilla/report_generator.pl b/bin/mozilla/report_generator.pl
deleted file mode 100644 (file)
index 112116d..0000000
--- a/bin/mozilla/report_generator.pl
+++ /dev/null
@@ -1,121 +0,0 @@
-#=====================================================================
-# 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 List::Util qw(max);
-
-use SL::Form;
-use SL::Common;
-use SL::MoreCommon;
-use SL::ReportGenerator;
-
-sub report_generator_export_as_pdf {
-  $lxdebug->enter_sub();
-
-  if ($form->{report_generator_pdf_options_set}) {
-    my $saved_form = save_form();
-
-    report_generator_do('PDF');
-
-    if ($form->{report_generator_printed}) {
-      restore_form($saved_form);
-      $form->{MESSAGE} = $locale->text('The list has been printed.');
-      report_generator_do('HTML');
-    }
-
-    $lxdebug->leave_sub();
-    return;
-  }
-
-  my @form_values;
-  map { push @form_values, { 'key' => $_, 'value' => $form->{$_} } } keys %{ $form };
-
-  $form->get_lists('printers' => 'ALL_PRINTERS');
-  map { $_->{selected} = $myconfig{default_printer_id} == $_->{id} } @{ $form->{ALL_PRINTERS} };
-
-  $form->{copies} = max $myconfig{copies} * 1, 1;
-
-  $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),
-                                     'SHOW_PRINTERS'  => scalar @{ $form->{ALL_PRINTERS} },
-                                   });
-
-  $lxdebug->leave_sub();
-}
-
-sub report_generator_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_back {
-  $lxdebug->enter_sub();
-
-  report_generator_do('HTML');
-
-  $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();
-}
-
-sub report_generator_dispatcher {
-  $lxdebug->enter_sub();
-
-  my $nextsub = $form->{report_generator_dispatch_to};
-  if (!$nextsub) {
-    $form->error($locale->text('report_generator_dispatch_to is not defined.'));
-  }
-
-  delete $form->{report_generator_dispatch_to};
-
-  call_sub($nextsub);
-
-  $lxdebug->leave_sub();
-}
-
-1;