Die Option "Zahlenformat (Eingabe)" entfernt. Wenn sowohl . als auch , als Dezimaltre...

diff --git a/SL/Form.pm b/SL/Form.pm
index 57bd84b..df17c4b 100644 (file)
--- 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 9fd9e5e..ea95cb1 100644 (file)
--- 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 2a96bb9..09d2007 100644 (file)
--- 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 47007e1..f0d9c2e 100644 (file)
--- 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 cbf7bd5..7402a50 100644 (file)
--- a/locale/de/am
+++ b/locale/de/am
@@ -9,7 +9,6 @@ $self->{texts} = {
   '<%skonto_date%> -- Date the payment is due with discount' => '<%skonto_date%> -- Das Datum, bis die Rechnung unter Abzug von Skonto bezahlt werden kann',
   '<%terms_netto%> -- The number of days for full payment' => '<%terms_netto%> -- Die Anzahl Tage, bis die Rechnung in voller Höhe bezahlt werden muss',
   '<%total%> -- Amount payable' => '<%total%> -- 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äß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önnen im Langtext und allen Übersetzungen die folgenden Variablen benutzen, die vor der Ausgabe von Lx-Office automatisch ersetzt werden:',
   'dimension units'             => 'Maßeinheiten',
   'down'                        => 'runter',
-  'equal Outputformat'          => 'wie Ausgabeformat',
   'lead deleted!'               => 'Kundenquelle gelöscht',
   'lead saved!'                 => 'Kundenquelle geichert',
   'service units'               => 'Dienstleistungseinheiten',