+
+ # 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}) {
+ my $salesman = $self->salesmen_by->{name}->{ $entry->{raw_data}->{salesman} };
+
+ 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;