Bugfix in isblank. (Tip: Benutzt nie split '.' wenn ihr nicht wirklich sicher seid...

Ausserdem akzeptieren Einkaufsrechnungen jetzt keine leeren Rechnungsnummern mehr, da Einkaufsrechnungen immer unter der Rechnungsnummer des Lieferanten abgespeichert werden.

diff --git a/SL/Form.pm b/SL/Form.pm
index ab4d179..552738c 100644 (file)
--- 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 239a859..90ebbfd 100644 (file)
--- 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 0eff5bd..97485a1 100644 (file)
--- 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 38a754c..7991634 100644 (file)
--- 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!',