+
+ # register business_id for method copying later
+ $self->clone_methods->{business_id} = 1;
+ }
+
+ return 1;
+}
+
+sub check_salesman {
+ my ($self, $entry) = @_;
+
+ my $object = $entry->{object};
+
+ # Check whether or not salesman ID is valid.
+ if ($object->salesman_id && !$self->salesmen_by->{id}->{ $object->salesman_id }) {
+ push @{ $entry->{errors} }, $::locale->text('Error: Invalid salesman');
+ return 0;
+ }
+
+ # Map name to ID if given.
+ if (!$object->salesman_id && ($entry->{raw_data}->{salesman} || $entry->{raw_data}->{salesman_login})) {
+ my $salesman = $self->salesmen_by->{name} ->{ lc($entry->{raw_data}->{salesman}) }
+ // $self->salesmen_by->{login}->{ lc($entry->{raw_data}->{salesman_login}) };
+
+ if (!$salesman) {
+ push @{ $entry->{errors} }, $::locale->text('Error: Invalid salesman');
+ return 0;
+ }
+
+ $object->salesman_id($salesman->id);
+
+ # register salesman_id for method copying later
+ $self->clone_methods->{salesman_id} = 1;