|
Lines 199-204
if (@patron_attr_filter_loop) {
Link Here
|
| 199 |
} |
199 |
} |
| 200 |
|
200 |
|
| 201 |
|
201 |
|
|
|
202 |
# Generate letters |
| 203 |
|
| 204 |
for my $borrower (@overduedata){ |
| 205 |
my $letter = C4::Letters::getletter( 'circulation', 'MANUAL_ODUE' ); |
| 206 |
|
| 207 |
my $itemscontent; |
| 208 |
for my $overdue( @{$borrower->{overdues}} ){ |
| 209 |
$itemscontent .= |
| 210 |
"$overdue->{title} $overdue->{author} $overdue->{barcode} $overdue->{itemcallnumber} $overdue->{issuedate}\n"; |
| 211 |
} |
| 212 |
$letter->{content} =~ s/<<items.content>>/$itemscontent/g; |
| 213 |
|
| 214 |
C4::Letters::parseletter( $letter, 'borrowers', $borrower->{borrowernumber}); |
| 215 |
C4::Letters::parseletter( $letter, 'branches', $borrower->{'branchcode'} ); |
| 216 |
|
| 217 |
$letter->{content} =~ s/\n/%0D%0A/g; |
| 218 |
|
| 219 |
$borrower->{letter_content} = $letter->{content}; |
| 220 |
$borrower->{letter_title} = $letter->{title}; |
| 221 |
} |
| 222 |
|
| 202 |
$template->param( |
223 |
$template->param( |
| 203 |
patron_attr_header_loop => [ map { { header => $_->{description} } } grep { ! $_->{isclone} } @patron_attr_filter_loop ], |
224 |
patron_attr_header_loop => [ map { { header => $_->{description} } } grep { ! $_->{isclone} } @patron_attr_filter_loop ], |
| 204 |
branchloop => GetBranchesLoop($branchfilter, $onlymine), |
225 |
branchloop => GetBranchesLoop($branchfilter, $onlymine), |