From 168c0a5f71da53e17ff90b9dc1ece9557336314f Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Fri, 22 Feb 2008 16:06:00 +0000
Subject: [PATCH] Bugfix in isblank. (Tip: Benutzt nie split '.' wenn ihr nicht
 wirklich sicher seid was das macht.)

Ausserdem akzeptieren Einkaufsrechnungen jetzt keine leeren Rechnungsnummern mehr, da Einkaufsrechnungen immer unter der Rechnungsnummer des Lieferanten abgespeichert werden.
---
 SL/Form.pm        | 2 +-
 bin/mozilla/ir.pl | 5 +++--
 locale/de/all     | 1 +
 locale/de/ir      | 1 +
 4 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index ab4d1796b..552738c98 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -471,7 +471,7 @@ sub isblank {
   my ($self, $name, $msg) = @_;
 
   my $curr = $self;
-  foreach my $part (split '.', $name) {
+  foreach my $part (split /\./, $name) {
     if (!$curr->{$part} || ($curr->{$part} =~ /^\s*$/)) {
       $self->error($msg);
     }
diff --git a/bin/mozilla/ir.pl b/bin/mozilla/ir.pl
index 239a85942..90ebbfd65 100644
--- a/bin/mozilla/ir.pl
+++ b/bin/mozilla/ir.pl
@@ -1081,8 +1081,9 @@ sub post {
 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
-  $form->isblank("invdate", $locale->text('Invoice Date missing!'));
-  $form->isblank("vendor",  $locale->text('Vendor missing!'));
+  $form->isblank("invdate",   $locale->text('Invoice Date missing!'));
+  $form->isblank("vendor",    $locale->text('Vendor missing!'));
+  $form->isblank("invnumber", $locale->text('Invnumber missing!'));
 
   $form->{invnumber} =~ s/^\s*//g;
   $form->{invnumber} =~ s/\s*$//g;
diff --git a/locale/de/all b/locale/de/all
index 0eff5bdfc..97485a172 100644
--- a/locale/de/all
+++ b/locale/de/all
@@ -740,6 +740,7 @@ aktualisieren wollen?',
   'Inventory quantity must be zero before you can set this part obsolete!' => 'Bevor diese Ware als ungültig markiert werden kann, muß das Inventar Null sein!',
   'Invno.'                      => 'Rg. Nr.',
   'Invnumber'                   => 'Rechnungsnummer',
+  'Invnumber missing!'          => 'Rechnungsnummer fehlt!',
   'Invoice'                     => 'Rechnung',
   'Invoice (one letter abbreviation)' => 'R',
   'Invoice Date'                => 'Rechnungsdatum',
diff --git a/locale/de/ir b/locale/de/ir
index 38a754c89..799163476 100644
--- a/locale/de/ir
+++ b/locale/de/ir
@@ -112,6 +112,7 @@ $self->{texts} = {
   'History'                     => 'Historie',
   'In-line'                     => 'im Text',
   'Internal Notes'              => 'interne Bemerkungen',
+  'Invnumber missing!'          => 'Rechnungsnummer fehlt!',
   'Invoice'                     => 'Rechnung',
   'Invoice Date'                => 'Rechnungsdatum',
   'Invoice Date missing!'       => 'Rechnungsdatum fehlt!',
-- 
2.20.1