|
Lines 340-351
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
| 340 |
#---- "true" authorised value |
340 |
#---- "true" authorised value |
| 341 |
} |
341 |
} |
| 342 |
else { |
342 |
else { |
| 343 |
push @authorised_values, "" unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); |
343 |
push @authorised_values, ""; # unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); |
| 344 |
$authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} ); |
344 |
$authorised_values_sth->execute( $tagslib->{$tag}->{$subfield}->{authorised_value} ); |
| 345 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
345 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
| 346 |
push @authorised_values, $value; |
346 |
push @authorised_values, $value; |
| 347 |
$authorised_lib{$value} = $lib; |
347 |
$authorised_lib{$value} = $lib; |
| 348 |
} |
348 |
} |
|
|
349 |
$value=""; |
| 349 |
} |
350 |
} |
| 350 |
$subfield_data{marc_value} =CGI::scrolling_list( # FIXME: factor out scrolling_list |
351 |
$subfield_data{marc_value} =CGI::scrolling_list( # FIXME: factor out scrolling_list |
| 351 |
-name => "field_value", |
352 |
-name => "field_value", |
| 352 |
- |
|
|