httemplate/view/elements/tr-svc_export_machine.html

   1 % foreach my $part_export (@part_export) {
   2 %   my $label = ( $part_export->exportname
   3 %                   ? $part_export->exportname
   4 %                   : $part_export->label
   5 %               ).
   6 %               ' hostname';
   7 %
   8 %   my $svc_export_machine = qsearchs('svc_export_machine', {
   9 %     'svcnum'    => $opt{svc}->svcnum,
  10 %     'exportnum' => $part_export->exportnum,
  11 %   });
  12
  13     <& tr.html,
  14          'label' => $label,
  15          'value' => $svc_export_machine
  16                       ? $svc_export_machine->part_export_machine->machine
  17                       : '',
  18     &>
  19 % }
  20 <%init>
  21
  22 my %opt = @_;
  23
  24 my @part_export = grep { $_->machine eq '_SVC_MACHINE' }
  25                     $opt{part_svc}->part_export;
  26
  27 </%init>