blob: 92b6ac1d7db6a1d4ae8d090f032e69f572edbf45 (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
|
% foreach my $part_export (@part_export) {
% my $label = ( $part_export->exportname
% ? $part_export->exportname
% : $part_export->label
% ).
% ' hostname';
%
% my $element = 'exportnum'. $part_export->exportnum. 'machinenum';
% my $machinenum = $opt{cgi}->param($element);
% if ( ! $machinenum && $opt{svc}->svcnum ) {
% my $svc_export_machine = qsearchs('svc_export_machine', {
% 'svcnum' => $opt{svc}->svcnum,
% 'exportnum' => $part_export->exportnum,
% });
% $machinenum = $svc_export_machine->machinenum if $svc_export_machine;
% }
<& /elements/tr-select-table.html,
'label' => $label,
'element_name' => 'exportnum'. $part_export->exportnum. 'machinenum',
'table' => 'part_export_machine',
'name_col' => 'machine',
'hashref' => { 'exportnum' => $part_export->exportnum,
'disabled' => '',
},
'curr_value' => $machinenum,
'empty_label' => 'Select export hostname',
&>
% }
<%init>
my %opt = @_;
my @part_export = grep { $_->machine eq '_SVC_MACHINE' }
$opt{part_svc}->part_export;
</%init>
|
