1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
<%init> my( $cust_fields, %opt ) = @_; use FS::ConfDefaults; $opt{'avail_fields'} ||= [ FS::ConfDefaults->cust_fields_avail() ]; tie my %hash, 'Tie::IxHash', @{ $opt{'avail_fields'} }; </%init> <SELECT NAME="cust_fields"> <OPTION VALUE="">(configured default) % foreach my $value ( keys %hash ) { <OPTION VALUE="<% $value %>"><% $hash{$value} %> % } </SELECT>