Revision 63216c48
Von Werner Hahn vor 5 Tagen hinzugefügt
SL/DB/VariantProperty.pm | ||
---|---|---|
19 | 19 |
|
20 | 20 |
__PACKAGE__->meta->initialize; |
21 | 21 |
|
22 |
sub validate { |
|
23 |
my ($self) = @_; |
|
24 |
|
|
25 |
my @errors; |
|
26 |
# critical checks |
|
27 |
push @errors, $::locale->text('The name is missing.') unless $self->{name}; |
|
28 |
push @errors, $::locale->text('The unique name is missing.') unless $self->{unique_name}; |
|
29 |
push @errors, $::locale->text('The abbreviation is missing') unless $self->{abbreviation}; |
|
30 |
return @errors; |
|
31 |
} |
|
32 |
|
|
22 | 33 |
1; |
Auch abrufbar als: Unified diff
VariantProperty: EIgenschaft anlegen