diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_delete_records.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_delete_records.tt
index 82d3e725da..4b33b1d42c 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_delete_records.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_delete_records.tt
@@ -71,6 +71,21 @@
           <li><label for="uploadfile">File: </label> <input type="file" id="uploadfile" name="uploadfile" /></li>
         </ol>
       </fieldset>
+      <fieldset class="rows" id="shelves">
+        <legend>Or select a list of records</legend>
+        <ol>
+          <li>
+            <label for="shelf_number">Use records from the following list: </label>
+            <select name="shelf_number" id="shelf_number">
+              <option value="">Select a list</option>
+                [% FOREACH list IN lists %]
+                  <option value="[% list.shelfnumber %]">[% list.shelfname %]</option>
+                [% END %]
+              </option>
+            </select>
+          </li>
+        </ol>
+      </fieldset>
       <fieldset class="rows">
         <legend>Or enter a list of record numbers</legend>
         <ol>
@@ -190,6 +205,13 @@
     <script>
         var MSG_CANNOT_BE_DELETED = _("This record cannot be deleted, at least one item is currently checked out.");
         $(document).ready(function() {
+          $("input[type='radio']").click(function(){
+            if ($(this).attr('id') == 'authority_type') {
+              $("#shelves").hide();
+            } else if ($(this).attr('id') == 'biblio_type') {
+              $("#shelves").show();
+            }
+          });
           $("#selectall").click(function(e){
             e.preventDefault();
             $(".records").checkCheckboxes(":input[type='checkbox']:not(:disabled)");
diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_record_modification.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_record_modification.tt
index 7928185e24..3bdea3ad9e 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_record_modification.tt
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/batch_record_modification.tt
@@ -75,6 +75,21 @@
           <li><label for="uploadfile">File: </label> <input type="file" id="uploadfile" name="uploadfile" /></li>
         </ol>
       </fieldset>
+      <fieldset class="rows" id="shelves">
+        <legend>Or select a list of records</legend>
+        <ol>
+          <li>
+            <label for="shelf_number">Use records from the following list: </label>
+            <select name="shelf_number" id="shelf_number">
+              <option value="">Select a list</option>
+                [% FOREACH list IN lists %]
+                  <option value="[% list.shelfnumber %]">[% list.shelfname %]</option>
+                [% END %]
+              </option>
+            </select>
+          </li>
+        </ol>
+      </fieldset>
       <fieldset class="rows">
         <legend>Or enter a list of record numbers</legend>
         <ol>
@@ -247,6 +262,13 @@
     [% Asset.js("js/background-job-progressbar.js") | $raw %]
     <script>
         $(document).ready(function() {
+          $("input[type='radio']").click(function(){
+            if ($(this).attr('id') == 'authority_type') {
+              $("#shelves").hide();
+            } else if ($(this).attr('id') == 'biblio_type') {
+              $("#shelves").show();
+            }
+          });
           $("#selectall").click(function(e){
             e.preventDefault();
             $(".records").checkCheckboxes();
diff --git a/tools/batch_delete_records.pl b/tools/batch_delete_records.pl
index 0194c5dcc3..c8d0566f76 100755
--- a/tools/batch_delete_records.pl
+++ b/tools/batch_delete_records.pl
@@ -27,6 +27,7 @@ use C4::Auth;
 use C4::Output;
 use C4::AuthoritiesMarc;
 use C4::Biblio;
+use Koha::Virtualshelves;
 
 use Koha::Authorities;
 use Koha::Biblios;
@@ -44,6 +45,9 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
         flagsrequired => { tools => 'records_batchdel' },
 });
 
+my @lists = Koha::Virtualshelves->search({});
+$template->param( lists => \@lists );
+
 my @records;
 my @messages;
 if ( $op eq 'form' ) {
@@ -64,6 +68,13 @@ if ( $op eq 'form' ) {
             $content =~ s/[\r\n]*$//;
             push @record_ids, $content if $content;
         }
+    } elsif ( my $shelf_number = $input->param('shelf_number') ) {
+        my $shelf = Koha::Virtualshelves->find($shelf_number);
+        my $contents = $shelf->get_contents;
+        while ( my $content = $contents->next ) {
+            my $biblionumber = $content->biblionumber;
+            push @record_ids, $biblionumber;
+        }
     } else {
         # The user enters manually the list of id
         push @record_ids, split( /\s\n/, $input->param('recordnumber_list') );
diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl
index 2b7608469b..b6f65f3ad4 100755
--- a/tools/batch_record_modification.pl
+++ b/tools/batch_record_modification.pl
@@ -32,6 +32,7 @@ use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModifica
 
 use Koha::Biblios;
 use Koha::MetadataRecord::Authority;
+use Koha::Virtualshelves;
 
 my $input = new CGI;
 our $dbh = C4::Context->dbh;
@@ -68,6 +69,9 @@ if ( $completedJobID ) {
     exit;
 }
 
+my @lists = Koha::Virtualshelves->search({});
+$template->param( lists => \@lists );
+
 my @templates = GetModificationTemplates( $mmtid );
 unless ( @templates ) {
     $op = 'error';
@@ -111,6 +115,13 @@ if ( $op eq 'form' ) {
             $content =~ s/[\r\n]*$//;
             push @record_ids, $content if $content;
         }
+    } elsif ( my $shelf_number = $input->param('shelf_number') ) {
+        my $shelf = Koha::Virtualshelves->find($shelf_number);
+        my $contents = $shelf->get_contents;
+        while ( my $content = $contents->next ) {
+            my $biblionumber = $content->biblionumber;
+            push @record_ids, $biblionumber;
+        }
     } else {
         # The user enters manually the list of id
         push @record_ids, split( /\s\n/, $input->param('recordnumber_list') );