|
Lines 64-69
my $borrower_dateexpiry =
Link Here
|
| 64 |
$params->{borrower_dateexpiry} |
64 |
$params->{borrower_dateexpiry} |
| 65 |
? dt_from_string $params->{borrower_dateexpiry} |
65 |
? dt_from_string $params->{borrower_dateexpiry} |
| 66 |
: undef; |
66 |
: undef; |
|
|
67 |
my $borrower_lastseen = |
| 68 |
$params->{borrower_lastseen} |
| 69 |
? dt_from_string $params->{borrower_lastseen} |
| 70 |
: undef; |
| 67 |
my $patron_list_id = $params->{patron_list_id}; |
71 |
my $patron_list_id = $params->{patron_list_id}; |
| 68 |
|
72 |
|
| 69 |
my $borrower_categorycode = $params->{'borrower_categorycode'} || q{}; |
73 |
my $borrower_categorycode = $params->{'borrower_categorycode'} || q{}; |
|
Lines 92-97
if ( $step == 2 ) {
Link Here
|
| 92 |
_get_selection_params( |
96 |
_get_selection_params( |
| 93 |
$not_borrowed_since, |
97 |
$not_borrowed_since, |
| 94 |
$borrower_dateexpiry, |
98 |
$borrower_dateexpiry, |
|
|
99 |
$borrower_lastseen, |
| 95 |
$borrower_categorycode, |
100 |
$borrower_categorycode, |
| 96 |
$patron_list_id, |
101 |
$patron_list_id, |
| 97 |
$branch |
102 |
$branch |
|
Lines 128-133
elsif ( $step == 3 ) {
Link Here
|
| 128 |
_get_selection_params( |
133 |
_get_selection_params( |
| 129 |
$not_borrowed_since, |
134 |
$not_borrowed_since, |
| 130 |
$borrower_dateexpiry, |
135 |
$borrower_dateexpiry, |
|
|
136 |
$borrower_lastseen, |
| 131 |
$borrower_categorycode, |
137 |
$borrower_categorycode, |
| 132 |
$patron_list_id, |
138 |
$patron_list_id, |
| 133 |
$branch |
139 |
$branch |
|
Lines 179-184
$template->param(
Link Here
|
| 179 |
step => $step, |
185 |
step => $step, |
| 180 |
not_borrowed_since => $not_borrowed_since, |
186 |
not_borrowed_since => $not_borrowed_since, |
| 181 |
borrower_dateexpiry => $borrower_dateexpiry, |
187 |
borrower_dateexpiry => $borrower_dateexpiry, |
|
|
188 |
borrower_lastseen => $borrower_lastseen, |
| 182 |
last_issue_date => $last_issue_date, |
189 |
last_issue_date => $last_issue_date, |
| 183 |
borrower_categorycodes => $patron_categories, |
190 |
borrower_categorycodes => $patron_categories, |
| 184 |
borrower_categorycode => $borrower_categorycode, |
191 |
borrower_categorycode => $borrower_categorycode, |
|
Lines 197-203
sub _skip_borrowers_with_nonzero_balance {
Link Here
|
| 197 |
} |
204 |
} |
| 198 |
|
205 |
|
| 199 |
sub _get_selection_params { |
206 |
sub _get_selection_params { |
| 200 |
my ($not_borrowed_since, $borrower_dateexpiry, |
207 |
my ($not_borrowed_since, $borrower_dateexpiry, $borrower_lastseen, |
| 201 |
$borrower_categorycode, $patron_list_id, $branch) = @_; |
208 |
$borrower_categorycode, $patron_list_id, $branch) = @_; |
| 202 |
|
209 |
|
| 203 |
my $params = {}; |
210 |
my $params = {}; |
|
Lines 211-216
sub _get_selection_params {
Link Here
|
| 211 |
dateformat => 'iso', |
218 |
dateformat => 'iso', |
| 212 |
dateonly => 1 |
219 |
dateonly => 1 |
| 213 |
}) if $borrower_dateexpiry; |
220 |
}) if $borrower_dateexpiry; |
|
|
221 |
$params->{last_seen} = output_pref({ |
| 222 |
dt => $borrower_lastseen, |
| 223 |
dateformat => 'iso', |
| 224 |
dateonly => 1 |
| 225 |
}) if $borrower_lastseen; |
| 214 |
$params->{category_code} = $borrower_categorycode if $borrower_categorycode; |
226 |
$params->{category_code} = $borrower_categorycode if $borrower_categorycode; |
| 215 |
$params->{patron_list_id} = $patron_list_id if $patron_list_id; |
227 |
$params->{patron_list_id} = $patron_list_id if $patron_list_id; |
| 216 |
|
228 |
|
| 217 |
- |
|
|