3 # Script to manage the opac news.
5 # Casta�eda, Carlos Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina
6 # Modified to include news to KOHA intranet - tgarip@neu.edu.tr NEU library -Cyprus
7 # Copyright 2000-2002 Katipo Communications
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
32 use Date
::Calc qw
/Date_to_Days Today/;
36 my $id = $cgi->param('id');
37 my $title = $cgi->param('title');
38 my $new = $cgi->param('new');
39 my $expirationdate = $cgi->param('expirationdate');
40 my $number = $cgi->param('number');
41 my $lang = $cgi->param('lang');
43 my $new_detail = get_opac_new
($id);
45 my ( $template, $borrowernumber, $cookie ) = get_template_and_user
(
47 template_name
=> "tools/koha-news.tmpl",
51 flagsrequired
=> { tools
=> 1 },
58 my $tlangs = getTranslatedLanguages
() ;
59 foreach my $language ( @
$tlangs ) {
62 language
=> $language->{'language_code'},
63 selected
=> ( $new_detail->{lang
} eq $language->{'language_code'} ?
1 : 0 ),
67 $template->param( lang_list
=> \
@lang_list );
69 my $op = $cgi->param('op');
71 if ( $op eq 'add_form' ) {
72 $template->param( add_form
=> 1 );
76 id
=> $new_detail->{'idnew'}
78 $template->param($new_detail);
81 $template->param( op
=> 'add' );
84 elsif ( $op eq 'add' ) {
85 add_opac_new
( $title, $new, $lang, $expirationdate, $number );
86 print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
88 elsif ( $op eq 'edit' ) {
89 upd_opac_new
( $id, $title, $new, $lang, $expirationdate, $number );
90 print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
92 elsif ( $op eq 'del' ) {
93 my @ids = $cgi->param('ids');
94 del_opac_new
( join ",", @ids );
95 print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
100 my ( $opac_news_count, $opac_news ) = &get_opac_news
( undef, $lang );
102 foreach my $new ( @
$opac_news ) {
103 next unless $new->{'expirationdate'};
104 next if $new->{'expirationdate'} eq '0000-00-00';
105 if (Date_to_Days
( split "-" ,$new->{'expirationdate'} ) < Date_to_Days
(&Today
) ){
106 $new->{'hasexpirated'} = 1;
112 opac_news
=> $opac_news,
113 opac_news_count
=> $opac_news_count
117 output_html_with_http_headers
$cgi, $cookie, $template->output;