1 % unless ( $opt{'js_only'} ) {
2 <SELECT NAME="<% $opt{'field'} %>" SIZE="1" <%$disabled%> <%$onchange%> >
3 % for ( my $t = 0; $t <=1440; $t += $increment ) {
4 <OPTION VALUE="<% $t %>"
5 <% ( $curr_value eq '' && $t == $selected_default )
16 my $increment = $opt{increment} || 30;
17 my $selected_default = $opt{selected_default};
18 my $disabled = $opt{'disabled'} || '';
20 my $curr_value = $opt{curr_value};
23 if ( $opt{'onchange'} ) {
24 $onchange = $opt{'onchange'};
25 $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/;
26 $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange
27 #callbacks should act the same
28 $onchange = 'onChange="'. $onchange. '"' unless $onchange =~ /^onChange=/i;
34 return 'Midnight' if $t == 0 || $t == 1440;
35 return 'Noon' if $t == 720;
37 my $h = int( $t / 60 );
41 if ( $h == 0 || $h == 24 ) { $h = 12; }
42 elsif ( $h == 12 ) { $ap = 'PM'; }
43 elsif ( $h > 12 ) { $ap = 'PM'; $h -= 12; }
45 sprintf('%02d:%02d'." $ap", $h, $m);