From 15872ac6e3f5c854b4cb13c8ca8a686d7c25f8fb Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Thu, 29 Jul 2010 14:41:44 +0200 Subject: [PATCH] (bug #4990) fix email link in overdues to have a pre-generated message This fix the link in overdues.pl to have great link with pre-generated emails, they are based on the letter "MANUAL_ODUE" in "circulation" module. --- circ/overdue.pl | 21 ++++++++++++++++++++ .../prog/en/modules/circ/overdue.tmpl | 3 +- 2 files changed, 23 insertions(+), 1 deletions(-) diff --git a/circ/overdue.pl b/circ/overdue.pl index cad8e6d..1ab852a 100755 --- a/circ/overdue.pl +++ b/circ/overdue.pl @@ -199,6 +199,27 @@ if (@patron_attr_filter_loop) { } +# Generate letters + +for my $borrower (@overduedata){ + my $letter = C4::Letters::getletter( 'circulation', 'MANUAL_ODUE' ); + + my $itemscontent; + for my $overdue( @{$borrower->{overdues}} ){ + $itemscontent .= + "$overdue->{title} $overdue->{author} $overdue->{barcode} $overdue->{itemcallnumber} $overdue->{issuedate}\n"; + } + $letter->{content} =~ s/<>/$itemscontent/g; + + C4::Letters::parseletter( $letter, 'borrowers', $borrower->{borrowernumber}); + C4::Letters::parseletter( $letter, 'branches', $borrower->{'branchcode'} ); + + $letter->{content} =~ s/\n/%0D%0A/g; + + $borrower->{letter_content} = $letter->{content}; + $borrower->{letter_title} = $letter->{title}; +} + $template->param( patron_attr_header_loop => [ map { { header => $_->{description} } } grep { ! $_->{isclone} } @patron_attr_filter_loop ], branchloop => GetBranchesLoop($branchfilter, $onlymine), diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl index 5ac278b..8744083 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/circ/overdue.tmpl @@ -116,7 +116,8 @@ "> - [?subject=Overdue: ">email] + [?subject=&body=">email] + () , by -- 1.7.0.4