+sub check_ct_shipto {
+ my ($self, $entry) = @_;
+
+ my $object = $entry->{object};
+
+ # Check wether or not shipto ID is valid.
+ if ($object->shipto_id && !$self->ct_shiptos_by->{shipto_id}->{ $object->shipto_id }) {
+ push @{ $entry->{errors} }, $::locale->text('Error: Invalid shipto');
+ return 0;
+ }
+
+ # Check if the shipto belongs to this customer/vendor.
+ my $trans_id = $object->customer_id || $object->vendor_id;
+ if ($object->shipto_id && $trans_id
+ && !$self->ct_shiptos_by->{'trans_id+shipto_id'}->{ $trans_id . '+' . $object->shipto_id } ) {
+ push @{ $entry->{errors} }, $::locale->text('Error: Invalid shipto for this customer/vendor');
+ return 0;
+ }
+
+ return 1;
+}
+