Attachment #140238 for bug #30250

View | Details | Raw Unified | Return to bug 30250
Collapse All | Expand All




        $max_length = 40;
    }

    # Apply optional framework default value when it is a new record,
    # or when editing as new (duplicating a record),
    # based on the ApplyFrameworkDefaults setting.
    # Substitute date parts, user name
    my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults');
    if ( $value eq '' && (
        ( $applydefaults =~ /new/ && !$cgi->param('authid') ) ||
        ( $applydefaults =~ /duplicate/ && $cgi->param('op') eq 'duplicate' )
    ) ) {
        $value = $tagslib->{$tag}->{$subfield}->{defaultvalue};
        if (!defined $value) {
            $value = q{};
        }

Lines 288-296 sub create_input { Link Here

(-)a/cataloguing/addbiblio.pl (-3 / +10 lines)
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,
		292	# or when editing as new (duplicating a record),
		293	# or when changing a record's framework,
		294	# based on the ApplyFrameworkDefaults setting.
292	# Substitute date parts, user name	295	# Substitute date parts, user name
293	if ( $value eq '' && !$cgi->param('biblionumber') ) {	296	my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults');
		297	if ( $value eq '' && (
		298	( $applydefaults =~ /new/ && !$cgi->param('biblionumber') ) \|\|
		299	( $applydefaults =~ /duplicate/ && $cgi->param('op') eq 'duplicate' ) \|\|
		300	( $applydefaults =~ /changed/ && $cgi->param('changed_framework') )
		301	) ) {
294	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{};	302	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{};
295		303
296	# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value	304	# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value
297	-

Return to bug 30250

Lines 112-120 sub create_input { Link Here

(-)a/authorities/authorities.pl (-3 / +10 lines)
112	$max_length = 40;	112	$max_length = 40;
113	}	113	}
114		114
115	# if there is no value provided but a default value in parameters, get it	115	# Apply optional framework default value when it is a new record,
116	if ($value eq '') {	116	# or when editing as new (duplicating a record),
117	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} if !$cgi->param('authid'); # only for new records	117	# based on the ApplyFrameworkDefaults setting.
		118	# Substitute date parts, user name
		119	my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults');
		120	if ( $value eq '' && (
		121	( $applydefaults =~ /new/ && !$cgi->param('authid') ) \|\|
		122	( $applydefaults =~ /duplicate/ && $cgi->param('op') eq 'duplicate' )
		123	) ) {
		124	$value = $tagslib->{$tag}->{$subfield}->{defaultvalue};
118	if (!defined $value) {	125	if (!defined $value) {
119	$value = q{};	126	$value = q{};
120	}	127	}