Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 23 lines (18 sloc) 650 Bytes
#!/usr/bin/env perl
# run nightly -- resets the xisbn services throttle
use strict;
use warnings;
# find Koha's Perl modules
# test carefully before changing this
use FindBin;
eval { require "$FindBin::Bin/../" };
use Koha;
use C4::Context;
my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'";
my $sth = C4::Context->dbh->prepare($fixit);
my $res = $sth->execute() or die "cannot execute query: $fixit";
# There is no need to return anything if we succeeded,
# and the die message (or other more internal Context/mysql error)
# will get emailed to the cron user if we didn't.
Something went wrong with that request. Please try again.