Lines 1947-1953
sub libraries_where_can_see_things {
Link Here
|
1947 |
my $subpermission = $params->{subpermission}; |
1947 |
my $subpermission = $params->{subpermission}; |
1948 |
my $group_feature = $params->{group_feature}; |
1948 |
my $group_feature = $params->{group_feature}; |
1949 |
|
1949 |
|
1950 |
return $self->{"_restricted_branchcodes:$permission:$subpermission:$group_feature"} |
1950 |
return @{ $self->{"_restricted_branchcodes:$permission:$subpermission:$group_feature"} } |
1951 |
if exists( $self->{"_restricted_branchcodes:$permission:$subpermission:$group_feature"} ); |
1951 |
if exists( $self->{"_restricted_branchcodes:$permission:$subpermission:$group_feature"} ); |
1952 |
|
1952 |
|
1953 |
my $userenv = C4::Context->userenv; |
1953 |
my $userenv = C4::Context->userenv; |
1954 |
- |
|
|