UI glitch; forgot ROWSPAN for export column

[freeside.git] / httemplate / browse / part_svc.cgi

diff --git a/httemplate/browse/part_svc.cgi b/httemplate/browse/part_svc.cgi
index da523ca..cf0f040 100755 (executable)
--- a/httemplate/browse/part_svc.cgi
+++ b/httemplate/browse/part_svc.cgi
@@ -1,4 +1,4 @@
-<!-- $Id: part_svc.cgi,v 1.6 2001-12-27 09:26:14 ivan Exp $ -->
+<!-- mason kludge -->
 <% 
 
 my %search;
@@ -22,10 +22,11 @@ my $total = scalar(@part_svc);
       : do { $cgi->param('showdisabled', 1);
              '( <a href="'. $cgi->self_url. '">show disabled services</a> )'; }
 %>
-<TABLE BORDER=1>
+<%= table() %>
   <TR>
     <TH COLSPAN=<%= $cgi->param('showdisabled') ? 2 : 3 %>>Service</TH>
     <TH>Table</TH>
+    <TH>Export</TH>
     <TH>Field</TH>
     <TH COLSPAN=2>Modifier</TH>
   </TR>
@@ -54,6 +55,30 @@ my $total = scalar(@part_svc);
       <%= $hashref->{svc} %></A></TD>
     <TD ROWSPAN=<%= $rowspan %>>
       <%= $hashref->{svcdb} %></TD>
+    <TD ROWSPAN=<%= $rowspan %>><%= itable() %>
+<%
+  my @part_export = qsearch('part_export', { svcpart => $part_svc->svcpart } );
+  foreach my $part_export ( @part_export ) {
+%>
+      <TR>
+        <TD><%= $part_export->exporttype %> to <%= $part_export->machine %></TD>
+        <TD>(options)</TD>
+<%  } %>
+      </TR><TR><TD COLSPAN=2><A HREF="<%= $p %>edit/part_export.cgi?new_with_svcpart=<%= $part_svc->svcpart %>"><I>Add a new export</I><A></TD></TR>
+<% if (@part_export) { %>
+      <TR><TD COLSPAN=2>
+        <FORM METHOD="POST" ACTION="<%= $p %>edit/part_export.cgi">
+        <INPUT TYPE="hidden" NAME="svcpart" VALUE="<%= $part_svc->svcpart %>">
+        <SELECT NAME="clone"><OPTION></OPTION>
+<%   foreach my $part_export ( @part_export ) { %>
+          <OPTION VALUE="<%= $part_export->exportnum %>">
+            <%= $part_export->exporttype %> to <%= $part_export->machine %>
+          </OPTION>
+<%   } %>
+        <INPUT TYPE="submit" VALUE="clone existing export">
+        </FORM></TD></TR>
+<% } %>
+      </TABLE></TD>
 
 <%   my($n1)='';
      foreach my $field ( @fields ) {
@@ -73,7 +98,7 @@ my $total = scalar(@part_svc);
 <% } %>
 
   <TR>
-    <TD COLSPAN=6><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD>
+    <TD COLSPAN=<%= $cgi->param('showdisabled') ? 7 : 8 %>><A HREF="<%= $p %>edit/part_svc.cgi"><I>Add a new service definition</I></A></TD>
   </TR>
 </TABLE>
 </BODY>