Bug 10419: (follow-up) add branchcode parameter to patron deletion script

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/misc/cronjobs/delete_patrons.pl b/misc/cronjobs/delete_patrons.pl
index 2d869f5..526028b 100755 (executable)
--- a/misc/cronjobs/delete_patrons.pl
+++ b/misc/cronjobs/delete_patrons.pl
@@ -9,13 +9,14 @@ use C4::Members;
 use Koha::DateUtils;
 
 my ( $help, $verbose, $not_borrowered_since, $expired_before, $category_code,
-    $confirm );
+    $branchcode, $confirm );
 GetOptions(
     'h|help'                 => \$help,
     'v|verbose'              => \$verbose,
     'not_borrowered_since:s' => \$not_borrowered_since,
     'expired_before:s'       => \$expired_before,
     'category_code:s'        => \$category_code,
+    'branchcode:s'           => \$branchcode,
     'c|confirm'              => \$confirm,
 ) || pod2usage(1);
 
@@ -29,7 +30,7 @@ $not_borrowered_since = dt_from_string( $not_borrowered_since, 'iso' )
 $expired_before = dt_from_string( $expired_before, 'iso' )
   if $expired_before;
 
-unless ( $not_borrowered_since or $expired_before or $category_code ) {
+unless ( $not_borrowered_since or $expired_before or $category_code or $branchcode ) {
     pod2usage(q{At least one filter is mandatory});
     exit;
 }
@@ -39,6 +40,7 @@ my $members = GetBorrowersToExpunge(
         not_borrowered_since => $not_borrowered_since,
         expired_before       => $expired_before,
         category_code        => $category_code,
+        branchcode           => $branchcode,
     }
 );
 
@@ -72,7 +74,7 @@ delete_patrons - This script deletes patrons
 
 =head1 SYNOPSIS
 
-delete_patrons.pl [-h -v -c] --not_borrowered_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT
+delete_patrons.pl [-h -v -c] --not_borrowered_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT --branchcode=CPL
 
 dates can be generated with `date -d '-3 month' "+%Y-%m-%d"`
 
@@ -98,6 +100,10 @@ Delete patrons with an account expired before this date.
 
 Delete patrons who have this category code.
 
+=item B<--branchcode>
+
+Delete patrons in this library.
+
 =item B<-c|--confirm>
 
 Without this flag set, this script will do nothing.