httemplate/browse/part_export.cgi

   1 <% include("/elements/header.html", "Export Listing") %>
   2
   3 Provisioning services to external machines, databases and APIs.<BR><BR>
   4
   5 <A HREF="<% $p %>edit/part_export.cgi"><I>Add a new export</I></A><BR><BR>
   6
   7 <SCRIPT>
   8 function part_export_areyousure(href) {
   9   if (confirm("Are you sure you want to delete this export?") == true)
  10     window.location.href = href;
  11 }
  12 </SCRIPT>
  13
  14 <% include('/elements/table-grid.html') %>
  15 % my $bgcolor1 = '#eeeeee';
  16 %   my $bgcolor2 = '#ffffff';
  17 %   my $bgcolor = '';
  18
  19   <TR>
  20     <TH COLSPAN=2 CLASS="grid" BGCOLOR="#cccccc">Export</TH>
  21     <TH CLASS="grid" BGCOLOR="#cccccc">Options</TH>
  22   </TR>
  23
  24 % foreach my $part_export ( sort {
  25 %     $a->getfield('exportnum') <=> $b->getfield('exportnum')
  26 %   } qsearch('part_export',{})
  27 % ) {
  28 %   if ( $bgcolor eq $bgcolor1 ) {
  29 %     $bgcolor = $bgcolor2;
  30 %   } else {
  31 %     $bgcolor = $bgcolor1;
  32 %   }
  33
  34     <TR>
  35
  36       <TD CLASS="grid" BGCOLOR="<% $bgcolor %>"><A HREF="<% $p %>edit/part_export.cgi?<% $part_export->exportnum %>"><% $part_export->exportnum %></A></TD>
  37
  38       <TD CLASS="grid" BGCOLOR="<% $bgcolor %>">
  39 %       if( $part_export->exportname ) {
  40           <B><% $part_export->exportname %>:</B><BR>
  41 %       }
  42         <% $part_export->exporttype %>
  43         <% $part_export->machine
  44              ? 'to '. ( $part_export->machine eq '_SVC_MACHINE'
  45                           ? 'per-service hostname'
  46                           : $part_export->machine
  47                       )
  48              : ''
  49         %>
  50         (<A HREF="<% $p %>edit/part_export.cgi?<% $part_export->exportnum %>">edit</A>&nbsp;|&nbsp;<A HREF="javascript:part_export_areyousure('<% $p %>misc/delete-part_export.cgi?<% $part_export->exportnum %>')">delete</A>)
  51       </TD>
  52
  53       <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
  54         <% itable() %>
  55 %         my %opt = $part_export->options;
  56 %         foreach my $opt ( keys %opt ) {
  57
  58             <TR>
  59               <TD ALIGN="right" VALIGN="top" WIDTH="33%"><% $opt %>:&nbsp;</TD>
  60               <TD ALIGN="left" WIDTH="67%"><% encode_entities($opt{$opt}) %></TD>
  61             </TR>
  62 %         }
  63
  64         </TABLE>
  65       </TD>
  66
  67     </TR>
  68
  69 % }
  70
  71 </TABLE>
  72
  73 <% include('/elements/footer.html') %>
  74
  75 <%init>
  76 die "access denied"
  77   unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
  78 </%init>