- DHTMLcalendar_dateformat=>C4::Dates->DHTMLcalendar(),
- roaddetails => $roaddetails,
- borrowernumber => $borrowernumber,
- categoryname => $data->{'description'},
- reregistration => $reregistration,
- branch => $branch,
- totalprice => sprintf( "%.2f", $totalprice ),
- totaldue => sprintf( "%.2f", $total ),
- issueloop => \@issuedata,
- overdues_exist => $overdues_exist,
- unvalidlibrarian => $unvalidlibrarian,
- error => $error,
- $error => 1,
- StaffMember => ($category_type eq 'S'),
- is_child => ($category_type eq 'C'),
- # reserveloop => \@reservedata,
- dateformat => C4::Context->preference("dateformat"),
+ DHTMLcalendar_dateformat => C4::Dates->DHTMLcalendar(),
+ CANDELETEUSER => $candeleteuser,
+ roaddetails => $roaddetails,
+ borrowernumber => $borrowernumber,
+ categoryname => $data->{'description'},
+ reregistration => $reregistration,
+ branch => $branch,
+ todaysdate => C4::Dates->today(),
+ totalprice => sprintf("%.2f", $totalprice),
+ totaldue => sprintf("%.2f", $total),
+ totaldue_raw => $total,
+ issueloop => \@issuedata,
+ issuecount => $issuecount,
+ overdues_exist => $overdues_exist,
+ error => $error,
+ $error => 1,
+ StaffMember => ($category_type eq 'S'),
+ is_child => ($category_type eq 'C'),
+# reserveloop => \@reservedata,
+ dateformat => C4::Context->preference("dateformat"),
+ "dateformat_" . (C4::Context->preference("dateformat") || '') => 1,
+ samebranch => $samebranch,
+ quickslip => $quickslip,
+);
+
+#Get the slip news items
+my $all_koha_news = &GetNewsToDisplay("slip");
+my $koha_news_count = scalar @$all_koha_news;
+
+$template->param(
+ koha_news => $all_koha_news,
+ koha_news_count => $koha_news_count