[Koha-cvs] CVS: koha/C4 Suggestions.pm,1.4,1.4.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32321/C4

Modified Files:
      Tag: rel_2_2
        Suggestions.pm 
Log Message:
Fixing a bug in suggestions : the mail was not sent.

Index: Suggestions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Suggestions.pm,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** Suggestions.pm      13 Sep 2004 15:25:38 -0000      1.4
--- Suggestions.pm      18 Mar 2005 09:37:56 -0000      1.4.2.1
***************
*** 25,28 ****
--- 25,29 ----
  use C4::Context;
  use C4::Output;
+ use Mail::Sendmail;
  # use C4::Interface::CGI::Output;
  use vars qw($VERSION @ISA @EXPORT);
***************
*** 109,114 ****
        }
        if ($suggestedbyme) {
!               push @sql_params,$user;
!               $query .= " and suggestedby=?";
        } else {
                $query .= " and managedby is NULL";
--- 110,118 ----
        }
        if ($suggestedbyme) {
!               if ($suggestedbyme eq -1) {
!               } else {
!                       push @sql_params,$user;
!                       $query .= " and suggestedby=?";
!               }
        } else {
                $query .= " and managedby is NULL";
***************
*** 201,205 ****
                                        bysurname => $emailinfo->{bysurname},
                                        );
!       warn "mailing => ".$template->output;
  #     warn "sending email to $emailinfo->{byemail} from 
$emailinfo->{libemail} to notice new status $emailinfo->{status} for 
$emailinfo->{title} / $emailinfo->{author}";
  }
--- 205,214 ----
                                        bysurname => $emailinfo->{bysurname},
                                        );
!       my %mail = ( To => $emailinfo->{byemail},
!                                From => $emailinfo->{libemail},
!                                Subject => 'Koha suggestion',
!                                Message => "".$template->output
!                                );
! sendmail(%mail);
  #     warn "sending email to $emailinfo->{byemail} from 
$emailinfo->{libemail} to notice new status $emailinfo->{status} for 
$emailinfo->{title} / $emailinfo->{author}";
  }