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 |
- |
|
|