bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / C4 / NewsChannels.pm
1 package C4::NewsChannels;
2
3 # Copyright 2000-2002 Katipo Communications
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20 use strict;
21 use warnings;
22
23 use C4::Context;
24 use C4::Dates qw(format_date);
25
26 use vars qw($VERSION @ISA @EXPORT);
27
28 BEGIN { 
29     $VERSION = 3.07.00.049;     # set the version for version checking
30         @ISA = qw(Exporter);
31         @EXPORT = qw(
32                 &GetNewsToDisplay
33                 &add_opac_new &upd_opac_new &del_opac_new &get_opac_new &get_opac_news
34         );
35 }
36
37 =head1 NAME
38
39 C4::NewsChannels - Functions to manage OPAC and intranet news
40
41 =head1 DESCRIPTION
42
43 This module provides the functions needed to mange OPAC and intranet news.
44
45 =head1 FUNCTIONS
46
47 =cut
48
49 sub add_opac_new {
50     my ($title, $new, $lang, $expirationdate, $timestamp, $number) = @_;
51     my $dbh = C4::Context->dbh;
52     my $sth = $dbh->prepare("INSERT INTO opac_news (title, new, lang, expirationdate, timestamp, number) VALUES (?,?,?,?,?,?)");
53     $sth->execute($title, $new, $lang, $expirationdate, $timestamp, $number);
54     $sth->finish;
55     return 1;
56 }
57
58 sub upd_opac_new {
59     my ($idnew, $title, $new, $lang, $expirationdate, $timestamp,$number) = @_;
60     my $dbh = C4::Context->dbh;
61     my $sth = $dbh->prepare("
62         UPDATE opac_news SET 
63             title = ?,
64             new = ?,
65             lang = ?,
66             expirationdate = ?,
67             timestamp = ?,
68             number = ?
69         WHERE idnew = ?
70     ");
71     $sth->execute($title, $new, $lang, $expirationdate, $timestamp,$number,$idnew);
72     $sth->finish;
73     return 1;
74 }
75
76 sub del_opac_new {
77     my ($ids) = @_;
78     if ($ids) {
79         my $dbh = C4::Context->dbh;
80         my $sth = $dbh->prepare("DELETE FROM opac_news WHERE idnew IN ($ids)");
81         $sth->execute();
82         $sth->finish;
83         return 1;
84     } else {
85         return 0;
86     }
87 }
88
89 sub get_opac_new {
90     my ($idnew) = @_;
91     my $dbh = C4::Context->dbh;
92     my $sth = $dbh->prepare("SELECT * FROM opac_news WHERE idnew = ?");
93     $sth->execute($idnew);
94     my $data = $sth->fetchrow_hashref;
95     $data->{$data->{'lang'}} = 1 if defined $data->{lang};
96     $data->{expirationdate} = format_date($data->{expirationdate});
97     $data->{timestamp}      = format_date($data->{timestamp});
98     $sth->finish;
99     return $data;
100 }
101
102 sub get_opac_news {
103     my ($limit, $lang) = @_;
104     my $dbh = C4::Context->dbh;
105     my $query = "SELECT *, timestamp AS newdate FROM opac_news";
106     if ($lang) {
107         $query.= " WHERE lang = '" .$lang ."' ";
108     }
109     $query.= " ORDER BY timestamp DESC ";
110     #if ($limit) {
111     #    $query.= "LIMIT 0, " . $limit;
112     #}
113     my $sth = $dbh->prepare($query);
114     $sth->execute();
115     my @opac_news;
116     my $count = 0;
117     while (my $row = $sth->fetchrow_hashref) {
118         if ((($limit) && ($count < $limit)) || (!$limit)) {
119             $row->{'newdate'} = format_date($row->{'newdate'});
120             $row->{'expirationdate'} = format_date($row->{'expirationdate'});
121             push @opac_news, $row;
122         }
123         $count++;
124     }
125     return ($count, \@opac_news);
126 }
127
128 =head2 GetNewsToDisplay
129
130     $news = &GetNewsToDisplay($lang);
131     C<$news> is a ref to an array which containts
132     all news with expirationdate > today or expirationdate is null.
133
134 =cut
135
136 sub GetNewsToDisplay {
137     my $lang = shift;
138     my $dbh = C4::Context->dbh;
139     # SELECT *,DATE_FORMAT(timestamp, '%d/%m/%Y') AS newdate
140     my $query = "
141      SELECT *,timestamp AS newdate
142      FROM   opac_news
143      WHERE   (
144         expirationdate >= CURRENT_DATE()
145         OR    expirationdate IS NULL
146         OR    expirationdate = '00-00-0000'
147       )
148       AND   `timestamp` <= CURRENT_DATE()
149       AND   lang = ?
150       ORDER BY number
151     ";                          # expirationdate field is NOT in ISO format?
152     my $sth = $dbh->prepare($query);
153     $sth->execute($lang);
154     my @results;
155     while ( my $row = $sth->fetchrow_hashref ){
156                 $row->{newdate} = format_date($row->{newdate});
157         push @results, $row;
158     }
159     return \@results;
160 }
161
162 1;
163 __END__
164
165 =head1 AUTHOR
166
167 TG
168
169 =cut