Bug 29501: Use the default transport

[srvgit] / misc / cronjobs / cart_to_shelf.pl

diff --git a/misc/cronjobs/cart_to_shelf.pl b/misc/cronjobs/cart_to_shelf.pl
index b7ea13a..3c7d12e 100755 (executable)
--- a/misc/cronjobs/cart_to_shelf.pl
+++ b/misc/cronjobs/cart_to_shelf.pl
@@ -28,17 +28,12 @@ cart_to_shelf.pl  cron script to set items with location of CART to original she
 use strict;
 use warnings;
 
-use C4::Items qw/ CartToShelf /;
+use Koha::Script -cron;
+use C4::Items qw( CartToShelf );
+use C4::Log qw( cronlogaction );
 
-BEGIN {
-
-    # find Koha's Perl modules
-    # test carefully before changing this
-    use FindBin;
-    eval { require "$FindBin::Bin/../kohalib.pl" };
-}
 use C4::Context;
-use Getopt::Long;
+use Getopt::Long qw( GetOptions );
 
 my $hours = 0;
 
@@ -63,6 +58,8 @@ unless ($hours) {
     die "ERROR: No --hours (-h) option defined";
 }
 
+cronlogaction();
+
 my $query = "SELECT itemnumber FROM items WHERE location = 'CART' AND TIMESTAMPDIFF(HOUR, items.timestamp, NOW() ) > ?";
 my $sth = C4::Context->dbh->prepare($query);
 $sth->execute($hours);