members/discharge.pl

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Copyright 2013 BibLibre
   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 =head1 NAME
  21
  22 discharges.pl
  23
  24 =head1 DESCRIPTION
  25
  26 Allows librarian to edit and/or manage borrowers' discharges
  27
  28 =cut
  29
  30 use Modern::Perl;
  31 use Carp;
  32
  33 use CGI qw( -utf8 );
  34 use C4::Auth;
  35 use C4::Output;
  36 use C4::Members;
  37 use C4::Reserves;
  38 use C4::Letters;
  39 use Koha::Patron::Discharge;
  40 use Koha::Patron::Images;
  41 use Koha::Patrons;
  42
  43 use Koha::DateUtils;
  44
  45 my $input = new CGI;
  46
  47 my ( $template, $loggedinuser, $cookie, $flags ) = get_template_and_user({
  48     template_name   => 'members/discharge.tt',
  49     query           => $input,
  50     type            => 'intranet',
  51     authnotrequired => 0,
  52     flagsrequired   => { 'borrowers' => '*' },
  53 });
  54
  55 my $borrowernumber = $input->param('borrowernumber');
  56
  57 unless ( C4::Context->preference('useDischarge') ) {
  58    print $input->redirect("/cgi-bin/koha/circ/circulation.pl?borrowernumber=$borrowernumber&nopermission=1");
  59    exit;
  60 }
  61
  62 my $data;
  63 if ( $input->param('borrowernumber') ) {
  64     $borrowernumber = $input->param('borrowernumber');
  65
  66     # Getting member data
  67     $data = GetMember( borrowernumber => $borrowernumber );
  68
  69     my $can_be_discharged = Koha::Patron::Discharge::can_be_discharged({
  70         borrowernumber => $borrowernumber
  71     });
  72
  73     # Getting reserves
  74     my $patron = Koha::Patrons->find( $borrowernumber );
  75     my $holds = $patron->holds;
  76     my $has_reserves = $holds->count;
  77
  78     # Generating discharge if needed
  79     if ( $input->param('discharge') and $can_be_discharged ) {
  80         my $is_discharged = Koha::Patron::Discharge::is_discharged({
  81             borrowernumber => $borrowernumber,
  82         });
  83         unless ($is_discharged) {
  84             Koha::Patron::Discharge::discharge({
  85                 borrowernumber => $borrowernumber
  86             });
  87         }
  88         eval {
  89             my $pdf_path = Koha::Patron::Discharge::generate_as_pdf(
  90                 { borrowernumber => $borrowernumber, branchcode => $data->{'branchcode'} } );
  91
  92             binmode(STDOUT);
  93             print $input->header(
  94                 -type       => 'application/pdf',
  95                 -charset    => 'utf-8',
  96                 -attachment => "discharge_$borrowernumber.pdf",
  97             );
  98             open my $fh, '<', $pdf_path;
  99             my @lines = <$fh>;
 100             close $fh;
 101             print @lines;
 102             exit;
 103         };
 104         if ( $@ ) {
 105             carp $@;
 106             $template->param( messages => [ {type => 'error', code => 'unable_to_generate_pdf'} ] );
 107         }
 108     }
 109
 110     # Already generated discharges
 111     my $validated_discharges = Koha::Patron::Discharge::get_validated({
 112         borrowernumber => $borrowernumber,
 113     });
 114
 115     my $patron_image = Koha::Patron::Images->find($borrowernumber);
 116     $template->param( picture => 1 ) if $patron_image;
 117
 118     $template->param(
 119         borrowernumber    => $borrowernumber,
 120         biblionumber      => $data->{'biblionumber'},
 121         title             => $data->{'title'},
 122         initials          => $data->{'initials'},
 123         surname           => $data->{'surname'},
 124         borrowernumber    => $borrowernumber,
 125         firstname         => $data->{'firstname'},
 126         cardnumber        => $data->{'cardnumber'},
 127         categorycode      => $data->{'categorycode'},
 128         category_type     => $data->{'category_type'},
 129         categoryname      => $data->{'description'},
 130         address           => $data->{'address'},
 131         streetnumber      => $data->{streetnumber},
 132         streettype        => $data->{streettype},
 133         address2          => $data->{'address2'},
 134         city              => $data->{'city'},
 135         zipcode           => $data->{'zipcode'},
 136         country           => $data->{'country'},
 137         phone             => $data->{'phone'},
 138         email             => $data->{'email'},
 139         branchcode        => $data->{'branchcode'},
 140         has_reserves      => $has_reserves,
 141         can_be_discharged => $can_be_discharged,
 142         validated_discharges => $validated_discharges,
 143     );
 144 }
 145
 146 $template->param( dischargeview => 1, );
 147
 148 output_html_with_http_headers $input, $cookie, $template->output;