[Koha-patches] [PATCH] BUG #3246 Enhancement - Modify news to be able to have scheduled receipt slip messages

[Darrell Ulm]

---
 members/moremember.pl |   10 ++++++++++
 1 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/members/moremember.pl b/members/moremember.pl
index d51bd6b..7af0707 100755
--- a/members/moremember.pl
+++ b/members/moremember.pl
@@ -48,6 +48,7 @@ use C4::Biblio;
 use C4::Reserves;
 use C4::Branch; # GetBranchName
 use C4::Form::MessagingPreferences;
+use C4::NewsChannels; #get slip news
 
 #use Smart::Comments;
 #use Data::Dumper;
@@ -383,4 +384,13 @@ $template->param(
     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
+);
+
 output_html_with_http_headers $input, $cookie, $template->output;
-- 
1.5.6.5