kivitendo/SL/DB/Business.pm @ 31b1b2c2
| 82515b2d | Sven Schöling | package SL::DB::Business;
|
||
use strict;
|
||||
use SL::DB::MetaSetup::Business;
|
||||
| 508801bb | Moritz Bunkus | use SL::DB::Manager::Business;
|
||
sub validate {
|
||||
my ($self) = @_;
|
||||
my @errors;
|
||||
push @errors, $::locale->text('The description is missing.') if !$self->description;
|
||||
push @errors, $::locale->text('The discount must not be negative.') if $self->discount < 0;
|
||||
push @errors, $::locale->text('The discount must be less than 100%.') if $self->discount >= 1;
|
||||
| 82515b2d | Sven Schöling | |||
| 508801bb | Moritz Bunkus | return @errors;
|
||
}
|
||||
| 82515b2d | Sven Schöling | |||
1;
|