adding xisbn support
[koha.git] / misc / cronjobs / services_throttle.pl
1 #!/usr/bin/perl
2 #run nightly -- resets the services throttle
3
4 use strict; use warnings;
5
6 use C4::Context;
7 my $dbh=C4::Context->dbh;
8 my $fixit="UPDATE services_throttle SET service_count=0 WHERE service_type='xisbn'";
9 my $sth=$dbh->prepare($fixit);
10 my $res = $sth->execute() or die "can't execute";
11 print "$res\n"; #did it work?
12 $dbh->disconnect();