|
Lines 482-491
C<$opac> If set to a true value, displays OPAC descriptions rather than normal o
Link Here
|
| 482 |
=cut |
482 |
=cut |
| 483 |
|
483 |
|
| 484 |
sub GetAuthorisedValues { |
484 |
sub GetAuthorisedValues { |
| 485 |
my ( $category, $opac ) = @_; |
485 |
my $category = shift // ''; # optional parameter |
|
|
486 |
my $opac = shift ? 1 : 0; # normalise to be safe |
| 486 |
|
487 |
|
| 487 |
# Is this cached already? |
488 |
# Is this cached already? |
| 488 |
$opac = $opac ? 1 : 0; # normalise to be safe |
|
|
| 489 |
my $branch_limit = |
489 |
my $branch_limit = |
| 490 |
C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; |
490 |
C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; |
| 491 |
my $cache_key = |
491 |
my $cache_key = |
| 492 |
- |
|
|