|
Lines 292-300
sub create_input {
Link Here
|
| 292 |
|
292 |
|
| 293 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
293 |
my $index_subfield = CreateKey(); # create a specifique key for each subfield |
| 294 |
|
294 |
|
| 295 |
# Apply optional framework default value when it is a new record |
295 |
# Apply optional framework default value when it is a new record, |
|
|
296 |
# or when editing as new (duplicating a record), |
| 297 |
# or when changing a record's framework, |
| 298 |
# based on the ApplyFrameworkDefaults setting. |
| 296 |
# Substitute date parts, user name |
299 |
# Substitute date parts, user name |
| 297 |
if ( $value eq '' && !$cgi->param('biblionumber') ) { |
300 |
my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults'); |
|
|
301 |
if ( $value eq '' && ( |
| 302 |
( $applydefaults =~ /new/ && !$cgi->param('biblionumber') ) || |
| 303 |
( $applydefaults =~ /duplicate/ && $cgi->param('op') eq 'duplicate' ) || |
| 304 |
( $applydefaults =~ /changed/ && $cgi->param('changed_framework') ) |
| 305 |
) ) { |
| 298 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
306 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
| 299 |
|
307 |
|
| 300 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
308 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
| 301 |
- |
|
|