UI_DATE_BEGIN — default first year for date widget
Interchange 5.7.0:
Source: lib/Vend/Form.pm (rev. 2.76 from Sun May 11 00:01:19 2008)
Line 500 (context shows lines 490-504 in date_widget():426)
$o = qq{<option value="$_->[0]"$opt_extra>$_->[1]} . '</option>';
($out .= $o, next) unless ! $sel and $val;
$o =~ s/>/ SELECTED>/ && $sel++
if substr($val, 6, 2) eq $_->[0];
$out .= $o;
}
$sel = 0;
$out .= qq{</select>};
$out .= qq{<input type="hidden" name="$name" value="/">};
$out .= qq{<select name="$name"$sel_extra>};
if(my $by = $opt->{year_begin} || $::Variable->{UI_DATE_BEGIN}) {
my $cy = $t[5] + 1900;
my $ey = $opt->{year_end} || $::Variable->{UI_DATE_END} || ($cy + 10);
if($by < 100) {
$by = $cy - abs($by);