1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
% % my( $status, %opt ) = @_; % % $opt{'statuses'} ||= [ FS::cust_pkg->statuses() ]; # { disabled=>'' } ) % % <SELECT NAME="status"> <OPTION VALUE="">all % foreach my $status ( @{ $opt{'statuses'} } ) { <OPTION VALUE="<% $status %>"><% $status %> % } </SELECT>