orig

diff --git a/lib/Koha/Patron/Discharge.pm b/lib/Koha/Patron/Discharge.pm
new file mode 100644 (file)
index 0000000..5e7595d
--- /dev/null
+++ b/lib/Koha/Patron/Discharge.pm
@@ -0,0 +1,197 @@
+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>>/$today/g;
+    $letter->{'content'} =~ s/<<today>>/$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 $borrowernumber = $params->{borrowernumber};
+
+    my $cond = {
+        'me.needed'    => { '!=', undef },
+        'me.validated' => undef,
+        ( defined $borrowernumber ? ( 'me.borrower' => $borrowernumber ) : () ),
+        ( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ),
+    };
+
+    return search_limited( $cond );
+}
+
+sub get_validated {
+    my ($params)       = @_;
+    my $branchcode     = $params->{branchcode};
+    my $borrowernumber = $params->{borrowernumber};
+
+    my $cond = {
+        'me.validated' => { '!=', undef },
+        ( defined $borrowernumber ? ( 'me.borrower' => $borrowernumber ) : () ),
+        ( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ),
+    };
+
+    return search_limited( $cond );
+}
+
+# TODO This module should be based on Koha::Object[s]
+sub search_limited {
+    my ( $params, $attributes ) = @_;
+    my $userenv = C4::Context->userenv;
+    my @restricted_branchcodes;
+    if ( $userenv and $userenv->{number} ) {
+        my $logged_in_user = Koha::Patrons->find( $userenv->{number} );
+        @restricted_branchcodes = $logged_in_user->libraries_where_can_see_patrons;
+    }
+    $params->{'borrower.branchcode'} = { -in => \@restricted_branchcodes } if @restricted_branchcodes;
+    $attributes->{join} = 'borrower';
+
+    my $rs = Koha::Database->new->schema->resultset('Discharge');
+    return $rs->search( $params, { join => 'borrower' } );
+}
+
+1;