From 2ce951025e6de2b33760186de3b3c6a89fb94b93 Mon Sep 17 00:00:00 2001
From: Martin Persson <xarragon@gmail.com>
Date: Mon, 14 Dec 2015 22:18:18 +0100
Subject: [PATCH] Bug 14272: OPAC show single news

This change makes the news shown on opac-main-pl have
clickable headings which shows just that news item in isolation.
This is to allow further patches that adds commentary functions.

Sponsored-By: Halland County Library

Test plan:
  * Apply this patch.
  * Go to OPAC main, you should see multiple news items by default.
    * If you do not see any, go to Staff interface and add a few.
  * Each nes item heading should be clickable.
  * When clicked only that item should be shown.
    * The URL should contain a new parameter named 'id'.
    * When 'id' is present, only a single news item should show.
---
 koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-main.tt |  2 +-
 opac/opac-main.pl                                     | 12 ++++++++++--
 2 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-main.tt b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-main.tt
index 7e51a94..53359ef 100644
--- a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-main.tt
+++ b/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-main.tt
@@ -43,7 +43,7 @@
                 [% SET newsdisp = ( Koha.Preference('NewsAuthorDisplay') ) %]
                 [% FOREACH koha_new IN koha_news %]
                     <div class="newsitem">
-                        <a name="newsitem[% koha_new.idnew %]"></a><h4 class="newsheader">[% koha_new.title %]</h4>
+                        <a name="newsitem[% koha_new.idnew %]" href="/cgi-bin/koha/opac-main.pl?id=[% koha_new.idnew%]"><h4 class="newsheader">[% koha_new.title %]</h4></a>
                         <div class="newsbody">[% koha_new.new %]</div>
                         <div class="newsfooter">(published on [% koha_new.newdate %][% IF ( (newsdisp == 'opac' || newsdisp == 'both') && koha_new.borrowernumber ) %] by <span class="newsauthor_title">[% koha_new.author_title %] </span>[% koha_new.author_firstname %] [% koha_new.author_surname %][% END %])</div>
                     </div>
diff --git a/opac/opac-main.pl b/opac/opac-main.pl
index b0904c5..7b70d0b 100755
--- a/opac/opac-main.pl
+++ b/opac/opac-main.pl
@@ -51,8 +51,16 @@ my $homebranch;
 if (C4::Context->userenv) {
     $homebranch = C4::Context->userenv->{'branch'};
 }
-my $all_koha_news   = &GetNewsToDisplay($news_lang,$homebranch);
-my $koha_news_count = scalar @$all_koha_news;
+
+my $id = $input->param('id');
+my ($all_koha_news, $koha_news_count);
+if (defined $id && length $id) {
+    $all_koha_news = [ get_opac_new($id) ];
+    $koha_news_count = 1;
+} else {
+    $all_koha_news = GetNewsToDisplay($news_lang, $homebranch);
+    $koha_news_count = scalar @$all_koha_news;
+}
 
 my $quote = GetDailyQuote();   # other options are to pass in an exact quote id or select a random quote each pass... see perldoc C4::Koha
 
-- 
2.1.4