blob: 1ba8d74a1794f220c7f2a598ae7abe114ebefaeb (
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
|
% foreach my $part_export (@part_export) {
% my $label = ( $part_export->exportname
% ? $part_export->exportname
% : $part_export->label
% ).
% ' hostname';
%
% my $svc_export_machine = qsearchs('svc_export_machine', {
% 'svcnum' => $opt{svc}->svcnum,
% 'exportnum' => $part_export->exportnum,
% });
<& tr.html,
'label' => $label,
'value' => $svc_export_machine
? $svc_export_machine->part_export_machine->machine
: '',
&>
% }
<%init>
my %opt = @_;
my @part_export = grep { $_->machine eq '_SVC_MACHINE' }
$opt{part_svc}->part_export;
</%init>
|