summaryrefslogtreecommitdiff
path: root/httemplate/view/elements/tr-svc_export_machine.html
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>