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