template_name => 'tools/batch_delete_records.tt',
query => $input,
type => "intranet",
- authnotrequired => 0,
flagsrequired => { tools => 'records_batchdel' },
});
# Delete items
my $items = Koha::Items->search({ biblionumber => $biblionumber });
while ( my $item = $items->next ) {
- my $error = eval { $item->safe_delete };
- if ( $error ne '1' or $@ ) {
+ my $deleted_item = eval { $item->safe_delete };
+ if ( !ref($deleted_item) or $@ ) {
push @messages, {
type => 'error',
code => 'item_not_deleted',
biblionumber => $biblionumber,
- itemnumber => $itemnumber,
+ itemnumber => $item->itemnumber,
error => ($@ ? $@ : $error),
};
$schema->storage->txn_rollback;