#!/usr/bin/perl
# ---------------------------------------------------------------------
-# Fine generator with default grace period param.
-# ./object_dumper.pl <bootstrap_config> <lockfile> <grace (default 0)>
+# Fine generator
+# ./fine_generator.pl <bootstrap_config> <lockfile>
# ---------------------------------------------------------------------
use strict;
my $lockfile = shift || "/tmp/generate_fines-LOCK";
my $grace = shift;
-$grace = '' if (!defined($grace) or $grace == 0);
+if (defined($grace)) {
+ die "Grace period is now defined in the database. It should not be passed to the fine generator.";
+}
if (-e $lockfile) {
open(F,$lockfile);
my $r = OpenSRF::AppSession
->create( 'open-ils.storage' )
- ->request( 'open-ils.storage.action.circulation.overdue.generate_fines' => $grace );
+ ->request( 'open-ils.storage.action.circulation.overdue.generate_fines' );
while (!$r->complete) { $r->recv };
);
my $storage = OpenSRF::AppSession->create("open-ils.storage");
- my $r = $storage->request('open-ils.storage.action.circulation.overdue.id_list', $grace);
+ my $r = $storage->request('open-ils.storage.action.circulation.overdue.id_list');
while (my $resp = $r->recv) {
my $circ_id = $resp->content;
- $multi_generator->request( 'open-ils.storage.action.circulation.overdue.generate_fines', $grace, $circ_id );
+ $multi_generator->request( 'open-ils.storage.action.circulation.overdue.generate_fines', $circ_id );
}
$storage->disconnect();
$multi_generator->session_wait(1);