-
-sub GetBorrowerInfos {
- my ( %info ) = @_;
- my $borrower = GetMember( %info );
- if ( $borrower ) {
- $borrower->{branchname} = GetBranchName( $borrower->{branchcode} );
- for ( qw(dateenrolled dateexpiry) ) {
- my $userdate = $borrower->{$_};
- unless ($userdate && $userdate ne "0000-00-00" and $userdate ne "9999-12-31") {
- $borrower->{$_} = '';
- next;
- }
- $borrower->{$_} = $userdate || '';
- }
- $borrower->{category_description} = GetBorrowercategory( $borrower->{categorycode} )->{description};
- my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} );
- $borrower->{patron_attributes} = $attr_loop;
- }
- return $borrower;
-}