Lines 129-138
sub generate_subfield_form {
Link Here
|
129 |
if ( ! defined( $value ) || $value eq '') { |
129 |
if ( ! defined( $value ) || $value eq '') { |
130 |
$value = $subfieldlib->{defaultvalue}; |
130 |
$value = $subfieldlib->{defaultvalue}; |
131 |
# get today date & replace YYYY, MM, DD if provided in the default value |
131 |
# get today date & replace YYYY, MM, DD if provided in the default value |
132 |
my $today = dt_from_string; |
132 |
my $today_iso = output_pref( { dt=>dt_from_string, dateonly => 1, dateformat => 'iso' } ); |
133 |
$value =~ s/YYYY/$today->year/g; |
133 |
my ( $year, $month, $day ) = split ('-', $today_iso); |
134 |
$value =~ s/MM/$today->month/g; |
134 |
$value =~ s/YYYY/$year/g; |
135 |
$value =~ s/DD/$today->day/g; |
135 |
$value =~ s/MM/$month/g; |
|
|
136 |
$value =~ s/DD/$day/g; |
136 |
} |
137 |
} |
137 |
|
138 |
|
138 |
$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) || ($subfieldlib->{hidden} <= -4)); |
139 |
$subfield_data{visibility} = "display:none;" if (($subfieldlib->{hidden} > 4) || ($subfieldlib->{hidden} <= -4)); |
139 |
- |
|
|