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

(-)a/Koha/Patron/Restriction.pm (-1 / +17 lines)
Lines 18-23 package Koha::Patron::Restriction; Link Here
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Koha::Database;
20
use Koha::Database;
21
use Koha::Patron::Restriction::Type;
21
22
22
use base qw(Koha::Object);
23
use base qw(Koha::Object);
23
24
Lines 29-34 Koha::Patron::Restriction - Koha Patron::Restriction Object class Link Here
29
30
30
=head2 Class methods
31
=head2 Class methods
31
32
33
=head2 Relation accessors
34
35
=head3 type
36
37
  my $restriction_type = $restriction->type;
38
39
Returns the restriction type
40
41
=cut
42
43
sub type {
44
    my ($self) = @_;
45
    my $type_rs = $self->_result->type;
46
    return Koha::Patron::Restriction::Type->_new_from_dbic($type_rs);
47
}
48
32
=head2 Internal methods
49
=head2 Internal methods
33
50
34
=head3 _type
51
=head3 _type
35
- 

Return to bug 31095