From 3dde15a00a06d4e5b95fc117fc97f73f37d39982 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Tue, 13 Aug 2013 12:47:14 +0200 Subject: [PATCH] [SIGNED-OFF] Bug 10419: FIX hardcoded records and pod Signed-off-by: Jonathan Druart Signed-off-by: Bernardo Gonzalez Kriegel Missing a sign. Removes harcoded values --- misc/cronjobs/delete_patrons.pl | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl index 119ac1c..cc47b7a 100755 --- a/misc/cronjobs/delete_patrons.pl +++ b/misc/cronjobs/delete_patrons.pl @@ -56,8 +56,6 @@ my $dbh = C4::Context->dbh; $dbh->{RaiseError} = 1; $dbh->{PrintError} = 0; -@$members = ( { borrowernumber => 19 } ); - $dbh->{AutoCommit} = 0; # use transactions to avoid partial deletes for my $member (@$members) { print "Trying to delete patron $member->{borrowernumber}... " @@ -96,7 +94,7 @@ delete_patrons - This script deletes patrons =head1 SYNOPSIS -delete_patrons.pl [-h -v -c] --not_borrowed_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT --branchcode=CPL +delete_patrons.pl [-h -v -c] --not_borrowed_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT --library=CPL dates can be generated with `date -d '-3 month' "+%Y-%m-%d"` @@ -122,7 +120,7 @@ Delete patrons with an account expired before this date. Delete patrons who have this category code. -=item B<--branchcode> +=item B<--library> Delete patrons in this library. -- 1.7.9.5