@@ -, +, @@ modification. category description. it. --- koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt | 2 +- tools/modborrowers.pl | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/modborrowers.tt @@ -282,7 +282,7 @@ [% borrower.surname %] [% borrower.firstname %] [% Branches.GetName( borrower.branchcode ) %] - [% borrower.categorycode %] + [% borrower.category_description %] [% borrower.city %] [% borrower.state %] [% borrower.zipcode %] --- a/tools/modborrowers.pl +++ a/tools/modborrowers.pl @@ -367,6 +367,7 @@ exit; sub GetBorrowerInfos { my ( %info ) = @_; my $borrower = Koha::Patrons->find( \%info ); + my $catdesc = $borrower->category->description; if ( $borrower ) { $borrower = $borrower->unblessed; for ( qw(dateenrolled dateexpiry) ) { @@ -377,7 +378,7 @@ sub GetBorrowerInfos { } $borrower->{$_} = $userdate || ''; } - $borrower->{category_description} = Koha::Patron::Categories->find( $borrower->{categorycode} )->{description}; + $borrower->{category_description} = $catdesc; my $attr_loop = C4::Members::Attributes::GetBorrowerAttributes( $borrower->{borrowernumber} ); $borrower->{patron_attributes} = $attr_loop; } --