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 )
9 ><% FS::sched_avail::pretty_time($t) %>
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;