misc/cronjobs/holds/build_holds_queue.pl

   1 #!/usr/bin/perl
   2 #-----------------------------------
   3 # Script Name: build_holds_queue.pl
   4 # Description: builds a holds queue in the tmp_holdsqueue table
   5 #-----------------------------------
   6 # FIXME: add command-line options for verbosity and summary
   7 # FIXME: expand perldoc, explain intended logic
   8
   9 use strict;
  10 use warnings;
  11
  12 use Koha::Script -cron;
  13 use C4::HoldsQueue qw(CreateQueue);
  14 use C4::Log qw( cronlogaction );
  15
  16 my $command_line_options = join(" ",@ARGV);
  17 cronlogaction({ info => $command_line_options });
  18
  19 CreateQueue();
  20
  21 cronlogaction({ action => 'End', info => "COMPLETED" });