- //alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
-}
-
-</SCRIPT>
-
-<FORM ACTION="<% popurl(1) %>process/cust_main.cgi" METHOD=POST NAME="bottomform" STYLE="margin-top: 0; margin-bottom: 0">
-% foreach my $hidden (
-% 'birthdate',
-%
-% 'custnum', 'agentnum', 'agent_custid', 'refnum', 'referral_custnum',
-% 'last', 'first', 'ss', 'company',
-% 'address1', 'address2', 'city',
-% 'county', 'state', 'zip', 'country',
-% 'daytime', 'night', 'fax',
-% 'stateid', 'stateid_state',
-%
-% 'same',
-%
-% 'ship_last', 'ship_first', 'ship_company',
-% 'ship_address1', 'ship_address2', 'ship_city',
-% 'ship_county', 'ship_state', 'ship_zip', 'ship_country',
-% 'ship_daytime','ship_night', 'ship_fax',
-%
-% 'geocode',
-%
-% 'select', #XXX key
-%
-% 'payauto',
-% 'payinfo', 'payinfo1', 'payinfo2', 'paytype',
-% 'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
-% 'paystart_month', 'paystart_year', 'payissue',
-% 'payip',
-% 'paid',
-%
-% 'tax',
-% 'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
-% 'invoice_terms',
-% 'spool_cdr',
-% 'squelch_cdr'
-% ) {
-%
-
- <INPUT TYPE="hidden" NAME="<% $hidden %>" VALUE="">
-% }
-%
-% my $ro_comments = $conf->exists('cust_main-use_comments')?'':'readonly';
-% if (!$ro_comments || $cust_main->comments) {
-
-<BR>Comments
-<% &ntable("#cccccc") %>
- <TR>
- <TD>
- <TEXTAREA COLS=80 ROWS=5 WRAP="HARD" NAME="comments" <%$ro_comments%>><% $cust_main->comments %></TEXTAREA>
- </TD>
- </TR>
-</TABLE>
-%
-% }
-%
-%unless ( $custnum ) {
-% # pry the wrong place for this logic. also pretty expensive
-% #use FS::part_pkg;
-%
-% #false laziness, copied from FS::cust_pkg::order
-% my $pkgpart;
-% my $agentnum = '';
-% my @agents = $FS::CurrentUser::CurrentUser->agents;
-% if ( scalar(@agents) == 1 ) {
-% # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART
-% $pkgpart = $agents[0]->pkgpart_hashref;
-% $agentnum = $agents[0]->agentnum;
-% } else {
-% #can't know (agent not chosen), so, allow all
-% $agentnum = 'all';
-% my %typenum;
-% foreach my $agent ( @agents ) {
-% next if $typenum{$agent->typenum}++;
-% $pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
-% }
-% }
-% #eslaf
-%
-% my @part_pkg = grep { $_->svcpart('svc_acct')
-% && ( $pkgpart->{ $_->pkgpart }
-% || $agentnum eq 'all'
-% || ( $agentnum ne 'all'
-% && $agentnum
-% && $_->agentnum
-% && $_->agentnum == $agentnum
-% )
-% )
-% }
-% qsearch( 'part_pkg', { 'disabled' => '' }, '', 'ORDER BY pkg' ); # case?
-%
-% if ( @part_pkg ) {
-%
-% # print "<BR><BR>First package", &itable("#cccccc", "0 ALIGN=LEFT"),
-% #apiabuse & undesirable wrapping
-%
-%
-
- <BR>First package
- <% ntable("#cccccc") %>
-
- <TR>
- <TD COLSPAN=2>
- <% include('cust_main/select-domain.html',
- 'pkgparts' => \@part_pkg,
- 'saved_pkgpart' => $saved_pkgpart,
- 'saved_domsvc' => $saved_domsvc,
- )
- %>
- </TD>
- </TR>
-%
-% #false laziness: (mostly) copied from edit/svc_acct.cgi
-% #$ulen = $svc_acct->dbdef_table->column('username')->length;
-% my $ulen = dbdef->table('svc_acct')->column('username')->length;
-% my $ulen2 = $ulen+2;
-% my $passwordmax = $conf->config('passwordmax') || 8;
-% my $pmax2 = $passwordmax + 2;
-%
-
-
- <TR>
- <TD ALIGN="right">Username</TD>
- <TD>
- <INPUT TYPE="text" NAME="username" VALUE="<% $username %>" SIZE=<% $ulen2 %> MAXLENGTH=<% $ulen %>>
- </TD>
- </TR>
-
- <TR>
- <TD ALIGN="right">Domain</TD>
- <TD>
- <SELECT NAME="domsvc">
- <OPTION>(none)</OPTION>
- </SELECT>
- </TD>
- </TR>
-
- <TR>
- <TD ALIGN="right">Password</TD>
- <TD>
- <INPUT TYPE="text" NAME="_password" VALUE="<% $password %>" SIZE=<% $pmax2 %> MAXLENGTH=<% $passwordmax %>>
- (blank to generate)
- </TD>
- </TR>
-
- <TR>
- <TD ALIGN="right">Access number</TD>
- <TD><% FS::svc_acct_pop::popselector($popnum) %></TD>
- </TR>
- </TABLE>
-% }
-% }