Lines 99-118
foreach my $m (@metadatas) {
Link Here
|
99 |
foreach my $item ( @items ) { |
99 |
foreach my $item ( @items ) { |
100 |
my $itemnumber = $item->itemnumber; |
100 |
my $itemnumber = $item->itemnumber; |
101 |
|
101 |
|
102 |
my $error = $test ? "Test mode enabled" : $item->safe_delete; |
102 |
if( $test ){ |
103 |
$error = undef if $error eq '1'; |
103 |
my $result = $item->safe_to_delete; |
104 |
|
104 |
if ( $result eq "1") { |
105 |
if ($error) { |
105 |
say "TEST MODE: Item $itemnumber would have been deleted"; |
106 |
say "ERROR DELETING ITEM $itemnumber: $error"; |
106 |
} else { |
107 |
} |
107 |
say "TEST MODE: ERROR DELETING ITEM $itemnumber: $result"; |
108 |
else { |
108 |
} |
109 |
say "DELETED ITEM $itemnumber" if $verbose; |
109 |
} else { |
110 |
$deleted_items_count++; |
110 |
my $result = $item->safe_delete; |
|
|
111 |
if ( ref $result eq "Koha::Item" ){ |
112 |
say "DELETED ITEM $itemnumber" if $verbose; |
113 |
$deleted_items_count++; |
114 |
} else { |
115 |
say "ERROR DELETING ITEM $itemnumber: $result"; |
116 |
} |
111 |
} |
117 |
} |
112 |
|
|
|
113 |
$total_items_count++; |
118 |
$total_items_count++; |
114 |
} |
119 |
} |
115 |
|
|
|
116 |
} |
120 |
} |
117 |
|
121 |
|
118 |
my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber); |
122 |
my $error = $test ? q{Test mode enabled} : DelBiblio($biblionumber); |
119 |
- |
|
|