Attachment #102772 for bug #23571

View | Details | Raw Unified | Return to bug 23571
Collapse All | Expand All




use Getopt::Long;
use Carp;
use File::Spec;
use Try::Tiny;

use Koha::Calendar;
use Koha::DateUtils;

    exit;
}

my $script_handler = Koha::Scrip->new(
   {
       script   => $0,
       use_lock => 1
   }
);

try {
    $script_handler->lock_exec;
}
catch {
    my $message = "Skipping execution of $0 ($_)";
    print STDERR $message
        if $verbose;
    cronlogaction( $message );
    exit;
}

cronlogaction();

my @borrower_fields =
- 

Return to bug 23571

Lines 36-41 use C4::Overdues; Link Here

(-)a/misc/cronjobs/fines.pl (-1 / +19 lines)
36	use Getopt::Long;	36	use Getopt::Long;
37	use Carp;	37	use Carp;
38	use File::Spec;	38	use File::Spec;
		39	use Try::Tiny;
39		40
40	use Koha::Calendar;	41	use Koha::Calendar;
41	use Koha::DateUtils;	42	use Koha::DateUtils;
Lines 76-81 if ($help) { Link Here
76	exit;	77	exit;
77	}	78	}
78		79
		80	my $script_handler = Koha::Scrip->new(
		81	{
		82	script => $0,
		83	use_lock => 1
		84	}
		85	);
		86
		87	try {
		88	$script_handler->lock_exec;
		89	}
		90	catch {
		91	my $message = "Skipping execution of $0 ($_)";
		92	print STDERR $message
		93	if $verbose;
		94	cronlogaction( $message );
		95	exit;
		96	}
		97
79	cronlogaction();	98	cronlogaction();
80		99
81	my @borrower_fields =	100	my @borrower_fields =
82	-