<% include('tr-select.html', @_, 'field' => 'freq', 'options' => \@freq, 'labels' => \%freq, 'curr_value' => $curr_value, ) %> <%init> my %opt = @_; my $curr_value = $opt{'curr_value'} || $opt{'freq'}; tie my %freq, 'Tie::IxHash', %{FS::part_pkg->freqs_href()}; if ( dbdef->table('part_pkg')->column('freq')->type =~ /(int)/i ) { delete $freq{$_} foreach grep { ! /^\d+$/ } keys %freq; } my @freq = keys %freq; @freq = grep { /^\d+$/ } @freq if $opt{'month_increments_only'}; # if exists($plans{$layer}->{'freq'}) && $plans{$layer}->{'freq'} eq 'm';