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

(-)a/Koha/Patron/Category.pm (-8 / +49 lines)
Lines 36-53 Koha::Patron;;Category - Koha Patron;;Category Object class Link Here
36
36
37
=cut
37
=cut
38
38
39
=head3 effective_BlockExpiredPatronOpacActions
39
=head3 effective_BlockExpiredPatronOpacActions_contains
40
40
41
my $BlockExpiredPatronOpacActions = $category->effective_BlockExpiredPatronOpacActions
41
my $actionBlocked = $category->effective_BlockExpiredPatronOpacActions_contains('hold');
42
42
43
Return the effective BlockExpiredPatronOpacActions value.
43
Return if the provided action is blocked by BlockExpiredPatronOpacActions, accounting for the syspref.
44
45
=over
46
47
=item action
48
49
Action, can be one of: ['hold', 'renew']
50
51
=back
44
52
45
=cut
53
=cut
46
54
47
sub effective_BlockExpiredPatronOpacActions {
55
sub effective_BlockExpiredPatronOpacActions_contains {
48
    my( $self) = @_;
56
    my ( $self, $action ) = @_;
49
    return C4::Context->preference('BlockExpiredPatronOpacActions') if $self->BlockExpiredPatronOpacActions == -1;
57
50
    return $self->BlockExpiredPatronOpacActions
58
    my $blocked_actions = {
59
        map { ( $_, 1 ); } split /\s*\,\s*/,
60
        C4::Context->preference('BlockExpiredPatronOpacActions')
61
    };
62
63
    return $blocked_actions->{$action} if $self->BlockExpiredPatronOpacActions_contains('follow_syspref_BlockExpiredPatronOpacActions');
64
    return $self->BlockExpiredPatronOpacActions_contains($action)
65
}
66
67
=head3 BlockExpiredPatronOpacActions_contains
68
69
my $actionBlocked = $self->BlockExpiredPatronOpacActions_contains('hold');
70
71
Return if the provided action is blocked by this category's BlockExpiredPatronOpacActions value.
72
73
=over
74
75
=item action
76
77
Action, can be one of: ['hold', 'renew']
78
79
=back
80
81
=cut
82
83
sub BlockExpiredPatronOpacActions_contains {
84
    my ( $self, $action ) = @_;
85
86
    my $blocked_actions = {
87
        map { ( $_, 1 ); } split /\s*\,\s*/,
88
        $self->BlockExpiredPatronOpacActions
89
    };
90
91
    return unless $blocked_actions->{$action};
92
    return 1;
51
}
93
}
52
94
53
=head3 store
95
=head3 store
54
- 

Return to bug 36453