ffzg/recall_notices.pl: added --interval and --dedup

[koha.git] / tools / batch_record_modification.pl

diff --git a/tools/batch_record_modification.pl b/tools/batch_record_modification.pl
index b6f65f3..1a82c47 100755 (executable)
--- a/tools/batch_record_modification.pl
+++ b/tools/batch_record_modification.pl
@@ -69,8 +69,7 @@ if ( $completedJobID ) {
     exit;
 }
 
-my @lists = Koha::Virtualshelves->search({});
-$template->param( lists => \@lists );
+$template->param( lists => scalar Koha::Virtualshelves->search([{ category => 1, owner => $loggedinuser }, { category => 2 }]) );
 
 my @templates = GetModificationTemplates( $mmtid );
 unless ( @templates ) {