Lines 1-10
Link Here
|
1 |
package C4::Utils::DataTables::Members; |
1 |
package C4::Utils::DataTables::Members; |
2 |
|
2 |
|
|
|
3 |
use Modern::Perl; |
3 |
use C4::Branch qw/onlymine/; |
4 |
use C4::Branch qw/onlymine/; |
4 |
use C4::Context; |
5 |
use C4::Context; |
5 |
use C4::Members qw/GetMemberIssuesAndFines/; |
6 |
use C4::Members qw/GetMemberIssuesAndFines/; |
6 |
use C4::Utils::DataTables; |
7 |
use C4::Utils::DataTables; |
7 |
use Modern::Perl; |
8 |
use Koha::DateUtils; |
8 |
|
9 |
|
9 |
sub search { |
10 |
sub search { |
10 |
my ( $params ) = @_; |
11 |
my ( $params ) = @_; |
Lines 142-148
sub search {
Link Here
|
142 |
($patron->{overdues}, $patron->{issues}, $patron->{fines}) = |
143 |
($patron->{overdues}, $patron->{issues}, $patron->{fines}) = |
143 |
GetMemberIssuesAndFines($patron->{borrowernumber}); |
144 |
GetMemberIssuesAndFines($patron->{borrowernumber}); |
144 |
if($patron->{dateexpiry} and $patron->{dateexpiry} ne '0000-00-00') { |
145 |
if($patron->{dateexpiry} and $patron->{dateexpiry} ne '0000-00-00') { |
145 |
$patron->{dateexpiry} = output_pref( { dt => dt_from_string( $patron->{dateexpiry}), dateonly => 1, dateformat => 'iso' } ); |
146 |
$patron->{dateexpiry} = output_pref( { dt => dt_from_string( $patron->{dateexpiry}, 'iso'), dateonly => 1} ); |
146 |
} else { |
147 |
} else { |
147 |
$patron->{dateexpiry} = ''; |
148 |
$patron->{dateexpiry} = ''; |
148 |
} |
149 |
} |
149 |
- |
|
|