2 #run nightly -- resets the services throttle
4 use strict; use warnings;
6 # find Koha's Perl modules
7 # test carefully before changing this
9 eval { require "$FindBin::Bin/../kohalib.pl" };
13 my $dbh=C4::Context->dbh;
14 my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'";
15 my $sth=$dbh->prepare($fixit);
16 my $res = $sth->execute() or die "can't execute";
17 print "$res\n"; #did it work?