View | Details | Raw Unified | Return to bug 23634
Collapse All | Expand All

(-)a/Koha/Patron.pm (-1 / +13 lines)
Lines 1337-1342 sub has_permission { Link Here
1337
    return C4::Auth::haspermission( $self->userid, $flagsrequired );
1337
    return C4::Auth::haspermission( $self->userid, $flagsrequired );
1338
}
1338
}
1339
1339
1340
=head3 is_superlibrarian
1341
1342
  my $is_superlibrarian = $patron->is_superlibrarian;
1343
1344
Return true if the patron is a superlibrarian.
1345
1346
=cut
1347
1348
sub is_superlibrarian {
1349
    my ($self) = @_;
1350
    return $self->has_permission( { superlibrarian => 1 } );
1351
}
1352
1340
=head3 is_adult
1353
=head3 is_adult
1341
1354
1342
my $is_adult = $patron->is_adult
1355
my $is_adult = $patron->is_adult
1343
- 

Return to bug 23634