|
Lines 65-70
statement otherwise.
Link Here
|
| 65 |
|
65 |
|
| 66 |
Optional branchcode to restrict the cronjob to that branch. |
66 |
Optional branchcode to restrict the cronjob to that branch. |
| 67 |
|
67 |
|
|
|
68 |
=item B<-category> |
| 69 |
|
| 70 |
Optional categorycode to restrict the cronjob to that category. |
| 71 |
|
| 68 |
=item B<-before> |
72 |
=item B<-before> |
| 69 |
|
73 |
|
| 70 |
Optional parameter to extend the selection with a number of days BEFORE |
74 |
Optional parameter to extend the selection with a number of days BEFORE |
|
Lines 141-147
my $help = 0;
Link Here
|
| 141 |
my $man = 0; |
145 |
my $man = 0; |
| 142 |
my $before = 0; |
146 |
my $before = 0; |
| 143 |
my $after = 0; |
147 |
my $after = 0; |
| 144 |
my ( $branch, $letter_type ); |
148 |
my ( $branch, $letter_type, $category ); |
| 145 |
|
149 |
|
| 146 |
GetOptions( |
150 |
GetOptions( |
| 147 |
'help|?' => \$help, |
151 |
'help|?' => \$help, |
|
Lines 153-158
GetOptions(
Link Here
|
| 153 |
'before:i' => \$before, |
157 |
'before:i' => \$before, |
| 154 |
'after:i' => \$after, |
158 |
'after:i' => \$after, |
| 155 |
'letter:s' => \$letter_type, |
159 |
'letter:s' => \$letter_type, |
|
|
160 |
'category:s' => \$category, |
| 156 |
) or pod2usage(2); |
161 |
) or pod2usage(2); |
| 157 |
|
162 |
|
| 158 |
pod2usage( -verbose => 2 ) if $man; |
163 |
pod2usage( -verbose => 2 ) if $man; |
|
Lines 168-182
if( !$expdays ) {
Link Here
|
| 168 |
exit; |
173 |
exit; |
| 169 |
} |
174 |
} |
| 170 |
|
175 |
|
|
|
176 |
my $filter = { |
| 177 |
before => $before, |
| 178 |
after => $after, |
| 179 |
}; |
| 180 |
|
| 181 |
if ( $branch ) { |
| 182 |
$filter->{'me.branchcode'} = $branch; |
| 183 |
} |
| 184 |
|
| 185 |
if ( $category ) { |
| 186 |
$filter->{'me.categorycode'} = $category; |
| 187 |
} |
| 188 |
|
| 171 |
my $admin_adress = C4::Context->preference('KohaAdminEmailAddress'); |
189 |
my $admin_adress = C4::Context->preference('KohaAdminEmailAddress'); |
| 172 |
warn 'getting upcoming membership expires' if $verbose; |
190 |
warn 'getting upcoming membership expires' if $verbose; |
| 173 |
my $upcoming_mem_expires = Koha::Patrons->search_upcoming_membership_expires( |
191 |
my $upcoming_mem_expires = Koha::Patrons->search_upcoming_membership_expires($filter); |
| 174 |
{ |
|
|
| 175 |
( $branch ? ( 'me.branchcode' => $branch ) : () ), |
| 176 |
before => $before, |
| 177 |
after => $after, |
| 178 |
} |
| 179 |
); |
| 180 |
warn 'found ' . $upcoming_mem_expires->count . ' soon expiring members' |
192 |
warn 'found ' . $upcoming_mem_expires->count . ' soon expiring members' |
| 181 |
if $verbose; |
193 |
if $verbose; |
| 182 |
|
194 |
|
| 183 |
- |
|
|