if( my $e = $self->check_checkin_copy_status() ) {
# If the original copy status is special, alert the caller
- return $self->bail_on_events($e);
+ my $ev = $self->events;
+ $self->events([$e]);
+ $self->override_events;
+ return if $self->bail_out;
+ $self->events($ev);
}
sub checkin_flesh_events {
my $self = shift;
+ if( grep { $_->{textcode} eq 'SUCCESS' } @{$self->events}
+ and grep { $_->{textcode} eq 'ITEM_NOT_CATALOGED' } @{$self->events} ) {
+ $self->events([grep { $_->{textcode} eq 'ITEM_NOT_CATALOGED' } @{$self->events}]);
+ }
+
+
for my $evt (@{$self->events}) {
my $payload = {};