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 $start_year = $opt{'start_year'};
   9   my $end_year = $opt{'end_year'} || '2037';
  10
  11   my @mon;
  12   if ( $opt{'show_month_abbr'} ) {
  13     @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
  14   } else {
  15     @mon = ( 1 .. 12 );
  16   }
  17
  18   my $date = $opt{'selected_date'} || '';
  19   $date = '' if $date eq '-';
  20   #$date ||= '01-2000' unless $empty;
  21
  22   my $mon  = $opt{'selected_mon'}  || 0;
  23   my $year = $opt{'selected_year'} || 0;
  24   if ( $date ) {
  25     if ( $date  =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format
  26       ( $mon, $year ) = ( $2, $1 );
  27     } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) {
  28       ( $mon, $year ) = ( $1, $3 );
  29     } else {
  30       die "unrecognized expiration date format: $date";
  31     }
  32   }
  33
  34   unless ( $start_year ) {
  35     my @t = localtime;
  36     $start_year = $t[5] + 1900;
  37   }
  38   $start_year = $year if $start_year > $year && $year > 0;
  39
  40 %>
  41
  42 <SELECT NAME="<%= $prefix %>_month" SIZE="1" <%= $disabled%>>
  43
  44 <%= $empty ? '<OPTION VALUE="">' : '' %>
  45
  46 <% foreach ( 1 .. 12 ) { %>
  47    <OPTION<%= $_ == $mon ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $mon[$_-1] %>
  48 <% } %>
  49
  50 </SELECT>/<SELECT NAME="<%= $prefix %>_year" SIZE="1" <%= $disabled%>>
  51
  52 <%= $empty ? '<OPTION VALUE="">' : '' %>
  53
  54 <% for ( $start_year .. $end_year ) { %>
  55    <OPTION<%= $_ == $year ? ' SELECTED' : '' %> VALUE="<%= $_ %>"><%= $_ %>
  56 <% } %>
  57
  58 </SELECT>
  59