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