View | Details | Raw Unified | Return to bug 10419
Collapse All | Expand All

(-)a/misc/cronjobs/delete_patrons.pl (-4 / +9 lines)
Lines 9-21 use C4::Members; Link Here
9
use Koha::DateUtils;
9
use Koha::DateUtils;
10
10
11
my ( $help, $verbose, $not_borrowered_since, $expired_before, $category_code,
11
my ( $help, $verbose, $not_borrowered_since, $expired_before, $category_code,
12
    $confirm );
12
    $branchcode, $confirm );
13
GetOptions(
13
GetOptions(
14
    'h|help'                 => \$help,
14
    'h|help'                 => \$help,
15
    'v|verbose'              => \$verbose,
15
    'v|verbose'              => \$verbose,
16
    'not_borrowered_since:s' => \$not_borrowered_since,
16
    'not_borrowered_since:s' => \$not_borrowered_since,
17
    'expired_before:s'       => \$expired_before,
17
    'expired_before:s'       => \$expired_before,
18
    'category_code:s'        => \$category_code,
18
    'category_code:s'        => \$category_code,
19
    'branchcode:s'           => \$branchcode,
19
    'c|confirm'              => \$confirm,
20
    'c|confirm'              => \$confirm,
20
) || pod2usage(1);
21
) || pod2usage(1);
21
22
Lines 29-35 $not_borrowered_since = dt_from_string( $not_borrowered_since, 'iso' ) Link Here
29
$expired_before = dt_from_string( $expired_before, 'iso' )
30
$expired_before = dt_from_string( $expired_before, 'iso' )
30
  if $expired_before;
31
  if $expired_before;
31
32
32
unless ( $not_borrowered_since or $expired_before or $category_code ) {
33
unless ( $not_borrowered_since or $expired_before or $category_code or $branchcode ) {
33
    pod2usage(q{At least one filter is mandatory});
34
    pod2usage(q{At least one filter is mandatory});
34
    exit;
35
    exit;
35
}
36
}
Lines 39-44 my $members = GetBorrowersToExpunge( Link Here
39
        not_borrowered_since => $not_borrowered_since,
40
        not_borrowered_since => $not_borrowered_since,
40
        expired_before       => $expired_before,
41
        expired_before       => $expired_before,
41
        category_code        => $category_code,
42
        category_code        => $category_code,
43
        branchcode           => $branchcode,
42
    }
44
    }
43
);
45
);
44
46
Lines 72-78 delete_patrons - This script deletes patrons Link Here
72
74
73
=head1 SYNOPSIS
75
=head1 SYNOPSIS
74
76
75
delete_patrons.pl [-h -v -c] --not_borrowered_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT
77
delete_patrons.pl [-h -v -c] --not_borrowered_since=2013-07-21 --expired_before=2013-07-21 --category_code=CAT --branchcode=CPL
76
78
77
dates can be generated with `date -d '-3 month' "+%Y-%m-%d"`
79
dates can be generated with `date -d '-3 month' "+%Y-%m-%d"`
78
80
Lines 98-103 Delete patrons with an account expired before this date. Link Here
98
100
99
Delete patrons who have this category code.
101
Delete patrons who have this category code.
100
102
103
=item B<--branchcode>
104
105
Delete patrons in this library.
106
101
=item B<-c|--confirm>
107
=item B<-c|--confirm>
102
108
103
Without this flag set, this script will do nothing.
109
Without this flag set, this script will do nothing.
104
- 

Return to bug 10419