blob: 33d44a7130d904cb9ea14ffbafc72a3c0779671e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
% if ( @part_svc || $opt{'showall'} ) {
| <SELECT NAME="svcpart" onChange="enable_change()">
<OPTION VALUE="">Change service</OPTION>
<OPTION VALUE="">--------------</OPTION>
% foreach my $opt_part_svc ( @part_svc ) {
<OPTION VALUE="<% $opt_part_svc->svcpart %>"><% $opt_part_svc->svc %></OPTION>
% }
</SELECT>
<INPUT NAME="submit" TYPE="submit" VALUE="Change" disabled>
% }
<%init>
my %opt = @_;
my @part_svc = @{ $opt{'part_svc'} };
</%init>
|