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

(-)a/cataloguing/additem.pl (-2 / +2 lines)
Lines 159-166 sub generate_subfield_form { Link Here
159
        my $attributes_no_value_textarea = qq(id="$subfield_data{id}" name="field_value" class="input_marceditor" rows="5" cols="64" );
159
        my $attributes_no_value_textarea = qq(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
(-)a/tools/batchMod.pl (-2 / +1 lines)
Lines 300-306 unshift (@$branches, $nochange_branch); Link Here
300
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
300
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
301
301
302
# Getting list of subfields to keep when limited batchmod edit is enabled
302
# Getting list of subfields to keep when limited batchmod edit is enabled
303
my $subfieldsToAllowForBatchmod = C4::Context->preference('SubfieldsToAllowForLimitedBatchmod');
303
my $subfieldsToAllowForBatchmod = C4::Context->preference('SubfieldsToAllowForRestrictedBatchmod');
304
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod);
304
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod);
305
305
306
foreach my $tag (sort keys %{$tagslib}) {
306
foreach my $tag (sort keys %{$tagslib}) {
307
- 

Return to bug 7673