- my $itemnumber = $item->itemnumber();
-
- my $error = $test ? "Test mode enabled" : DelItemCheck( $biblionumber, $itemnumber );
- $error = undef if $error eq '1';
-
- if ($error) {
- say "ERROR DELETING ITEM $itemnumber: $error";
+ my $itemnumber = $item->itemnumber;
+
+ if( $test ){
+ my $deleted = $item->safe_to_delete;
+ if ( $deleted ) {
+ say "TEST MODE: Item $itemnumber would have been deleted";
+ } else {
+ my $error = @{$deleted->messages}[0]->message;
+ say "TEST MODE: ERROR DELETING ITEM $itemnumber: $error";
+ }
+ } else {
+ my $deleted = $item->safe_to_delete;
+ if ( $deleted ) {
+ say "DELETED ITEM $itemnumber" if $verbose;
+ $deleted_items_count++;
+ } else {
+ my $error = @{$deleted->messages}[0]->message;
+ say "ERROR DELETING ITEM $itemnumber: $error";
+ }