<& tr-td-label.html, label => 'Category', @_ &> % while(@options) { % my $value = shift @options; % my $selected = ($value eq $opt{'curr_value'}) ? 'SELECTED' : ''; ><% shift @options %> % } <%init> my %opt = ( field => 'fcc_voip_class', label => 'Category', @_ ); my @options = ( '' => '', 1 => 'VoIP without Broadband', 2 => 'VoIP with Broadband', 3 => 'Wholesale VoIP', 4 => 'Local Exchange (non-VoIP)', );