|
Lines 114-127
sub _getCodedFields {
Link Here
|
| 114 |
my $cached = $cache->get_from_cache( $cache_key, { unsafe => 1 } ); |
114 |
my $cached = $cache->get_from_cache( $cache_key, { unsafe => 1 } ); |
| 115 |
return $cached if $cached; |
115 |
return $cached if $cached; |
| 116 |
|
116 |
|
| 117 |
my $coded_fields = { |
117 |
my $coded_fields = {}; |
| 118 |
map { |
118 |
my @fields = Koha::MarcSubfieldStructures->search( |
| 119 |
$_->tagfield => { |
|
|
| 120 |
$_->tagsubfield => { |
| 121 |
'authorised_value' => $_->authorised_value |
| 122 |
} |
| 123 |
} |
| 124 |
} Koha::MarcSubfieldStructures->search( |
| 125 |
{ |
119 |
{ |
| 126 |
frameworkcode => $frameworkcode, |
120 |
frameworkcode => $frameworkcode, |
| 127 |
authorised_value => { '>' => '' } |
121 |
authorised_value => { '>' => '' } |
|
Lines 130-137
sub _getCodedFields {
Link Here
|
| 130 |
columns => [ 'tagfield', 'tagsubfield', 'authorised_value' ], |
124 |
columns => [ 'tagfield', 'tagsubfield', 'authorised_value' ], |
| 131 |
order_by => [ 'tagfield', 'tagsubfield' ] |
125 |
order_by => [ 'tagfield', 'tagsubfield' ] |
| 132 |
} |
126 |
} |
| 133 |
)->as_list |
127 |
)->as_list; |
| 134 |
}; |
128 |
for my $field (@fields) { |
|
|
129 |
$coded_fields->{ $field->tagfield }->{ $field->tagsubfield }->{'authorised_value'} = $field->authorised_value; |
| 130 |
} |
| 135 |
|
131 |
|
| 136 |
$cache->set_in_cache( $cache_key, $coded_fields ); |
132 |
$cache->set_in_cache( $cache_key, $coded_fields ); |
| 137 |
return $coded_fields; |
133 |
return $coded_fields; |
| 138 |
- |
|
|