+
+ <INPUT TYPE="hidden" NAME="popnum" VALUE="<%= $popnum %>">
+
+
+<% } else { %>
+
+ <TR>
+ <TD ALIGN="right">Access number</TD>
+ <TD><%= FS::svc_acct_pop::popselector($popnum) %></TD>
+ </TR>
+
+<% } %>
+
+
+<% #uid/gid %>
+<% foreach my $xid (qw( uid gid )) { %>
+
+ <%
+ if ( $part_svc->part_svc_column($xid)->columnflag =~ /^[FA]$/
+ || ! $conf->exists("svc_acct-edit_$xid")
+ ) {
+ %>
+
+ <% if ( length($svc_acct->$xid()) ) { %>
+
+ <TR>
+ <TD ALIGN="right"><%= uc($xid) %></TD>
+ <TD BGCOLOR="#eeeeee"><%= $svc_acct->$xid() %></TD>
+ <TD>
+ </TD>
+ </TR>
+
+ <% } %>
+
+ <INPUT TYPE="hidden" NAME="<%= $xid %>" VALUE="<%= $svc_acct->$xid() %>">
+
+ <% } else { %>
+
+ <TR>
+ <TD ALIGN="right"><%= uc($xid) %></TD>
+ <TD>
+ <INPUT TYPE="text" NAME="<%= $xid %>" SIZE=8 MAXLENGTH=6 VALUE="<%= $svc_acct->$xid() %>">
+ </TD>
+ </TR>
+
+ <% } %>
+
+<% } %>
+
+
+<%
+#finger
+if ( $part_svc->part_svc_column('uid')->columnflag eq 'F'
+ && ! $svc_acct->finger ) {
+%>
+
+ <INPUT TYPE="hidden" NAME="finger" VALUE="">
+
+<% } else { %>
+
+ <TR>
+ <TD ALIGN="right">GECOS</TD>
+ <TD>
+ <INPUT TYPE="text" NAME="finger" VALUE="<%= $svc_acct->finger %>">
+ </TD>
+ </TR>
+
+<% } %>
+
+
+<INPUT TYPE="hidden" NAME="dir" VALUE="<%= $svc_acct->dir %>">
+
+
+<%
+#shell
+my $shell = $svc_acct->shell;
+if ( $part_svc->part_svc_column('shell')->columnflag eq 'F'
+ || ( !$shell && $part_svc->part_svc_column('uid')->columnflag eq 'F' )
+ ) {
+%>
+
+ <INPUT TYPE="hidden" NAME="shell" VALUE="<%= $shell %>">
+
+<% } else { %>
+
+ <TR>
+ <TD ALIGN="right">Shell</TD>
+ <TD>
+ <SELECT NAME="shell" SIZE=1>
+
+ <%
+ my($etc_shell);
+ foreach $etc_shell (@shells) {
+ %>
+
+ <OPTION<%= $etc_shell eq $shell ? ' SELECTED' : '' %>><%= $etc_shell %>
+
+ <% } %>
+
+ </SELECT>
+ </TD>
+ </TR>
+
+<% } %>
+
+
+<% if ( $part_svc->part_svc_column('quota')->columnflag eq 'F' ) { %>
+
+ <INPUT TYPE="hidden" NAME="quota" VALUE="<%= $svc_acct->quota %>">
+
+<% } else { %>
+
+ <TR>
+ <TD ALIGN="right">Quota:</TD>
+ <TD><INPUT TYPE="text" NAME="quota" VALUE="<%= $svc_acct->quota %>"></TD>
+ </TR>
+
+<% } %>
+
+
+<% if ( $part_svc->part_svc_column('slipip')->columnflag =~ /^[FA]$/ ) { %>
+
+ <INPUT TYPE="hidden" NAME="slipip" VALUE="<%= $svc_acct->slipip %>">
+
+<% } else { %>
+
+ <TR>
+ <TD ALIGN="right">IP</TD>
+ <TD><INPUT TYPE="text" NAME="slipip" VALUE="<%= $svc_acct->slipip %>"></TD>
+ </TR>
+
+<% } %>
+
+
+<%
+foreach my $r ( grep { /^r(adius|[cr])_/ } fields('svc_acct') ) {
+ $r =~ /^^r(adius|[cr])_(.+)$/ or next; #?
+ my $a = $2;
+%>
+
+ <% if ( $part_svc->part_svc_column($r)->columnflag =~ /^[FA]$/ ) { %>
+
+ <INPUT TYPE="hidden" NAME="<%= $r %>" VALUE="<%= $svc_acct->getfield($r) %>">
+
+ <% } else { %>
+
+ <TR>
+ <TD ALIGN="right"><%= $FS::raddb::attrib{$a} %></TD>
+ <TD><INPUT TYPE="text" NAME="<%= $r %>" VALUE="<%= $svc_acct->getfield($r) %>"></TD>
+ </TR>
+
+ <% } %>
+
+<% } %>
+
+
+<TR>
+ <TD ALIGN="right">RADIUS groups</TD>
+
+ <% if ( $part_svc->part_svc_column('usergroup')->columnflag eq 'F' ) { %>
+
+ <TD BGCOLOR="#eeeeee"><%= join('<BR>', @groups) %></TD>
+
+ <% } else { %>
+
+ <TD><%= FS::svc_acct::radius_usergroup_selector( \@groups ) %></TD>
+
+ <% } %>
+
+</TR>
+
+<% foreach my $field ($svc_acct->virtual_fields) { %>
+
+ <% # If the flag is X, it won't even show up in $svc_acct->virtual_fields. %>
+ <% if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) { %>
+
+ <%= $svc_acct->pvf($field)->widget('HTML', 'edit', $svc_acct->getfield($field)) %>
+
+ <% } %>
+
+<% } %>
+
+</TABLE>
+<BR>
+
+<INPUT TYPE="submit" VALUE="Submit">
+
+</FORM></BODY></HTML>