View | Details | Raw Unified | Return to bug 14985
Collapse All | Expand All

(-)a/C4/Utils/DataTables/Members.pm (-3 / +3 lines)
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
- 

Return to bug 14985