% unless ( $opt{'js_only'} ) { % } <%init> my %opt = @_; my $increment = $opt{increment} || 30; my $selected_default = $opt{selected_default}; my $disabled = $opt{'disabled'} || ''; my $curr_value = $opt{curr_value}; my $onchange = ''; if ( $opt{'onchange'} ) { $onchange = $opt{'onchange'}; $onchange .= '(this)' unless $onchange =~ /\(\w*\);?$/; $onchange =~ s/\(what\);/\(this\);/g; #ugh, terrible hack. all onchange #callbacks should act the same $onchange = 'onChange="'. $onchange. '"' unless $onchange =~ /^onChange=/i; }