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