5 my $prefix = $opt{'prefix'} || '';
6 my $disabled = $opt{'disabled'} || '';
7 my $empty = $opt{'empty_option'} || '';
8 my $date = $opt{'selected_date'} || '';
9 $date = '' if $date eq '-';
10 #$date ||= '01-2000' unless $empty;
11 my $start_year = $opt{'start_year'};
12 my $end_year = $opt{'end_year'} || '2037';
14 my( $mon, $year ) = (0, 0);
16 if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
17 ( $mon, $year ) = ( $2, $1 );
18 } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
19 ( $mon, $year ) = ( $1, $3 );
21 die "unrecognized expiration date format: $date";
25 unless ( $start_year ) {
27 $start_year = $t[5] + 1900;
29 $start_year = $year if $start_year > $year && $year > 0;
33 <SELECT NAME="<%= $prefix %>_month" SIZE="1" <%= $disabled%>>
35 <%= $empty ? '<OPTION VALUE="">' : '' %>
37 <% for ( 1 .. 12 ) { %>
38 <OPTION<%= $_ == $mon ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
41 </SELECT>/<SELECT NAME="<%= $prefix %>_year" SIZE="1" <%= $disabled%>>
43 <%= $empty ? '<OPTION VALUE="">' : '' %>
45 <% for ( $start_year .. $end_year ) { %>
46 <OPTION<%= $_ == $year ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>