Lines 2069-2074
sub is_denied_renewal {
Link Here
|
2069 |
my $denyingrules = C4::Context->yaml_preference('ItemsDeniedRenewal'); |
2069 |
my $denyingrules = C4::Context->yaml_preference('ItemsDeniedRenewal'); |
2070 |
return 0 unless $denyingrules; |
2070 |
return 0 unless $denyingrules; |
2071 |
foreach my $field (keys %$denyingrules) { |
2071 |
foreach my $field (keys %$denyingrules) { |
|
|
2072 |
# Silently ignore bad column names; TODO we should validate elsewhere |
2073 |
next if !$self->_result->result_source->has_column($field); |
2072 |
my $val = $self->$field; |
2074 |
my $val = $self->$field; |
2073 |
if( !defined $val) { |
2075 |
if( !defined $val) { |
2074 |
if ( any { !defined $_ } @{$denyingrules->{$field}} ){ |
2076 |
if ( any { !defined $_ } @{$denyingrules->{$field}} ){ |
2075 |
- |
|
|