Lines 159-166
sub generate_subfield_form {
Link Here
|
159 |
my $attributes_no_value_textarea = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" rows="5" cols="64" ); |
159 |
my $attributes_no_value_textarea = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" rows="5" cols="64" ); |
160 |
|
160 |
|
161 |
# Getting list of subfields to keep when limited edition is enabled |
161 |
# Getting list of subfields to keep when limited edition is enabled |
162 |
my $subfieldsToAllowForLimitedEdition = C4::Context->preference('SubfieldsToAllowForLimitedEdition'); |
162 |
my $subfieldsToAllowForRestrictedEdition = C4::Context->preference('SubfieldsToAllowForRestrictedEdition'); |
163 |
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForLimitedEdition); |
163 |
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForRestrictedEdition); |
164 |
|
164 |
|
165 |
# If we're on limited edition, and our field is not in the list of subfields to allow, |
165 |
# If we're on limited edition, and our field is not in the list of subfields to allow, |
166 |
# then it is read-only |
166 |
# then it is read-only |