Bug 22417: Adapt the batch_record_modification tool

[koha-ffzg.git] / tools / batch_delete_records.pl

diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl
index d1ab80c..d07adf1 100755 (executable)
--- a/tools/batch_delete_records.pl
+++ b/tools/batch_delete_records.pl
@@ -41,7 +41,6 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
         template_name => 'tools/batch_delete_records.tt',
         query => $input,
         type => "intranet",
-        authnotrequired => 0,
         flagsrequired => { tools => 'records_batchdel' },
 });
 
@@ -177,8 +176,8 @@ if ( $op eq 'form' ) {
             # 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',