|
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 |
- |
|
|