-sub check_packing_type {
- my ($self, $entry) = @_;
-
- my $object = $entry->{object};
-
- # Check whether or not packing type ID is valid.
- if ($object->packing_type_id && !$self->packing_types_by->{id}->{ $object->packing_type_id }) {
- push @{ $entry->{errors} }, $::locale->text('Error: Invalid packing type');
- return 0;
- }
-
- # Map name to ID if given.
- if (!$object->packing_type_id && $entry->{raw_data}->{packing_type}) {
- my $type = $self->packing_types_by->{description}->{ $entry->{raw_data}->{packing_type} };
-
- if (!$type) {
- push @{ $entry->{errors} }, $::locale->text('Error: Invalid packing type');
- return 0;
- }
-
- $object->packing_type_id($type->id);
- }
-
- return 1;
-}
-