1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
<% 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>