https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=24005
--- Comment #2 from Andrew Lau ---
This is the complete text from nano at Discharge.pm
-
GNU nano 2.9.3
/usr/share/koha/lib/Koha/Patron/Discharge.pm
Modified
package Koha::Patron::Discharge;
use Modern::Perl;
use CGI;
use File::Temp qw( :POSIX );
use Carp;
use C4::Templates qw ( gettemplate );
use C4::Letters qw ( GetPreparedLetter );
use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );
use Koha::Patrons;
use Koha::Patron::Debarments;
sub count {
my ($params) = @_;
my $values = {};
if( $params->{borrowernumber} ) {
$values->{borrower} = $params->{borrowernumber};
}
if( $params->{pending} ) {
$values->{needed} = { '!=', undef };
$values->{validated} = undef;
}
elsif( $params->{validated} ) {
$values->{validated} = { '!=', undef };
}
return search_limited( $values )->count;
}
sub can_be_discharged {
my ($params) = @_;
return unless $params->{borrowernumber};
my $patron = Koha::Patrons->find( $params->{borrowernumber} );
return unless $patron;
my $has_pending_checkouts = $patron->checkouts->count;
return $has_pending_checkouts ? 0 : 1;
}
sub is_discharged {
my ($params) = @_;
return unless $params->{borrowernumber};
my $borrowernumber = $params->{borrowernumber};
my $restricted = Koha::Patrons->find( $borrowernumber )->is_debarred;
my @validated = get_validated({borrowernumber => $borrowernumber});
if ($restricted && @validated) {
return 1;
} else {
return 0;
}
}
sub request {
my ($params) = @_;
my $borrowernumber = $params->{borrowernumber};
return unless $borrowernumber;
return unless can_be_discharged({ borrowernumber => $borrowernumber });
my $rs = Koha::Database->new->schema->resultset('Discharge');
return $rs->create({
borrower => $borrowernumber,
needed => dt_from_string,
});
}
sub discharge {
my ($params) = @_;
my $borrowernumber = $params->{borrowernumber};
return unless $borrowernumber and can_be_discharged( { borrowernumber =>
$borrowernumber } );
# Cancel reserves
my $patron = Koha::Patrons->find( $borrowernumber );
my $holds = $patron->holds;
while ( my $hold = $holds->next ) {
$hold->cancel;
}
# Debar the member
Koha::Patron::Debarments::AddDebarment({
borrowernumber => $borrowernumber,
type => 'DISCHARGE',
});
# Generate the discharge
my $rs = Koha::Database->new->schema->resultset('Discharge');
my $discharge = $rs->search({ borrower => $borrowernumber }, { order_by =>
{ -desc => 'needed' }, rows => 1 });
if( $discharge->count > 0 ) {
$discharge->update({ validated => dt_from_string });
}
else {
$rs->create({
borrower => $borrowernumber,
validated => dt_from_string,
});
}
}
sub generate_as_pdf {
my ($params) = @_;
return unless $params->{borrowernumber};
my $patron = Koha::Patrons->find( $params->{borrowernumber} );
my $letter = C4::Letters::GetPreparedLetter(
module => 'members',
letter_code => 'DISCHARGE',
lang=> $patron->lang,
tables => { borrowers => $params->{borrowernumber}, branches =>
$params->{'branchcode'}, },
);
my $today = output_pref( dt_from_string() );
$letter->{'title'} =~ s/<>/$today/g;
$letter->{'content'} =~ s/<>/$today/g;
my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet',
new CGI);
$tmpl->param(
stylesheet => C4::Context->preference("NoticeCSS"),
today => $today,
messages => [$letter],
);
my $html_path = tmpnam() . '.html';
my $pdf_path = tmpnam() . '.pdf';
my $html_content = $tmpl->output;
open my $html_fh, '>:encoding(utf8)', $html_path;
say $html_fh $html_content;
close $html_fh;
my $output = eval { require PDF::FromHTML; return; } || $@;
if ($output && $params->{testing}) {
carp $output;
$pdf_path = undef;
}
elsif ($output) {
die $output;
}
else {
my $pdf = PDF::FromHTML->new( encoding => 'utf-8' );
$pdf->load_file( $html_path );
$pdf->convert;
$pdf->write_file( $pdf_path );
}
return $pdf_path;
}
sub get_pendings {
my ($params) = @_;
my $branchcode = $params->{branchcode};
my