|
Lines 288-296
sub create_input {
Link Here
|
| 288 |
|
288 |
|
| 289 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
289 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
| 290 |
|
290 |
|
| 291 |
# Apply optional framework default value when it is a new record |
291 |
# Apply optional framework default value when it is a new record (and not an import) |
| 292 |
# Substitute date parts, user name |
292 |
# Substitute date parts, user name |
| 293 |
if ( $value eq '' && !$cgi->param('biblionumber') ) { |
293 |
if ( $value eq '' && !$cgi->param('biblionumber') && !$cgi->param('breedingid') ) { |
| 294 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
294 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
| 295 |
|
295 |
|
| 296 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
296 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
| 297 |
- |
|
|