|
Lines 361-370
sub build_authorized_values_list {
Link Here
|
| 361 |
} |
361 |
} |
| 362 |
} |
362 |
} |
| 363 |
|
363 |
|
|
|
364 |
my $id_subfield = $subfield; |
| 365 |
$id_subfield = "00" if $id_subfield eq "@"; |
| 366 |
|
| 364 |
return { |
367 |
return { |
| 365 |
type => 'select', |
368 |
type => 'select', |
| 366 |
id => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
369 |
id => "tag_".$tag."_subfield_".$id_subfield."_".$index_tag."_".$index_subfield, |
| 367 |
name => "tag_".$tag."_subfield_".$subfield."_".$index_tag."_".$index_subfield, |
370 |
name => "tag_".$tag."_subfield_".$id_subfield."_".$index_tag."_".$index_subfield, |
| 368 |
default => $value, |
371 |
default => $value, |
| 369 |
values => \@authorised_values, |
372 |
values => \@authorised_values, |
| 370 |
labels => \%authorised_lib, |
373 |
labels => \%authorised_lib, |
| 371 |
- |
|
|