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

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt (-1 / +1 lines)
Lines 282-288 Link Here
282
                                                    <td>[% borrower.surname %]</td>
282
                                                    <td>[% borrower.surname %]</td>
283
                                                    <td>[% borrower.firstname %]</td>
283
                                                    <td>[% borrower.firstname %]</td>
284
                                                    <td>[% Branches.GetName( borrower.branchcode ) %]</td>
284
                                                    <td>[% Branches.GetName( borrower.branchcode ) %]</td>
285
                                                    <td>[% borrower.categorycode %]</td>
285
                                                    <td>[% borrower.category_description %]</td>
286
                                                    <td>[% borrower.city %]</td>
286
                                                    <td>[% borrower.city %]</td>
287
                                                    <td>[% borrower.state %]</td>
287
                                                    <td>[% borrower.state %]</td>
288
                                                    <td>[% borrower.zipcode %]</td>
288
                                                    <td>[% borrower.zipcode %]</td>
(-)a/tools/modborrowers.pl (-2 / +2 lines)
Lines 367-372 exit; Link Here
367
sub GetBorrowerInfos {
367
sub GetBorrowerInfos {
368
    my ( %info ) = @_;
368
    my ( %info ) = @_;
369
    my $borrower = Koha::Patrons->find( \%info );
369
    my $borrower = Koha::Patrons->find( \%info );
370
    my $catdesc = $borrower->category->description;
370
    if ( $borrower ) {
371
    if ( $borrower ) {
371
        $borrower = $borrower->unblessed;
372
        $borrower = $borrower->unblessed;
372
        for ( qw(dateenrolled dateexpiry) ) {
373
        for ( qw(dateenrolled dateexpiry) ) {
Lines 377-383 sub GetBorrowerInfos { Link Here
377
            }
378
            }
378
            $borrower->{$_} = $userdate || '';
379
            $borrower->{$_} = $userdate || '';
379
        }
380
        }
380
        $borrower->{category_description} = Koha::Patron::Categories->find( $borrower->{categorycode} )->{description};
381
        $borrower->{category_description} = $catdesc;
381
        my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} );
382
        my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} );
382
        $borrower->{patron_attributes} = $attr_loop;
383
        $borrower->{patron_attributes} = $attr_loop;
383
    }
384
    }
384
- 

Return to bug 19074