C4/Suggestions.pm

   1 package C4::Suggestions;
   2
   3 # $Id$
   4
   5 # Copyright 2000-2002 Katipo Communications
   6 #
   7 # This file is part of Koha.
   8 #
   9 # Koha is free software; you can redistribute it and/or modify it under the
  10 # terms of the GNU General Public License as published by the Free Software
  11 # Foundation; either version 2 of the License, or (at your option) any later
  12 # version.
  13 #
  14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  16 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  17 #
  18 # You should have received a copy of the GNU General Public License along with
  19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  20 # Suite 330, Boston, MA  02111-1307 USA
  21
  22 use strict;
  23 require Exporter;
  24 use DBI;
  25 use C4::Context;
  26 use C4::Output;
  27 use Mail::Sendmail;
  28 # use C4::Interface::CGI::Output;
  29 use vars qw($VERSION @ISA @EXPORT);
  30
  31 # set the version for version checking
  32 $VERSION = 0.01;
  33
  34 =head1 NAME
  35
  36 C4::Accounts - Functions for dealing with Koha authorities
  37
  38 =head1 SYNOPSIS
  39
  40   use C4::Suggestions;
  41
  42 =head1 DESCRIPTION
  43
  44 The functions in this module deal with the suggestions :
  45 * in OPAC
  46 * in librarian interface
  47
  48 A suggestion is done in the OPAC. It has the status "ASKED"
  49 When a librarian manages the suggestion, he can set the status to "REJECTED" or "ORDERED".
  50 When a book is ordered and arrived in the library, the status becomes "AVAILABLE"
  51 All suggestions of a borrower by the borrower itself.
  52 Suggestions done by other can be seen when not "AVAILABLE"
  53
  54 =head1 FUNCTIONS
  55
  56 =over 2
  57
  58 =cut
  59
  60 @ISA = qw(Exporter);
  61 @EXPORT = qw(   &newsuggestion
  62                                 &searchsuggestion
  63                                 &getsuggestion
  64                                 &delsuggestion
  65                                 &countsuggestion
  66                                 &changestatus
  67                         );
  68
  69 =item SearchSuggestion
  70
  71   (\@array) = &SearchSuggestion($user)
  72
  73   searches for a suggestion
  74
  75 C<$user> is the user code (used as suggestor filter)
  76
  77 return :
  78 C<\@array> : the suggestions found. Array of hash.
  79 Note the status is stored twice :
  80 * in the status field
  81 * as parameter ( for example ASKED => 1, or REJECTED => 1) . This is for template & translation purposes.
  82
  83 =cut
  84 sub searchsuggestion  {
  85         my ($user,$author,$title,$publishercode,$status,$suggestedbyme)=@_;
  86         my $dbh = C4::Context->dbh;
  87         my $query="Select suggestions.*,
  88                                                 U1.surname as surnamesuggestedby,U1.firstname as firstnamesuggestedby,
  89                                                 U2.surname as surnamemanagedby,U2.firstname as firstnamemanagedby
  90                                                 from suggestions
  91                                                 left join borrowers as U1 on suggestedby=U1.borrowernumber
  92                                                 left join borrowers as U2  on managedby=U2.borrowernumber
  93                                                 where 1=1";
  94         my @sql_params;
  95         if ($author) {
  96                 push @sql_params,"%".$author."%";
  97                 $query .= " and author like ?";
  98         }
  99         if ($title) {
 100                 push @sql_params,"%".$title."%";
 101                 $query .= " and suggestions.title like ?";
 102         }
 103         if ($publishercode) {
 104                 push @sql_params,"%".$publishercode."%";
 105                 $query .= " and publishercode like ?";
 106         }
 107         if ($status) {
 108                 push @sql_params,$status;
 109                 $query .= " and status=?";
 110         }
 111         if ($suggestedbyme) {
 112                 if ($suggestedbyme eq -1) {
 113                 } else {
 114                         push @sql_params,$user;
 115                         $query .= " and suggestedby=?";
 116                 }
 117         } else {
 118                 $query .= " and managedby is NULL";
 119         }
 120         my $sth=$dbh->prepare($query);
 121         $sth->execute(@sql_params);
 122         my @results;
 123         my $even=1; # the even variable is used to set even / odd lines, for highlighting
 124         while (my $data=$sth->fetchrow_hashref){
 125                         $data->{$data->{STATUS}} = 1;
 126                         if ($even) {
 127                                 $even=0;
 128                                 $data->{even}=1;
 129                         } else {
 130                                 $even=1;
 131                         }
 132                         push(@results,$data);
 133         }
 134         return (\@results);
 135 }
 136
 137 sub newsuggestion {
 138         my ($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,$biblionumber) = @_;
 139         my $dbh = C4::Context->dbh;
 140         my $sth = $dbh->prepare("insert into suggestions (status,suggestedby,title,author,publishercode,note,copyrightdate,volumedesc,publicationyear,place,isbn,biblionumber) values ('ASKED',?,?,?,?,?,?,?,?,?,?,?)");
 141         $sth->execute($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,$biblionumber);
 142 }
 143
 144 sub getsuggestion {
 145         my ($suggestionid) = @_;
 146         my $dbh = C4::Context->dbh;
 147         my $sth = $dbh->prepare("select * from suggestions where suggestionid=?");
 148         $sth->execute($suggestionid);
 149         return($sth->fetchrow_hashref);
 150 }
 151
 152 sub delsuggestion {
 153         my ($borrowernumber,$suggestionid) = @_;
 154         my $dbh = C4::Context->dbh;
 155         # check that the suggestion comes from the suggestor
 156         my $sth = $dbh->prepare("select suggestedby from suggestions where suggestionid=?");
 157         $sth->execute($suggestionid);
 158         my ($suggestedby) = $sth->fetchrow;
 159         if ($suggestedby eq $borrowernumber) {
 160                 $sth = $dbh->prepare("delete from suggestions where suggestionid=?");
 161                 $sth->execute($suggestionid);
 162         }
 163 }
 164
 165 sub countsuggestion {
 166         my ($status) = @_;
 167         my $dbh = C4::Context->dbh;
 168         my $sth = $dbh->prepare("select count(*) from suggestions where status=?");
 169         $sth->execute($status);
 170         my ($result) = $sth->fetchrow;
 171         return $result;
 172 }
 173
 174 sub changestatus {
 175         my ($suggestionid,$status,$managedby) = @_;
 176         my $dbh = C4::Context->dbh;
 177         my $sth;
 178         if ($managedby>0) {
 179                 $sth = $dbh->prepare("update suggestions set status=?,managedby=? where suggestionid=?");
 180                 $sth->execute($status,$managedby,$suggestionid);
 181         } else {
 182                 $sth = $dbh->prepare("update suggestions set status=? where suggestionid=?");
 183                 $sth->execute($status,$suggestionid);
 184
 185         }
 186         # check mail sending.
 187         $sth = $dbh->prepare("select suggestions.*,
 188                                                         boby.surname as bysurname, boby.firstname as byfirstname, boby.emailaddress as byemail,
 189                                                         lib.surname as libsurname,lib.firstname as libfirstname,lib.emailaddress as libemail
 190                                                 from suggestions left join borrowers as boby on boby.borrowernumber=suggestedby left join borrowers as lib on lib.borrowernumber=managedby where suggestionid=?");
 191         $sth->execute($suggestionid);
 192         my $emailinfo = $sth->fetchrow_hashref;
 193         my $template = gettemplate("suggestion/mail_suggestion_$status.tmpl","intranet");
 194 #                                query =>'',
 195 #                            authnotrequired => 1,
 196 #                        });
 197         $template->param(byemail => $emailinfo->{byemail},
 198                                         libemail => $emailinfo->{libemail},
 199                                         status => $emailinfo->{status},
 200                                         title => $emailinfo->{title},
 201                                         author =>$emailinfo->{author},
 202                                         libsurname => $emailinfo->{libsurname},
 203                                         libfirstname => $emailinfo->{libfirstname},
 204                                         byfirstname => $emailinfo->{byfirstname},
 205                                         bysurname => $emailinfo->{bysurname},
 206                                         );
 207         my %mail = ( To => $emailinfo->{byemail},
 208                                  From => $emailinfo->{libemail},
 209                                  Subject => 'Koha suggestion',
 210                                  Message => "".$template->output
 211                                  );
 212 sendmail(%mail);
 213 #       warn "sending email to $emailinfo->{byemail} from $emailinfo->{libemail} to notice new status $emailinfo->{status} for $emailinfo->{title} / $emailinfo->{author}";
 214 }
 215
 216 =back
 217
 218 =head1 SEE ALSO
 219
 220 =cut