Lines 91-105
sub generate_subfield_form {
Link Here
|
91 |
# based on the ApplyFrameworkDefaults setting. |
91 |
# based on the ApplyFrameworkDefaults setting. |
92 |
# Substitute date parts, user name |
92 |
# Substitute date parts, user name |
93 |
my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults'); |
93 |
my $applydefaults = C4::Context->preference('ApplyFrameworkDefaults'); |
94 |
if ( |
94 |
|
95 |
$value eq '' |
95 |
my $form_mode = ''; |
96 |
&& ( ( $applydefaults =~ /new/ && !$self->{biblionumber} ) |
96 |
if ( $op eq '' ) { |
97 |
|| ( $applydefaults =~ /duplicate/ && $op eq 'duplicate' ) |
97 |
$form_mode = 'new'; |
98 |
|| ( $applydefaults =~ /changed/ && $changed_framework ) |
98 |
} elsif ( $op eq 'duplicate' ) { |
99 |
|| ( $applydefaults =~ /imported/ && $breedingid ) ) |
99 |
$form_mode = 'duplicate'; |
100 |
) |
100 |
} elsif ($changed_framework) { |
|
|
101 |
$form_mode = 'changed'; |
102 |
} elsif ($breedingid) { |
103 |
$form_mode = 'imported'; |
104 |
} |
105 |
|
106 |
my ($framework_override) = |
107 |
Koha::Plugins->call( 'framework_defaults_override', $tag, $subfield, $value, $form_mode ); |
108 |
|
109 |
if ( ( $value eq '' || $framework_override->{apply_override} ) |
110 |
&& ( $applydefaults =~ /$form_mode/ ) ) |
101 |
{ |
111 |
{ |
102 |
$value = $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
112 |
$value = $framework_override->{override_default_value} // $tagslib->{$tag}->{$subfield}->{defaultvalue} // q{}; |
103 |
|
113 |
|
104 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
114 |
# get today date & replace <<YYYY>>, <<YY>>, <<MM>>, <<DD>> if provided in the default value |
105 |
my $today_dt = dt_from_string; |
115 |
my $today_dt = dt_from_string; |
106 |
- |
|
|