<% $onchange %> > % unless ( $opt{'multiple'} || $opt{'disable_empty'} ) { ><% mt('all') |h %> % } % foreach my $option ( keys %{ $opt{'paybys'} } ) { % my $sel = $opt{'all_selected'} % || ( ref($value) && $value->{$option} ) % || $option eq $value; ><% $opt{'paybys'}->{$option} %> % } <%init> my %opt = @_; my $method = 'payby'; $method = 'cust_payby' if $opt{'payby_type'} eq 'cust'; unless ( $opt{'paybys'} ) { tie %{ $opt{'paybys'} }, 'Tie::IxHash', FS::payby->$method(); } my $onchange = $opt{'onchange'} ? 'onChange="'. $opt{'onchange'}. '(this)"' : ''; my $value = $opt{'curr_value'} || $opt{'value'};