Lines 1327-1332
sub libraries_where_can_see_patrons {
Link Here
|
1327 |
return @restricted_branchcodes; |
1327 |
return @restricted_branchcodes; |
1328 |
} |
1328 |
} |
1329 |
|
1329 |
|
|
|
1330 |
=head3 has_permission |
1331 |
|
1332 |
my $permission = $patron->has_permission($required); |
1333 |
|
1334 |
See C4::Auth::haspermission for details of syntax for $required |
1335 |
|
1336 |
=cut |
1337 |
|
1330 |
sub has_permission { |
1338 |
sub has_permission { |
1331 |
my ( $self, $flagsrequired ) = @_; |
1339 |
my ( $self, $flagsrequired ) = @_; |
1332 |
return unless $self->userid; |
1340 |
return unless $self->userid; |
1333 |
- |
|
|