1 package Koha::Patron::Discharge;
5 use File::Temp qw( tmpnam );
9 use C4::Templates qw ( gettemplate );
10 use C4::Letters qw( GetPreparedLetter );
13 use Koha::DateUtils qw( dt_from_string output_pref );
15 use Koha::Patron::Debarments qw( AddDebarment );
21 if( $params->{borrowernumber} ) {
22 $values->{borrower} = $params->{borrowernumber};
24 if( $params->{pending} ) {
25 $values->{needed} = { '!=', undef };
26 $values->{validated} = undef;
28 elsif( $params->{validated} ) {
29 $values->{validated} = { '!=', undef };
32 return search_limited( $values )->count;
35 sub can_be_discharged {
37 return unless $params->{borrowernumber};
39 my $patron = Koha::Patrons->find( $params->{borrowernumber} );
40 return unless $patron;
42 my $has_pending_checkouts = $patron->checkouts->count;
43 return $has_pending_checkouts ? 0 : 1;
48 return unless $params->{borrowernumber};
49 my $borrowernumber = $params->{borrowernumber};
51 my $restricted = Koha::Patrons->find( $borrowernumber )->is_debarred;
52 my @validated = get_validated({borrowernumber => $borrowernumber});
54 if ($restricted && @validated) {
63 my $borrowernumber = $params->{borrowernumber};
64 return unless $borrowernumber;
65 return unless can_be_discharged({ borrowernumber => $borrowernumber });
67 my $rs = Koha::Database->new->schema->resultset('Discharge');
69 borrower => $borrowernumber,
70 needed => dt_from_string,
76 my $borrowernumber = $params->{borrowernumber};
77 return unless $borrowernumber and can_be_discharged( { borrowernumber => $borrowernumber } );
80 my $patron = Koha::Patrons->find( $borrowernumber );
81 my $holds = $patron->holds;
82 while ( my $hold = $holds->next ) {
87 Koha::Patron::Debarments::AddDebarment({
88 borrowernumber => $borrowernumber,
92 # Generate the discharge
93 my $rs = Koha::Database->new->schema->resultset('Discharge');
94 my $discharge = $rs->search({ borrower => $borrowernumber }, { order_by => { -desc => 'needed' }, rows => 1 });
95 if( $discharge->count > 0 ) {
96 $discharge->update({ validated => dt_from_string });
100 borrower => $borrowernumber,
101 validated => dt_from_string,
106 sub generate_as_pdf {
108 return unless $params->{borrowernumber};
110 my $patron = Koha::Patrons->find( $params->{borrowernumber} );
111 my $letter = C4::Letters::GetPreparedLetter(
113 letter_code => 'DISCHARGE',
114 lang => $patron->lang,
115 tables => { borrowers => $params->{borrowernumber}, branches => $params->{'branchcode'}, },
118 my $today = output_pref( dt_from_string() );
119 $letter->{'title'} =~ s/<<today>>/$today/g;
120 $letter->{'content'} =~ s/<<today>>/$today/g;
122 my $tmpl = C4::Templates::gettemplate('batch/print-notices.tt', 'intranet', CGI->new);
124 stylesheet => C4::Context->preference("NoticeCSS"),
126 messages => [$letter],
129 my $html_path = tmpnam() . '.html';
130 my $pdf_path = tmpnam() . '.pdf';
131 my $html_content = $tmpl->output;
134 open my $html_fh, '>:encoding(utf8)', $html_path;
135 say $html_fh $html_content;
138 if ( IPC::Cmd::can_run('weasyprint') ) {
139 my( $success, $error_message, $full_buf, $stdout_buf, $stderr_buf ) =
140 IPC::Cmd::run( command => "weasyprint $html_path $pdf_path", verbose => 0 );
142 map {warn $_} @$stderr_buf
143 if $stderr_buf and scalar @$stderr_buf;
145 unless ( $success ) {
151 warn "weasyprint not found!";
160 my $branchcode = $params->{branchcode};
161 my $borrowernumber = $params->{borrowernumber};
164 'me.needed' => { '!=', undef },
165 'me.validated' => undef,
166 ( defined $borrowernumber ? ( 'me.borrower' => $borrowernumber ) : () ),
167 ( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ),
170 return search_limited( $cond );
175 my $branchcode = $params->{branchcode};
176 my $borrowernumber = $params->{borrowernumber};
179 'me.validated' => { '!=', undef },
180 ( defined $borrowernumber ? ( 'me.borrower' => $borrowernumber ) : () ),
181 ( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ),
184 return search_limited( $cond );
187 # TODO This module should be based on Koha::Object[s]
189 my ( $params, $attributes ) = @_;
190 my $userenv = C4::Context->userenv;
191 my @restricted_branchcodes;
192 if ( $userenv and $userenv->{number} ) {
193 my $logged_in_user = Koha::Patrons->find( $userenv->{number} );
194 @restricted_branchcodes = $logged_in_user->libraries_where_can_see_patrons;
196 $params->{'borrower.branchcode'} = { -in => \@restricted_branchcodes } if @restricted_branchcodes;
197 $attributes->{join} = 'borrower';
199 my $rs = Koha::Database->new->schema->resultset('Discharge');
200 return $rs->search( $params, { join => 'borrower' } );