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

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

Return to bug 23634