Revision 168c0a5f
Von Sven Schöling vor mehr als 16 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 471 | 471 |
my ($self, $name, $msg) = @_; |
| 472 | 472 |
|
| 473 | 473 |
my $curr = $self; |
| 474 |
foreach my $part (split '.', $name) {
|
|
| 474 |
foreach my $part (split /\./, $name) {
|
|
| 475 | 475 |
if (!$curr->{$part} || ($curr->{$part} =~ /^\s*$/)) {
|
| 476 | 476 |
$self->error($msg); |
| 477 | 477 |
} |
Auch abrufbar als: Unified diff
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.