|
Lines 92-98
sub build_authorized_values_list {
Link Here
|
| 92 |
"select itemtype,description from itemtypes order by description"); |
92 |
"select itemtype,description from itemtypes order by description"); |
| 93 |
$sth->execute; |
93 |
$sth->execute; |
| 94 |
push @authorised_values, "" |
94 |
push @authorised_values, "" |
| 95 |
unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); |
95 |
unless ( $tagslib->{$tag}->{$subfield}->{mandatory} |
|
|
96 |
&& ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) ); |
| 96 |
|
97 |
|
| 97 |
my $itemtype; |
98 |
my $itemtype; |
| 98 |
|
99 |
|
|
Lines 109-115
sub build_authorized_values_list {
Link Here
|
| 109 |
$tagslib->{$tag}->{$subfield}->{authorised_value} ); |
110 |
$tagslib->{$tag}->{$subfield}->{authorised_value} ); |
| 110 |
|
111 |
|
| 111 |
push @authorised_values, "" |
112 |
push @authorised_values, "" |
| 112 |
unless ( $tagslib->{$tag}->{$subfield}->{mandatory} ); |
113 |
unless ( $tagslib->{$tag}->{$subfield}->{mandatory} |
|
|
114 |
&& ( $value || $tagslib->{$tag}->{$subfield}->{defaultvalue} ) ); |
| 113 |
|
115 |
|
| 114 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
116 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
| 115 |
push @authorised_values, $value; |
117 |
push @authorised_values, $value; |