|
Lines 215-224
sub build_authorized_values_list {
Link Here
|
| 215 |
($class_source eq $default_source); |
215 |
($class_source eq $default_source); |
| 216 |
push @authorised_values, $class_source; |
216 |
push @authorised_values, $class_source; |
| 217 |
$authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'}; |
217 |
$authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'}; |
| 218 |
$value = $class_source unless ($value); |
|
|
| 219 |
$value = $default_source unless ($value); |
| 220 |
} |
218 |
} |
| 221 |
#---- "true" authorised value |
219 |
$value = $default_source unless $value; |
| 222 |
} |
220 |
} |
| 223 |
else { |
221 |
else { |
| 224 |
$authorised_values_sth->execute( |
222 |
$authorised_values_sth->execute( |
| 225 |
- |
|
|