+ my @mon;
+ if ( $opt{'show_month_abbr'} ) {
+ @mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
+ # XXX: localization
+ } else {
+ @mon = ( ( map "0$_", 1 .. 9 ), 10 .. 12 ),
+ }
+
+ my $date = $opt{'selected_date'} || '';
+ $date = '' if $date eq '-';
+
+ my $mon = $opt{'selected_mon'} || 0;
+ my $year = $opt{'selected_year'} || 0;