report_generator.pl in reportgenerator.pl umbenannt.
authorMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 19 Jun 2007 11:07:40 +0000 (11:07 +0000)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Tue, 19 Jun 2007 11:07:40 +0000 (11:07 +0000)
bin/mozilla/ap.pl
bin/mozilla/ar.pl
bin/mozilla/ca.pl
bin/mozilla/dn.pl
bin/mozilla/gl.pl
bin/mozilla/oe.pl
bin/mozilla/report_generator.pl [deleted file]
bin/mozilla/reportgenerator.pl [new file with mode: 0644]
bin/mozilla/rp.pl
locale/de/all
locale/de/reportgenerator [new file with mode: 0644]

index 1919dbd..57822ab 100644 (file)
@@ -42,7 +42,7 @@ use SL::ReportGenerator;
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
 require "bin/mozilla/drafts.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
index 699cb7d..f755bbc 100644 (file)
@@ -47,7 +47,7 @@ our ($cgi, $form, $lxdebug, $locale, %myconfig);
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
 require "bin/mozilla/drafts.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
index 497ee61..d2fab48 100644 (file)
@@ -37,7 +37,7 @@ use POSIX qw(strftime);
 use SL::CA;
 use SL::ReportGenerator;
 
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
index de85948..d1dac5e 100644 (file)
@@ -39,7 +39,7 @@ use SL::DN;
 use SL::ReportGenerator;
 
 require "bin/mozilla/common.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 require "bin/mozilla/io.pl";
 require "bin/mozilla/arap.pl";
 
index b90f29c..5069cef 100644 (file)
@@ -40,7 +40,7 @@ use SL::ReportGenerator;
 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
index 5246362..0388aa0 100644 (file)
@@ -41,7 +41,7 @@ use SL::ReportGenerator;
 
 require "bin/mozilla/io.pl";
 require "bin/mozilla/arap.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
diff --git a/bin/mozilla/report_generator.pl b/bin/mozilla/report_generator.pl
deleted file mode 100644 (file)
index 112116d..0000000
+++ /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;
diff --git a/bin/mozilla/reportgenerator.pl b/bin/mozilla/reportgenerator.pl
new file mode 100644 (file)
index 0000000..112116d
--- /dev/null
@@ -0,0 +1,121 @@
+#=====================================================================
+# 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;
index 2a63214..67ad8a5 100644 (file)
@@ -45,7 +45,7 @@ use SL::ReportGenerator;
 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
 
 1;
 
index d19fcd7..f09e9e3 100644 (file)
@@ -665,7 +665,6 @@ aktualisieren wollen?',
   'List Pricegroups'            => 'Preisgruppen anzeigen',
   'List Printer'                => 'Drucker anzeigen',
   'List Transactions'           => 'Buchungsliste',
-  'List export'                 => 'Listenexport',
   'Load draft'                  => 'Entwurf laden',
   'Local Tax Office Preferences' => 'Angaben zum Finanzamt',
   'Lock System'                 => 'System sperren',
diff --git a/locale/de/reportgenerator b/locale/de/reportgenerator
new file mode 100644 (file)
index 0000000..dcaf277
--- /dev/null
@@ -0,0 +1,64 @@
+$self->{texts} = {
+  'ADDED'                       => 'Hinzugefügt',
+  'Bin List'                    => 'Lagerliste',
+  'CANCELED'                    => 'Storniert',
+  'CSV export -- options'       => 'CSV-Export -- Optionen',
+  'Confirmation'                => 'Auftragsbestätigung',
+  'Could not spawn html2ps or GhostScript.' => 'html2ps oder GhostScript konnte nicht gestartet werden.',
+  'Could not spawn the printer command.' => 'Die Druckanwendung konnte nicht gestartet werden.',
+  'Could not write the html2ps config file.' => 'Die tempor&auml;re html2ps-Konfigurationsdatei konnte nicht geschrieben werden.',
+  'Could not write the temporary HTML file.' => 'Eine tempor&auml;re HTML-Datei konnte nicht geschrieben werden.',
+  'Credit Note'                 => 'Gutschrift',
+  'DELETED'                     => 'Gelöscht',
+  'DUNNING STARTED'             => 'Mahnprozess gestartet',
+  'Dataset upgrade'             => 'Datenbankaktualisierung',
+  'Dependency loop detected:'   => 'Schleife in den Abh&auml;ngigkeiten entdeckt:',
+  'ELSE'                        => 'Zusatz',
+  'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',
+  'Invoice'                     => 'Rechnung',
+  'MAILED'                      => 'Gesendet',
+  'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.',
+  'Missing \'tag\' field.'      => 'Fehlendes Feld \'tag\'.',
+  'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.',
+  'PAYMENT POSTED'              => 'Rechung gebucht',
+  'PDF export -- options'       => 'PDF-Export -- Optionen',
+  'POSTED'                      => 'Gebucht',
+  'POSTED AS NEW'               => 'Als neu gebucht',
+  'PRINTED'                     => 'Gedruckt',
+  'Packing List'                => 'Lieferschein',
+  'Pick List'                   => 'Sammelliste',
+  'Proforma Invoice'            => 'Proformarechnung',
+  'Purchase Order'              => 'Lieferantenauftrag',
+  'Quotation'                   => 'Angebot',
+  'RFQ'                         => 'Anfrage',
+  'SAVED'                       => 'Gespeichert',
+  'SAVED FOR DUNNING'           => 'Gespeichert',
+  'SCREENED'                    => 'Angezeigt',
+  'Storno Invoice'              => 'Stornorechnung',
+  'Storno Packing List'         => 'Stornolieferschein',
+  'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.',
+  'The list has been printed.'  => 'Die Liste wurde ausgedruckt.',
+  'Unknown dependency \'%s\'.'  => 'Unbekannte Abh&auml;ngigkeit \'%s\'.',
+  'bin_list'                    => 'Lagerliste',
+  'invoice'                     => 'Rechnung',
+  'packing_list'                => 'Versandliste',
+  'pick_list'                   => 'Entnahmeliste',
+  'proforma'                    => 'Proforma',
+  'purchase_order'              => 'Auftrag',
+  'report_generator_dispatch_to is not defined.' => 'report_generator_dispatch_to ist nicht definiert.',
+  'report_generator_nextsub is not defined.' => 'report_generator_nextsub ist nicht definiert.',
+  'request_quotation'           => 'Angebotsanforderung',
+  'sales_order'                 => 'Kundenauftrag',
+  'sales_quotation'             => 'Verkaufsangebot',
+};
+
+$self->{subs} = {
+  'report_generator_back'       => 'report_generator_back',
+  'report_generator_dispatcher' => 'report_generator_dispatcher',
+  'report_generator_do'         => 'report_generator_do',
+  'report_generator_export_as_csv' => 'report_generator_export_as_csv',
+  'report_generator_export_as_pdf' => 'report_generator_export_as_pdf',
+  'weiter'                      => 'continue',
+};
+
+1;