blob: 358e237d22cce17446f685d1d7db39889ea974b2 (
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
|
<SELECT NAME = "<% $opt{'element_name'} || $opt{'field'} || 'lnp_status' %>"
<% $opt{'element_etc'} %>
>
% unless ( $opt{'disable_empty'} ) {
<OPTION VALUE=""><% $opt{'empty_label'} || '' %></OPTION>
% }
% foreach my $selopt ( keys %seloptions ) {
% my $selected = ($selopt eq $opt{'curr_value'}) ? 'SELECTED' : '';
<OPTION VALUE="<%$selopt%>" <% $selected %>><% $seloptions{$selopt} %></OPTION>
% }
</SELECT>
<%init>
my %opt = @_;
my %seloptions = (
'native' => 'Native',
'portedin' => 'Ported In',
'portingin' => 'Porting In',
'portingout' => 'Porting Out',
'portin-reject' => 'Port-In Reject',
'portout-reject' => 'Port-Out Reject',
);
</%init>
|
