-my $reserveinfo = GetReserveInfo($borrowernumber,$biblionumber );
-my $pulldate = C4::Dates->new();
-$reserveinfo->{'pulldate'} = $pulldate->output();
-$reserveinfo->{'branchname'} = GetBranchName($reserveinfo->{'branchcode'});
-$reserveinfo->{'transferrequired'} = $transfer;
-
-$template->param( reservedata => [ $reserveinfo ] ,
- );
+my $userenv = C4::Context->userenv;
+my ($slip, $is_html);
+if ( my $letter = ReserveSlip ($session->param('branch') || $userenv->{branch}, $borrowernumber, $biblionumber) ) {
+ $slip = $letter->{content};
+ $is_html = $letter->{is_html};
+}
+else {
+ $slip = "Reserve not found";
+}
+$template->param(
+ slip => $slip,
+ plain => !$is_html,
+ title => "Koha -- Circulation: Transfers",
+ stylesheet => C4::Context->preference("SlipCSS"),
+);