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