Lines 37-42
use List::MoreUtils qw( uniq );
Link Here
|
37 |
use Scalar::Util qw( looks_like_number ); |
37 |
use Scalar::Util qw( looks_like_number ); |
38 |
use Koha::Patron::Attribute::Types; |
38 |
use Koha::Patron::Attribute::Types; |
39 |
use Koha::Patron::Restriction::Types; |
39 |
use Koha::Patron::Restriction::Types; |
|
|
40 |
use Koha::Patron::Categories; |
40 |
use Koha::Patron::Messages; |
41 |
use Koha::Patron::Messages; |
41 |
use Koha::CsvProfiles; |
42 |
use Koha::CsvProfiles; |
42 |
use Koha::Holds; |
43 |
use Koha::Holds; |
Lines 132-137
if ( !$patron->is_valid_age ) {
Link Here
|
132 |
$template->param( age_high => $patron->category->upperagelimit ); |
133 |
$template->param( age_high => $patron->category->upperagelimit ); |
133 |
} |
134 |
} |
134 |
|
135 |
|
|
|
136 |
unless ( Koha::Patron::Categories->search_with_library_limits( { 'me.categorycode' => $patron->categorycode } )->count ) { |
137 |
$template->param( limited_category => 1 ); |
138 |
} |
139 |
|
135 |
if (C4::Context->preference('ExtendedPatronAttributes')) { |
140 |
if (C4::Context->preference('ExtendedPatronAttributes')) { |
136 |
my @attributes = $patron->extended_attributes->as_list; # FIXME Must be improved! |
141 |
my @attributes = $patron->extended_attributes->as_list; # FIXME Must be improved! |
137 |
my @classes = uniq( map {$_->type->class} @attributes ); |
142 |
my @classes = uniq( map {$_->type->class} @attributes ); |
138 |
- |
|
|