circ/add_message.pl

   1 #!/usr/bin/perl
   2
   3 # Copyright 2009 PTFS Inc.
   4 #
   5 # This file is part of Koha.
   6 #
   7 # Koha is free software; you can redistribute it and/or modify it
   8 # under the terms of the GNU General Public License as published by
   9 # the Free Software Foundation; either version 3 of the License, or
  10 # (at your option) any later version.
  11 #
  12 # Koha is distributed in the hope that it will be useful, but
  13 # WITHOUT ANY WARRANTY; without even the implied warranty of
  14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  15 # GNU General Public License for more details.
  16 #
  17 # You should have received a copy of the GNU General Public License
  18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  19
  20 use Modern::Perl;
  21
  22 use CGI qw ( -utf8 );
  23
  24 use C4::Auth    qw( get_template_and_user );
  25 use C4::Output  qw( output_and_exit );
  26 use C4::Letters qw( GetPreparedLetter EnqueueLetter );
  27 use Koha::Patron::Message;
  28 use Koha::Patrons;
  29
  30 my $input = CGI->new;
  31
  32 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
  33     {
  34         template_name => "circ/circulation.tt",
  35         query         => $input,
  36         type          => "intranet",
  37         flagsrequired => { borrowers => 'edit_borrowers' },
  38     }
  39 );
  40
  41 my $op               = $input->param('op');
  42 my $message_id       = $input->param('message_id');
  43 my $borrowernumber   = $input->param('borrowernumber');
  44 my $branchcode       = $input->param('branchcode');
  45 my $message_type     = $input->param('message_type');
  46 my $borrower_message = $input->param('borrower_message');
  47 my $borrower_subject = $input->param('borrower_subject');
  48 my $letter_code      = $input->param('select_patron_notice');
  49 my $batch            = $input->param('batch');
  50
  51 if ( $op eq 'cud-edit_message' && $message_id ) {
  52     my $message = Koha::Patron::Messages->find($message_id);
  53     $message->update( { message => $borrower_message } ) if $message;
  54 } elsif ( $op eq 'cud-add_message' ) {
  55     if ( $message_type eq 'L' or $message_type eq 'B' ) {
  56         Koha::Patron::Message->new(
  57             {
  58                 borrowernumber => $borrowernumber,
  59                 branchcode     => $branchcode,
  60                 message_type   => $message_type,
  61                 message        => $borrower_message,
  62             }
  63         )->store;
  64     }
  65
  66     if ( $message_type eq 'E' ) {
  67         my $logged_in_patron = Koha::Patrons->find($loggedinuser);
  68         if ( !$logged_in_patron->has_permission( { borrowers => 'send_messages_to_borrowers' } ) ) {
  69             C4::Output::output_and_exit( $input, $cookie, $template, 'insufficient_permission' );
  70         }
  71
  72         my $letter = {
  73             title   => $borrower_subject,
  74             content => $borrower_message
  75         };
  76
  77         my $patron = Koha::Patrons->find($borrowernumber);
  78
  79         if ($letter_code) {
  80             $letter = C4::Letters::GetPreparedLetter(
  81                 module      => 'add_message',
  82                 letter_code => $letter_code,
  83                 lang        => $patron->lang,
  84                 tables      => { 'borrowers' => $borrowernumber },
  85             );
  86         }
  87
  88         C4::Letters::EnqueueLetter(
  89             {
  90                 letter                 => $letter,
  91                 borrowernumber         => $borrowernumber,
  92                 message_transport_type => 'email',
  93             }
  94         ) or warn "can't enqueue letter";
  95     }
  96 }
  97
  98 my $url = $input->referer;
  99 if ($url) {
 100     if ( $url =~ m|circulation\.pl$| ) {
 101
 102         # Trick for POST form from batch checkouts
 103         $url .= "?borrowernumber=$borrowernumber";
 104         $url .= "&amp;batch=1" if $batch;
 105     }
 106 } else {
 107     $url = "/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber";
 108 }
 109 print $input->redirect($url);