blob: 649f8a2d0d99703894b424dfffebd2a33b812441 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
<% 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';
</%init>
|
