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 |
- |
|
|