|
Lines 316-322
my $pref_itemcallnumber = C4::Context->preference('itemcallnumber');
Link Here
|
| 316 |
my $subfieldsToAllowForBatchmod = C4::Context->preference('SubfieldsToAllowForRestrictedBatchmod'); |
316 |
my $subfieldsToAllowForBatchmod = C4::Context->preference('SubfieldsToAllowForRestrictedBatchmod'); |
| 317 |
my $allowAllSubfields = ( |
317 |
my $allowAllSubfields = ( |
| 318 |
not defined $subfieldsToAllowForBatchmod |
318 |
not defined $subfieldsToAllowForBatchmod |
| 319 |
or $subfieldsToAllowForBatchmod == q|| |
319 |
or $subfieldsToAllowForBatchmod eq q|| |
| 320 |
) ? 1 : 0; |
320 |
) ? 1 : 0; |
| 321 |
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod); |
321 |
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForBatchmod); |
| 322 |
|
322 |
|
| 323 |
- |
|
|