Mahnsystem - mehr Variablen exportieren

Ausserdem strict fixes.

diff --git a/SL/DN.pm b/SL/DN.pm
index bd4b5092fd2068b42cb0453410a2ccf353f8efac..a325766cd1a4f3a2012aae55c7ab0c38f896016b 100644 (file)
--- a/SL/DN.pm
+++ b/SL/DN.pm
@@ -457,7 +457,7 @@ sub get_invoices {
     push(@values, $form->{minamount});
   }
 
-  $query =
+  my $query =
     qq|SELECT id
        FROM dunning_config
        WHERE dunning_level = (SELECT MAX(dunning_level) FROM dunning_config)|;
@@ -512,7 +512,7 @@ sub get_invoices {
 
   $form->{DUNNINGS} = [];
 
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
     next if ($ref->{pastdue} < $ref->{terms});
 
     $ref->{interest} = $form->round_amount($ref->{interest}, 2);
@@ -537,7 +537,7 @@ sub get_dunning {
   # connect to database
   my $dbh = $form->dbconnect($myconfig);
 
-  $where = qq| WHERE (da.trans_id = a.id)|;
+  my $where = qq| WHERE (da.trans_id = a.id)|;
 
   my @values;
 
@@ -663,9 +663,10 @@ sub melt_pdfs {
     $form->error($main::locale->text('Could not spawn the printer command.')) unless $out;
 
   } else {
+    my $dunning_filename = $form->get_formname_translation('dunning');
     $out = IO::File->new('>-');
     $out->print(qq|Content-Type: Application/PDF\n| .
-                qq|Content-Disposition: attachment; filename="dunning_${dunning_id}.pdf"\n\n|);
+                qq|Content-Disposition: attachment; filename="${dunning_filename}_${dunning_id}.pdf"\n\n|);
   }
 
   while (my $line = <$in>) {
@@ -712,7 +713,7 @@ sub print_dunning {
 
   my $sth = prepare_execute_query($form, $dbh, $query, $dunning_id);
   my $first = 1;
-  while (my $ref = $sth->fetchrow_hashref(NAME_lc)) {
+  while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
     if ($first) {
       $form->{TEMPLATE_ARRAYS} = {};
       map({ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} = []; } keys(%{$ref}));
@@ -737,7 +738,7 @@ sub print_dunning {
        LEFT JOIN contacts co ON (ar.cp_id = co.cp_id)
        WHERE (d.dunning_id = ?)
        LIMIT 1|;
-  $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id);
+  my $ref = selectfirst_hashref_query($form, $dbh, $query, $dunning_id);
   map { $form->{$_} = $ref->{$_} } keys %{ $ref };
 
   $query =
@@ -832,7 +833,7 @@ sub print_invoice_for_fees {
        FROM ar
        LEFT JOIN customer c ON (ar.customer_id = c.id)
        WHERE ar.id = ?|;
-  $ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id);
+  my $ref = selectfirst_hashref_query($form, $dbh, $query, $ar_id);
   map { $form->{$_} = $ref->{$_} } keys %{ $ref };
 
   $query = qq|SELECT * FROM employee WHERE login = ?|;

diff --git a/SL/Form.pm b/SL/Form.pm
index e7ee2b216db2079ba98e1d4e364c89a2e17b124a..74de73833eacd0b4d6cdc38a415998dc4d4b9668 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1395,6 +1395,7 @@ sub get_formname_translation {
     storno_packing_list     => $main::locale->text('Storno Packing List'),
     sales_delivery_order    => $main::locale->text('Delivery Order'),
     purchase_delivery_order => $main::locale->text('Delivery Order'),
+    dunning                 => $main::locale->text('Dunning'),
   );
 
   $main::lxdebug->leave_sub();

diff --git a/locale/de/acctranscorrections b/locale/de/acctranscorrections
index 8f1cd23466460160ac329cd770da3bf44f386069..e1df3ce4a83b5779ffb1c342d1876609cbd8dd4c 100644 (file)
--- a/locale/de/acctranscorrections
+++ b/locale/de/acctranscorrections
@@ -60,6 +60,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/admin b/locale/de/admin
index f465fb6bf78c5c04d9dabe0e1a7cbd2492c75441..e7f4825bfbd50bd1b8fe204d0d4ec192bcc16665 100644 (file)
--- a/locale/de/admin
+++ b/locale/de/admin
@@ -75,6 +75,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit User'                   => 'Benutzerdaten bearbeiten',
   'Edit group membership'       => 'Gruppenmitgliedschaften bearbeiten',

diff --git a/locale/de/am b/locale/de/am
index 4411dd69bb8cbdf9c020a99b5535377779d729f6..5ef6e816030e50f5bbdd42c7e4e31f576270877a 100644 (file)
--- a/locale/de/am
+++ b/locale/de/am
@@ -147,6 +147,7 @@ $self->{texts} = {
   'Description missing!'        => 'Beschreibung fehlt.',
   'Directory'                   => 'Verzeichnis',
   'Discount'                    => 'Rabatt',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit'                        => 'Bearbeiten',
   'Edit Account'                => 'Kontodaten bearbeiten',

diff --git a/locale/de/amcvar b/locale/de/amcvar
index c83bc5bfd69e47ce54f496d2549cdfeeff3196ac..dc92a0c8c1d829f884c1e225942ee247f102edd8 100644 (file)
--- a/locale/de/amcvar
+++ b/locale/de/amcvar
@@ -57,6 +57,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit custom variable'        => 'Benutzerdefinierte Variable bearbeiten',
   'Enter longdescription'       => 'Langtext eingeben',

diff --git a/locale/de/amtemplates b/locale/de/amtemplates
index 4e641b411d5f5a9e1c70828e454adf0f5e73c064..31e5a2ace6c6a20c6d1d6da4f75fd6547b2dd439 100644 (file)
--- a/locale/de/amtemplates
+++ b/locale/de/amtemplates
@@ -59,6 +59,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit templates'              => 'Vorlage bearbeiten',
   'Edit the stylesheet'         => 'Stilvorlage bearbeiten',

diff --git a/locale/de/arap b/locale/de/arap
index f11bc5c5907b0d196976fd6edb21c4647a5705cd..d11c19e5928edb4a1a0839a72b0fc4c5cecdc4e3 100644 (file)
--- a/locale/de/arap
+++ b/locale/de/arap
@@ -60,6 +60,7 @@ $self->{texts} = {
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/bp b/locale/de/bp
index 43d5c31386545fc043af506f5dda95fa90354aee..d6dd5714d61f88894e96159fa423cc8acb52e0b9 100644 (file)
--- a/locale/de/bp
+++ b/locale/de/bp
@@ -64,6 +64,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/ca b/locale/de/ca
index aa49c9509a6dbe1d64859f26d6b421c76f7b5590..6263c83edb193af71126f98d34dc4b94d0bb13ef 100644 (file)
--- a/locale/de/ca
+++ b/locale/de/ca
@@ -74,6 +74,7 @@ $self->{texts} = {
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'EB-Wert'                     => 'EB-Wert',
   'ELSE'                        => 'Zusatz',
   'EUR'                         => 'E/Ü-Rechnung',

diff --git a/locale/de/common b/locale/de/common
index 7964ae7bbcdcdc3387545ffaf21f90bc593ec2e2..2912109043315374f27fb507ecd1b23e473933e1 100644 (file)
--- a/locale/de/common
+++ b/locale/de/common
@@ -56,6 +56,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/cp b/locale/de/cp
index a62e3bef4aab46c0461ec47c7fd1422fd47541e8..253737ed19f236fdb677fffa51b94aa4b756d77f 100644 (file)
--- a/locale/de/cp
+++ b/locale/de/cp
@@ -72,6 +72,7 @@ $self->{texts} = {
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
   'Due'                         => 'Fällig',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/datev b/locale/de/datev
index 2ec33408e7573359acc7ba75672b4bb8bcd4e545..05d6a4a30cf45a88d9df0d11a0a5270e6469713a 100644 (file)
--- a/locale/de/datev
+++ b/locale/de/datev
@@ -68,6 +68,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/drafts b/locale/de/drafts
index 89362d136a918c35a82b5199d07289bea5867959..368019c2ba496b19322a518e1a32c3d5201cf937 100644 (file)
--- a/locale/de/drafts
+++ b/locale/de/drafts
@@ -58,6 +58,7 @@ $self->{texts} = {
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
   'Draft saved.'                => 'Entwurf gespeichert.',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/generictranslations b/locale/de/generictranslations
index e28593ba1410d4945c78da23c09753c229a81ca0..4a8720a294977bd0a74f86a8baecbd6136e8112f 100644 (file)
--- a/locale/de/generictranslations
+++ b/locale/de/generictranslations
@@ -51,6 +51,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit greetings'              => 'Anreden bearbeiten',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/licenses b/locale/de/licenses
index 67d798a01fbf9cacac8cc186df1154021bf44b4a..0f390e427ea6cdf1fb67304957e982d2b7cadc1e 100644 (file)
--- a/locale/de/licenses
+++ b/locale/de/licenses
@@ -65,6 +65,7 @@ $self->{texts} = {
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/pe b/locale/de/pe
index 39be3c59e71502f710653b3e6933aaf3d0ea69a6..87f9f837b96fdff70de5f2879c18330e8c3454ba 100644 (file)
--- a/locale/de/pe
+++ b/locale/de/pe
@@ -62,6 +62,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit Group'                  => 'Warengruppe editieren',
   'Edit Pricegroup'             => 'Preisgruppe bearbeiten',

diff --git a/locale/de/projects b/locale/de/projects
index a7dcc2660a5f393c413e8077ad30c2217ce4417c..377188c7a9e8cb19a1f42bd03baa5d0514167844 100644 (file)
--- a/locale/de/projects
+++ b/locale/de/projects
@@ -62,6 +62,7 @@ $self->{texts} = {
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Edit Project'                => 'Projekt bearbeiten',
   'Enter longdescription'       => 'Langtext eingeben',

diff --git a/locale/de/rc b/locale/de/rc
index e342f370a33963a8ed6f553049fc50e764020ffb..25e7ac0727485478c3416bdc9b7a21ad333e101e 100644 (file)
--- a/locale/de/rc
+++ b/locale/de/rc
@@ -65,6 +65,7 @@ $self->{texts} = {
   'Difference'                  => 'Differenz',
   'Directory'                   => 'Verzeichnis',
   'Done'                        => 'Fertig',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Enter longdescription'       => 'Langtext eingeben',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',

diff --git a/locale/de/reportgenerator b/locale/de/reportgenerator
index 11eceb9cd48be8ff4b68723082170d51b79bd70d..abe4405ad23c50f57038482ab1b9560d1601ae31 100644 (file)
--- a/locale/de/reportgenerator
+++ b/locale/de/reportgenerator
@@ -53,6 +53,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'Error in database control file \'%s\': %s' => 'Fehler in Datenbankupgradekontrolldatei \'%s\': %s',
   'File'                        => 'Datei',

diff --git a/locale/de/rp b/locale/de/rp
index e0f3e3acfa09b70019afa16fa9405a3cf9a06b8d..ca5aa903f3aacf270fca14119647d47a1d68a2a3 100644 (file)
--- a/locale/de/rp
+++ b/locale/de/rp
@@ -95,6 +95,7 @@ $self->{texts} = {
   'Description'                 => 'Beschreibung',
   'Directory'                   => 'Verzeichnis',
   'Due'                         => 'Fällig',
+  'Dunning'                     => 'Mahnung',
   'E-mail'                      => 'eMail',
   'E-mail Statement to'         => 'Fälligkeitsabrechnung als eMail an',
   'ELSE'                        => 'Zusatz',

diff --git a/locale/de/ustva b/locale/de/ustva
index 03a25ef47952236314db5691b5c13b9510172a13..944c5b29c9542f7e346dad6821fabf8e6e545298 100644 (file)
--- a/locale/de/ustva
+++ b/locale/de/ustva
@@ -74,6 +74,7 @@ $self->{texts} = {
   'Delivery Order'              => 'Lieferschein',
   'Dependency loop detected:'   => 'Schleife in den Abhängigkeiten entdeckt:',
   'Directory'                   => 'Verzeichnis',
+  'Dunning'                     => 'Mahnung',
   'ELSE'                        => 'Zusatz',
   'ELSTER Export (Taxbird)'     => 'ELSTER-Export nach Taxbird',
   'ELSTER Export (Winston)'     => 'ELSTER Export nach Winston',