Lines 244-257
sub generate_subfield_form {
Link Here
|
244 |
my $default_source = |
244 |
my $default_source = |
245 |
C4::Context->preference("DefaultClassificationSource"); |
245 |
C4::Context->preference("DefaultClassificationSource"); |
246 |
|
246 |
|
247 |
foreach my $class_source (sort {fc($a) cmp fc($b)} keys %$class_sources) { |
247 |
foreach my $class_source ( sort { fc($a) cmp fc($b) } keys %$class_sources ) { |
248 |
next |
248 |
next |
249 |
unless $class_sources->{$class_source}->{'used'} |
249 |
unless $class_sources->{$class_source}->{'used'} |
250 |
or ( $value and $class_source eq $value ) |
250 |
or ( $value and $class_source eq $value ) |
251 |
or ( $class_source eq $default_source ); |
251 |
or ( $class_source eq $default_source ); |
252 |
push @authorised_values, $class_source; |
252 |
push @authorised_values, $class_source; |
253 |
$authorised_lib{$class_source} = |
253 |
$authorised_lib{$class_source} = |
254 |
$class_sources->{$class_source}->{'description'}; |
254 |
$class_sources->{$class_source}->{'description'}; |
255 |
} |
255 |
} |
256 |
$value = $default_source if !$value && $prefill_with_default_values; |
256 |
$value = $default_source if !$value && $prefill_with_default_values; |
257 |
|
257 |
|
258 |
- |
|
|