@@ -, +, @@
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;
}
--