Lines 13-20
use Koha::Database;
Link Here
|
13 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
13 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
14 |
use Koha::Patrons; |
14 |
use Koha::Patrons; |
15 |
|
15 |
|
16 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
|
|
17 |
|
18 |
sub count { |
16 |
sub count { |
19 |
my ($params) = @_; |
17 |
my ($params) = @_; |
20 |
my $values = {}; |
18 |
my $values = {}; |
Lines 30-35
sub count {
Link Here
|
30 |
$values->{validated} = { '!=', undef }; |
28 |
$values->{validated} = { '!=', undef }; |
31 |
} |
29 |
} |
32 |
|
30 |
|
|
|
31 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
33 |
return $rs->search( $values )->count; |
32 |
return $rs->search( $values )->count; |
34 |
} |
33 |
} |
35 |
|
34 |
|
Lines 67-72
sub request {
Link Here
|
67 |
return unless $borrowernumber; |
66 |
return unless $borrowernumber; |
68 |
return unless can_be_discharged({ borrowernumber => $borrowernumber }); |
67 |
return unless can_be_discharged({ borrowernumber => $borrowernumber }); |
69 |
|
68 |
|
|
|
69 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
70 |
return $rs->create({ |
70 |
return $rs->create({ |
71 |
borrower => $borrowernumber, |
71 |
borrower => $borrowernumber, |
72 |
needed => dt_from_string, |
72 |
needed => dt_from_string, |
Lines 92-97
sub discharge {
Link Here
|
92 |
}); |
92 |
}); |
93 |
|
93 |
|
94 |
# Generate the discharge |
94 |
# Generate the discharge |
|
|
95 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
95 |
my $discharge = $rs->search({ borrower => $borrowernumber }, { order_by => { -desc => 'needed' }, rows => 1 }); |
96 |
my $discharge = $rs->search({ borrower => $borrowernumber }, { order_by => { -desc => 'needed' }, rows => 1 }); |
96 |
if( $discharge->count > 0 ) { |
97 |
if( $discharge->count > 0 ) { |
97 |
$discharge->update({ validated => dt_from_string }); |
98 |
$discharge->update({ validated => dt_from_string }); |
Lines 163-168
sub get_pendings {
Link Here
|
163 |
( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ), |
164 |
( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ), |
164 |
}; |
165 |
}; |
165 |
|
166 |
|
|
|
167 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
166 |
my @rs = $rs->search( $cond, { join => 'borrower' } ); |
168 |
my @rs = $rs->search( $cond, { join => 'borrower' } ); |
167 |
return \@rs; |
169 |
return \@rs; |
168 |
} |
170 |
} |
Lines 178-183
sub get_validated {
Link Here
|
178 |
( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ), |
180 |
( defined $branchcode ? ( 'borrower.branchcode' => $branchcode ) : () ), |
179 |
}; |
181 |
}; |
180 |
|
182 |
|
|
|
183 |
my $rs = Koha::Database->new->schema->resultset('Discharge'); |
181 |
my @rs = $rs->search( $cond, { join => 'borrower' } ); |
184 |
my @rs = $rs->search( $cond, { join => 'borrower' } ); |
182 |
return \@rs; |
185 |
return \@rs; |
183 |
} |
186 |
} |
184 |
- |
|
|