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 BEGIN {
  12     # find Koha's Perl modules
  13     # test carefully before changing this
  14     use FindBin;
  15     eval { require "$FindBin::Bin/../kohalib.pl" };
  16 }
  17
  18 use Koha::Script -cron;
  19 use C4::HoldsQueue qw(CreateQueue);
  20 use C4::Log;
  21
  22 cronlogaction();
  23
  24 CreateQueue();
  25