httemplate/elements/tr-svc_export_machine.html


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>