- my $biblio = GetBiblioData($biblionumber);
- my $letter = C4::Letters::getletter( 'reserves', 'HOLDPLACED');
- my $branchcode = $borrower->{branchcode};
- my $branch_details = C4::Branch::GetBranchDetail($branchcode);
- my $admin_email_address =$branch_details->{'branchemail'} || C4::Context->preference('KohaAdminEmailAddress');
-
- my %keys = (%$borrower, %$biblio);
- foreach my $key (keys %keys) {
- my $replacefield = "<<$key>>";
- $letter->{content} =~ s/$replacefield/$keys{$key}/g;
- $letter->{title} =~ s/$replacefield/$keys{$key}/g;
+ my $branch_details = C4::Branch::GetBranchDetail($borrower->{branchcode});
+ if ( my $letter = C4::Letters::GetPreparedLetter (
+ module => 'reserves',
+ letter_code => 'HOLDPLACED',
+ branchcode => $branch,
+ tables => {
+ 'branches' => $branch_details,
+ 'borrowers' => $borrower,
+ 'biblio' => $biblionumber,
+ },
+ ) ) {
+
+ my $admin_email_address =$branch_details->{'branchemail'} || C4::Context->preference('KohaAdminEmailAddress');
+
+ C4::Letters::EnqueueLetter(
+ { letter => $letter,
+ borrowernumber => $borrowernumber,
+ message_transport_type => 'email',
+ from_address => $admin_email_address,
+ to_address => $admin_email_address,
+ }
+ );