Bug 30952: Fix table headers
[koha-ffzg.git] / opac / opac-news-rss.pl
index d48fceb..60d700e 100755 (executable)
 
 use Modern::Perl;
 use CGI;
-use C4::Auth;    # get_template_and_user
-use C4::Output;
-use C4::NewsChannels;    # GetNewsToDisplay
-use C4::Languages qw(getTranslatedLanguages accept_language);
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
+use Koha::AdditionalContents;
 
-my $input = new CGI;
+my $input = CGI->new;
 my $dbh   = C4::Context->dbh;
 
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
@@ -34,7 +33,6 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
         type            => "opac",
         query           => $input,
         authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
-        flagsrequired   => { borrow => 1 },
     }
 );
 
@@ -42,17 +40,17 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
 # use cookie setting for language, bug default to syspref if it's not set
 my ($theme, $news_lang, $availablethemes) = C4::Templates::themelanguage(C4::Context->config('opachtdocs'),'opac-main.tt','opac',$input);
 
-my $homebranch;
+my $branchcode = $input->param('branchcode');
 
-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;
-
-$template->param(
-    koha_news           => $all_koha_news,
-    koha_news_count     => $koha_news_count,
+my $koha_news = Koha::AdditionalContents->search_for_display(
+    {
+        category   => 'news',
+        location   => ['opac_only', 'staff_and_opac'],
+        lang       => $news_lang,
+        library_id => $branchcode,
+    }
 );
 
+$template->param( koha_news => $koha_news );
+
 output_html_with_http_headers $input, $cookie, $template->output;