<TD>
<SELECT NAME="month">
<%= for ( ( map "0$_", 1 .. 9 ), 11, 12 ) {
- $OUT .= '<OPTION'. ($_ eq $month ? ' SELECTED' : ''). ">$_\n";
+ $OUT .= '<OPTION'. ($_ == $month ? ' SELECTED' : ''). ">$_\n";
} %>
</SELECT>
</TD>
<TD>
<SELECT NAME="year">
<%= my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) {
- $OUT .= '<OPTION'. ($_ eq $year ? ' SELECTED' : ''). ">$_\n";
+ $OUT .= '<OPTION'. ($_ == $year ? ' SELECTED' : ''). ">$_\n";
} %>
</SELECT>
</TD>
<TD>
<SELECT NAME="month">
<% for ( ( map "0$_", 1 .. 9 ), 11, 12 ) { %>
- <OPTION<%= $_ eq $month ? ' SELECTED' : '' %>><%= $_ %>
+ <OPTION<%= $_ == $month ? ' SELECTED' : '' %>><%= $_ %>
<% } %>
</SELECT>
</TD>
<TD>
<SELECT NAME="year">
<% my @a = localtime; for ( $a[5]+1900 .. $a[5]+1915 ) { %>
- <OPTION<%= $_ eq $year ? ' SELECTED' : '' %>><%= $_ %>
+ <OPTION<%= $_ == $year ? ' SELECTED' : '' %>><%= $_ %>
<% } %>
</SELECT>
</TD>