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

(-)a/tools/modborrowers.pl (-6 / +5 lines)
Lines 366-375 exit; Link Here
366
366
367
sub GetBorrowerInfos {
367
sub GetBorrowerInfos {
368
    my ( %info ) = @_;
368
    my ( %info ) = @_;
369
    my $borrower = Koha::Patrons->find( \%info );
369
    my $patron = Koha::Patrons->find( \%info );
370
    my $catdesc = $borrower->category->description;
370
    my $borrower;
371
    if ( $borrower ) {
371
    if ( $patron ) {
372
        $borrower = $borrower->unblessed;
372
        $borrower = $patron->unblessed;
373
        for ( qw(dateenrolled dateexpiry) ) {
373
        for ( qw(dateenrolled dateexpiry) ) {
374
            my $userdate = $borrower->{$_};
374
            my $userdate = $borrower->{$_};
375
            unless ($userdate && $userdate ne "0000-00-00" and $userdate ne "9999-12-31") {
375
            unless ($userdate && $userdate ne "0000-00-00" and $userdate ne "9999-12-31") {
Lines 378-384 sub GetBorrowerInfos { Link Here
378
            }
378
            }
379
            $borrower->{$_} = $userdate || '';
379
            $borrower->{$_} = $userdate || '';
380
        }
380
        }
381
        $borrower->{category_description} = $catdesc;
381
        $borrower->{category_description} = $patron->category->description;
382
        my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} );
382
        my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} );
383
        $borrower->{patron_attributes} = $attr_loop;
383
        $borrower->{patron_attributes} = $attr_loop;
384
    }
384
    }
385
- 

Return to bug 19074