httemplate/elements/select-month_year.html

   1 <%
   2
   3   my %opt = @_;
   4
   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';
  13
  14   my( $mon, $year ) = (0, 0);
  15   if ( $date ) {
  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 );
  20     } else {
  21       die "unrecognized expiration date format: $date";
  22     }
  23   }
  24
  25   unless ( $start_year ) {
  26     my @t = localtime;
  27     $start_year = $t[5] + 1900;
  28   }
  29   $start_year = $year if $start_year > $year && $year > 0;
  30
  31 %>
  32
  33 <SELECT NAME="<%= $prefix %>_month" SIZE="1" <%= $disabled%>>
  34
  35 <%= $empty ? '<OPTION VALUE="">' : '' %>
  36
  37 <% for ( 1 .. 12 ) { %>
  38    <OPTION<%= $_ == $mon ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
  39 <% } %>
  40
  41 </SELECT>/<SELECT NAME="<%= $prefix %>_year" SIZE="1" <%= $disabled%>>
  42
  43 <%= $empty ? '<OPTION VALUE="">' : '' %>
  44
  45 <% for ( $start_year .. $end_year ) { %>
  46    <OPTION<%= $_ == $year ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
  47 <% } %>
  48
  49 </SELECT>
  50