UI hints for adding new nameservice records, too many to be intuitive now, RT#8933

[freeside.git] / httemplate / view / svc_domain / dns.html

diff --git a/httemplate/view/svc_domain/dns.html b/httemplate/view/svc_domain/dns.html
index a73a27e..82cab06 100644 (file)
--- a/httemplate/view/svc_domain/dns.html
+++ b/httemplate/view/svc_domain/dns.html
@@ -26,6 +26,7 @@
     <th CLASS="grid" BGCOLOR="#cccccc">Zone</th>
     <th CLASS="grid" BGCOLOR="#cccccc">Type</th>
     <th CLASS="grid" BGCOLOR="#cccccc">Data</th>
+    <th CLASS="grid" BGCOLOR="#cccccc">TTL</th>
   </tr>
 
 % foreach my $domain_record ( @records ) {
@@ -37,7 +38,9 @@
     <tr>
       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->reczone %></td>
       <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $type %></td>
-      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->recdata %></td>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>"><% $domain_record->ttl %></td>
+      <td CLASS="grid" BGCOLOR="<% $bgcolor %>">
 
 % unless ( $domain_record->rectype eq 'SOA'
 %          || ! $FS::CurrentUser::CurrentUser->access_right('Edit domain nameservice')
@@ -72,15 +75,36 @@
     <BR>
     <FORM METHOD="POST" ACTION="<%$p%>edit/process/domain_record.cgi">
       <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
-      <INPUT TYPE="text" NAME="reczone"> 
-      <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN 
-      <SELECT NAME="rectype">
-%       foreach ( @{ FS::domain_record->rectypes } ) { 
-          <OPTION VALUE="<%$_%>"><%$_%></OPTION>
-%       } 
-      </SELECT>
-      <INPUT TYPE="text" NAME="recdata">
-      <INPUT TYPE="submit" VALUE="Add record">
+      <TABLE>
+      <TR>
+        <TD ALIGN="right" VALIGN="top">
+          <INPUT TYPE="text" NAME="reczone"><BR>
+          <FONT SIZE="-1"><I>Zone</I></FONT>
+        </TD>
+        <TD ALIGN="right" VALIGN="top">
+          <INPUT TYPE="hidden" NAME="recaf" VALUE="IN"> IN 
+        </TD>
+        <TD ALIGN="right" VALIGN="top">
+          <SELECT NAME="rectype">
+%           foreach ( @{ FS::domain_record->rectypes } ) { 
+              <OPTION VALUE="<%$_%>"><%$_%></OPTION>
+%           } 
+          </SELECT><BR>
+          <FONT SIZE="-1"><I>Type</I></FONT>
+        </TD>
+        <TD ALIGN="right" VALIGN="top">
+          <INPUT TYPE="text" NAME="recdata"><BR>
+          <FONT SIZE="-1"><I>Data</I></FONT>
+        </TD>
+        <TD ALIGN="right" VALIGN="top">
+          <INPUT TYPE="text" NAME="ttl" size="6"><BR>
+          <FONT SIZE="-1"><I>TTL</I></FONT>
+        </TD>
+        <TD ALIGN="right" VALIGN="top">
+          <INPUT TYPE="submit" VALUE="Add record">
+        </TD>
+      </TR>
+    </TABLE>
     </FORM>
 
     <BR>