From ef5a164cac92ef3398b328893163958eb6720e10 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 6 Feb 2007 11:21:25 +0000
Subject: [PATCH] Die Option "Zahlenformat (Eingabe)" entfernt. Wenn sowohl .
 als auch , als Dezimaltrennzeichen erkannt werden sollen, dann sind viel zu
 viele Eingaben ohne , oder . als 1000er Trennzeichen zu mehrdeutig.

---
 SL/Form.pm        | 12 ------------
 SL/User.pm        |  2 +-
 bin/mozilla/am.pl | 17 -----------------
 locale/de/all     |  3 ---
 locale/de/am      |  3 ---
 5 files changed, 1 insertion(+), 36 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 57bd84beb..df17c4b07 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -679,18 +679,6 @@ sub parse_amount {
 
   my ($self, $myconfig, $amount) = @_;
 
-  if ($myconfig->{in_numberformat} == 1) {
-    # Extra input number format 1000.00 or 1000,00
-    $amount =~ s/,/\./g;
-    $amount = scalar reverse $amount;
-    $amount =~ s/\./DOT/;
-    $amount =~ s/\.//g;
-    $amount =~ s/DOT/\./;
-    $amount = scalar reverse $amount;
-    $main::lxdebug->leave_sub(2);
-    return ($amount * 1);
-  }
-
   if (   ($myconfig->{numberformat} eq '1.000,00')
       || ($myconfig->{numberformat} eq '1000,00')) {
     $amount =~ s/\.//g;
diff --git a/SL/User.pm b/SL/User.pm
index 9fd9e5ee4..ea95cb1d2 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -1089,7 +1089,7 @@ sub config_vars {
 
   my @conf = qw(acs address admin businessnumber charset company countrycode
     currency dateformat dbconnect dbdriver dbhost dbport dboptions
-    dbname dbuser dbpasswd email fax name numberformat in_numberformat password
+    dbname dbuser dbpasswd email fax name numberformat password
     printer role sid signature stylesheet tel templates vclimit angebote bestellungen rechnungen
     anfragen lieferantenbestellungen einkaufsrechnungen taxnumber co_ustid duns menustyle
     template_format default_media default_printer_id copies show_form_details);
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index 2a96bb9a4..09d2007a2 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -3044,19 +3044,6 @@ sub config {
   }
   $countrycodes = "<option>American English\n$countrycodes";
 
-  # use an other input number format than output numberformat
-  # look at Form.pm, sub parse_amount
-  my $in_numberformat = '';
-  $text1 = qq|value="0">| . $locale->text('equal Outputformat');
-  $text2 = qq|value="1">| . $locale->text('1000,00 or 1000.00');
-  @in_nf = ($text1, $text2);
-  foreach $item (@in_nf) {
-    $in_numberformat .=
-      (substr($item, 7, 1) eq $myconfig{in_numberformat})
-      ? "<option selected $item\n"
-      : "<option $item\n";
-  }
-
   foreach $key (keys %{ $form->{IC} }) {
     foreach $accno (sort keys %{ $form->{IC}{$key} }) {
       $myconfig{$key} .=
@@ -3151,10 +3138,6 @@ sub config {
 	  <th align=right>| . $locale->text('Output Number Format') . qq|</th>
 	  <td><select name=numberformat>$numberformat</select></td>
 	</tr>
-	<tr>
-	  <th align=right>| . $locale->text('Input Number Format') . qq|</th>
-	  <td><select name=in_numberformat>$in_numberformat</select></td>
-	</tr>
 
 	<tr>
 	  <th align=right>| . $locale->text('Dropdown Limit') . qq|</th>
diff --git a/locale/de/all b/locale/de/all
index 47007e157..f0d9c2e96 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -22,7 +22,6 @@ $self->{texts} = {
   '*/'                          => '*/',
   '...done'                     => '...fertig',
   '1. Quarter'                  => '1. Quartal',
-  '1000,00 or 1000.00'          => '1000,00 oder 1000.00',
   '2. Quarter'                  => '2. Quartal',
   '3. Quarter'                  => '3. Quartal',
   '4. Quarter'                  => '4. Quartal',
@@ -543,7 +542,6 @@ gestartet',
   'Increase'                    => 'Erhöhen',
   'Individual Items'            => 'Einzelteile',
   'Information'                 => 'Information',
-  'Input Number Format'         => 'Zahlenformat (Eingabe)',
   'Interest Rate'               => 'Zinssatz',
   'Internal Notes'              => 'interne Bemerkungen',
   'International'               => 'Ausland',
@@ -1217,7 +1215,6 @@ gestartet',
   'eMail?'                      => 'eMail?',
   'ea'                          => 'St.',
   'emailed to'                  => 'gemailt an',
-  'equal Outputformat'          => 'wie Ausgabeformat',
   'for Period'                  => 'für den Zeitraum',
   'is already a member!'        => 'ist bereits ein Mitglied!',
   'lead deleted!'               => 'Kundenquelle gelöscht',
diff --git a/locale/de/am b/locale/de/am
index cbf7bd53a..7402a501e 100644
--- a/locale/de/am
+++ b/locale/de/am
@@ -9,7 +9,6 @@ $self->{texts} = {
   '&lt;%skonto_date%&gt; -- Date the payment is due with discount' => '&lt;%skonto_date%&gt; -- Das Datum, bis die Rechnung unter Abzug von Skonto bezahlt werden kann',
   '&lt;%terms_netto%&gt; -- The number of days for full payment' => '&lt;%terms_netto%&gt; -- Die Anzahl Tage, bis die Rechnung in voller H&ouml;he bezahlt werden muss',
   '&lt;%total%&gt; -- Amount payable' => '&lt;%total%&gt; -- Noch zu bezahlender Betrag',
-  '1000,00 or 1000.00'          => '1000,00 oder 1000.00',
   'A unit with this name does already exist.' => 'Eine Einheit mit diesem Namen existiert bereits.',
   'AP'                          => 'Einkauf',
   'AR'                          => 'Verkauf',
@@ -151,7 +150,6 @@ $self->{texts} = {
   'Heading'                     => 'Überschrift',
   'Hide by default'             => 'Standardm&auml;&szlig;ig verstecken',
   'Include in drop-down menus'  => 'In Aufklappmenü aufnehmen',
-  'Input Number Format'         => 'Zahlenformat (Eingabe)',
   'Inventory'                   => 'Inventar',
   'Inventory Account'           => 'Warenbestand',
   'Is this a summary account to record' => 'Buchungskonto in',
@@ -328,7 +326,6 @@ $self->{texts} = {
   'You can use the following strings in the long description and all translations. They will be replaced by their actual values by Lx-Office before they\'re output.' => 'Sie k&ouml;nnen im Langtext und allen Übersetzungen die folgenden Variablen benutzen, die vor der Ausgabe von Lx-Office automatisch ersetzt werden:',
   'dimension units'             => 'Ma&szlig;einheiten',
   'down'                        => 'runter',
-  'equal Outputformat'          => 'wie Ausgabeformat',
   'lead deleted!'               => 'Kundenquelle gelöscht',
   'lead saved!'                 => 'Kundenquelle geichert',
   'service units'               => 'Dienstleistungseinheiten',
-- 
2.20.1