1 <% include('/elements/header.html',
4 ' onUnload="myclose()"'
7 <% include('/elements/error.html') %>
9 <FORM NAME="topform" STYLE="margin-bottom: 0">
10 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
13 Customer #<B><% $custnum %></B> -
14 <B><FONT COLOR="#<% $cust_main->statuscolor %>">
15 <% ucfirst($cust_main->status) %>
21 <% &ntable("#cccccc") %>
25 <% include('/elements/tr-select-agent.html',
26 'curr_value' => $cust_main->agentnum,
27 'label' => "<B>${r}Agent</B>",
28 'empty_label' => 'Select agent',
29 'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ),
33 <!-- referral (advertising source) -->
35 %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
36 %if ( $custnum && ! $conf->exists('editreferrals') ) {
40 <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
44 <% include('/elements/tr-select-part_referral.html',
45 'curr_value' => $refnum
51 <!-- referring customer -->
53 %my $referring_cust_main = '';
54 %if ( $cust_main->referral_custnum
55 % and $referring_cust_main =
56 % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
62 <TD ALIGN="right">Referring customer</TD>
64 <A HREF="<% popurl(1) %>/cust_main.cgi?<% $cust_main->referral_custnum %>"><% $cust_main->referral_custnum %>: <% $referring_cust_main->name %></A>
67 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="<% $cust_main->referral_custnum %>">
68 % } elsif ( ! $conf->exists('disable_customer_referrals') ) {
72 <TD ALIGN="right">Referring customer</TD>
74 <!-- <INPUT TYPE="text" NAME="referral_custnum" VALUE=""> -->
75 <% include('/elements/search-cust_main.html',
76 'field_name' => 'referral_custnum',
84 <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="">
92 % if ( $conf->exists('cust_main-enable_birthdate') ) {
95 <% ntable("#cccccc", 2) %>
96 <% include ('/elements/tr-input-date-field.html',
98 $cust_main->birthdate,
100 $conf->config('date_format') || "%m/%d/%Y",
108 <!-- contact info -->
110 % my $same_checked = '';
111 % my $ship_disabled = '';
112 % unless ( $cust_main->ship_last && $same ne 'Y' ) {
113 % $same_checked = 'CHECKED';
114 % $ship_disabled = 'DISABLED STYLE="background-color: #dddddd"';
116 % qw( last first company address1 address2 city county state zip country
117 % daytime night fax )
119 % $cust_main->set("ship_$_", $cust_main->get($_) );
125 <% include('cust_main/contact.html',
126 'cust_main' => $cust_main,
128 'onchange' => 'bill_changed(this)',
131 'stateid' => $stateid,
132 'same_checked' => $same_checked, #for address2 "Unit #" labeling
137 function bill_changed(what) {
138 if ( what.form.same.checked ) {
139 % for (qw( last first company address1 address2 city zip daytime night fax )) {
141 what.form.ship_<%$_%>.value = what.form.<%$_%>.value;
144 what.form.ship_country.selectedIndex = what.form.country.selectedIndex;
146 function fix_ship_county() {
147 what.form.ship_county.selectedIndex = what.form.county.selectedIndex;
150 function fix_ship_state() {
151 what.form.ship_state.selectedIndex = what.form.state.selectedIndex;
152 ship_state_changed(what.form.ship_state, fix_ship_county );
155 ship_country_changed(what.form.ship_country, fix_ship_state );
159 function samechanged(what) {
160 if ( what.checked ) {
163 % for (qw( last first company address1 address2 city county state zip country daytime night fax )) {
164 what.form.ship_<%$_%>.disabled = true;
165 what.form.ship_<%$_%>.style.backgroundColor = '#dddddd';
168 % if ( $conf->exists('cust_main-require_address2') ) {
169 document.getElementById('address2_required').style.visibility = '';
170 document.getElementById('address2_label').style.visibility = '';
171 document.getElementById('ship_address2_required').style.visibility = 'hidden';
172 document.getElementById('ship_address2_label').style.visibility = 'hidden';
177 % for (qw( last first company address1 address2 city county state zip country daytime night fax )) {
178 what.form.ship_<%$_%>.disabled = false;
179 what.form.ship_<%$_%>.style.backgroundColor = '#ffffff';
182 % if ( $conf->exists('cust_main-require_address2') ) {
183 document.getElementById('address2_required').style.visibility = 'hidden';
184 document.getElementById('address2_label').style.visibility = 'hidden';
185 document.getElementById('ship_address2_required').style.visibility = '';
186 document.getElementById('ship_address2_label').style.visibility = '';
195 (<INPUT TYPE="checkbox" NAME="same" VALUE="Y" onClick="samechanged(this)" <%$same_checked%>>same as billing address)
196 <% include('cust_main/contact.html',
197 'cust_main' => $cust_main,
200 'disabled' => $ship_disabled,
205 <!-- billing info -->
207 <% include( 'cust_main/billing.html', $cust_main,
208 'payinfo' => $payinfo,
209 'invoicing_list' => \@invoicing_list,
213 <% include( '/elements/xmlhttp.html',
214 'url' => $p.'misc/xmlhttp-cust_main-address_standardize.html',
215 'subs' => [ 'address_standardize' ],
216 #'method' => 'POST', #could get too long?
221 function bottomfixup(what) {
223 //i don't think we need to copy things between two forms anymore, modern
224 //browsers are fine with DIVs inside FORMs
226 var topvars = new Array(
229 'custnum', 'agentnum', 'refnum', 'referral_custnum',
231 'last', 'first', 'ss', 'company',
232 'address1', 'address2', 'city',
233 'county', 'state', 'zip', 'country',
234 'daytime', 'night', 'fax',
235 'stateid', 'stateid_state',
239 'ship_last', 'ship_first', 'ship_company',
240 'ship_address1', 'ship_address2', 'ship_city',
241 'ship_county', 'ship_state', 'ship_zip', 'ship_country',
242 'ship_daytime','ship_night', 'ship_fax',
247 var layervars = new Array(
249 'payinfo', 'payinfo1', 'payinfo2', 'paytype',
250 'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
251 'paystart_month', 'paystart_year', 'payissue',
256 var billing_bottomvars = new Array(
258 'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
263 for ( f=0; f < topvars.length; f++ ) {
264 var field = topvars[f];
265 copyelement( document.topform.elements[field],
266 document.bottomform.elements[field]
270 var layerform = document.topform.select.options[document.topform.select.selectedIndex].value;
271 for ( f=0; f < layervars.length; f++ ) {
272 var field = layervars[f];
273 copyelement( document.forms[layerform].elements[field],
274 document.bottomform.elements[field]
278 for ( f=0; f < billing_bottomvars.length; f++ ) {
279 var field = billing_bottomvars[f];
280 copyelement( document.billing_bottomform.elements[field],
281 document.bottomform.elements[field]
285 //this part does USPS address correction
287 // XXX should this be first and should we update the form fields that are
290 //var state_el = document.bottomform.elements['state'];
292 //address_standardize(
293 var cust_main = new Array(
294 'company', document.bottomform.elements['company'].value,
295 'address1', document.bottomform.elements['address1'].value,
296 'address2', document.bottomform.elements['address2'].value,
297 'city', document.bottomform.elements['city'].value,
298 'state', document.bottomform.elements['state'].value,
299 //'state', state_el.options[ state_el.selectedIndex ].value,
300 'zip', document.bottomform.elements['zip'].value,
302 'ship_company', document.bottomform.elements['company'].value,
303 'ship_address1', document.bottomform.elements['address1'].value,
304 'ship_address2', document.bottomform.elements['address2'].value,
305 'ship_city', document.bottomform.elements['city'].value,
306 'ship_state', document.bottomform.elements['state'].value,
307 //'ship_state', state_el.options[ state_el.selectedIndex ].value,
308 'ship_zip', document.bottomform.elements['zip'].value
311 address_standardize( cust_main, update_address );
315 function update_address(arg) {
317 var argsHash = eval('(' + arg + ')');
319 var address1 = argsHash['address1'];
320 var zip = argsHash['zip'];
321 var changed = argsHash['address_standardized'];
322 var ship_changed = argsHash['ship_address_standardized'];
329 % if ( $conf->exists('cust_main-auto_standardize_address') ) {
330 // XXX this path not handled yet
332 // XXX well, this path not handled yet either. popup a confirmation popup
335 document.bottomform.submit();
339 function copyelement(from, to) {
340 if ( from == undefined ) {
342 } else if ( from.type == 'select-one' ) {
343 to.value = from.options[from.selectedIndex].value;
344 //alert(from + " (" + from.type + "): " + to.name + " => (" + from.selectedIndex + ") " + to.value);
345 } else if ( from.type == 'checkbox' ) {
346 if ( from.checked ) {
347 to.value = from.value;
352 if ( from.value == undefined ) {
355 to.value = from.value;
358 //alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
363 <FORM ACTION="<% popurl(1) %>process/cust_main.cgi" METHOD=POST NAME="bottomform" STYLE="margin-top: 0; margin-bottom: 0">
364 % foreach my $hidden (
367 % 'custnum', 'agentnum', 'refnum', 'referral_custnum',
368 % 'last', 'first', 'ss', 'company',
369 % 'address1', 'address2', 'city',
370 % 'county', 'state', 'zip', 'country',
371 % 'daytime', 'night', 'fax',
372 % 'stateid', 'stateid_state',
376 % 'ship_last', 'ship_first', 'ship_company',
377 % 'ship_address1', 'ship_address2', 'ship_city',
378 % 'ship_county', 'ship_state', 'ship_zip', 'ship_country',
379 % 'ship_daytime','ship_night', 'ship_fax',
384 % 'payinfo', 'payinfo1', 'payinfo2', 'paytype',
385 % 'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
386 % 'paystart_month', 'paystart_year', 'payissue',
391 % 'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
397 <INPUT TYPE="hidden" NAME="<% $hidden %>" VALUE="">
400 % my $ro_comments = $conf->exists('cust_main-use_comments')?'':'readonly';
401 % if (!$ro_comments || $cust_main->comments) {
404 <% &ntable("#cccccc") %>
407 <TEXTAREA COLS=80 ROWS=5 WRAP="HARD" NAME="comments" <%$ro_comments%>><% $cust_main->comments %></TEXTAREA>
414 %unless ( $custnum ) {
415 % # pry the wrong place for this logic. also pretty expensive
418 % #false laziness, copied from FS::cust_pkg::order
420 % my @agents = $FS::CurrentUser::CurrentUser->agents;
421 % if ( scalar(@agents) == 1 ) {
422 % # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART
423 % $pkgpart = $agents[0]->pkgpart_hashref;
425 % #can't know (agent not chosen), so, allow all
427 % foreach my $agent ( @agents ) {
428 % next if $typenum{$agent->typenum}++;
429 % #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
430 % foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround
435 % my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
436 % qsearch( 'part_pkg', { 'disabled' => '' }, '', 'ORDER BY pkg' ); # case?
440 % # print "<BR><BR>First package", &itable("#cccccc", "0 ALIGN=LEFT"),
441 % #apiabuse & undesirable wrapping
446 <% ntable("#cccccc") %>
450 <% include('cust_main/select-domain.html',
451 'pkgparts' => \@part_pkg,
452 'saved_pkgpart' => $saved_pkgpart,
453 'saved_domsvc' => $saved_domsvc,
459 % #false laziness: (mostly) copied from edit/svc_acct.cgi
460 % #$ulen = $svc_acct->dbdef_table->column('username')->length;
461 % my $ulen = dbdef->table('svc_acct')->column('username')->length;
462 % my $ulen2 = $ulen+2;
463 % my $passwordmax = $conf->config('passwordmax') || 8;
464 % my $pmax2 = $passwordmax + 2;
469 <TD ALIGN="right">Username</TD>
471 <INPUT TYPE="text" NAME="username" VALUE="<% $username %>" SIZE=<% $ulen2 %> MAXLENGTH=<% $ulen %>>
476 <TD ALIGN="right">Domain</TD>
478 <SELECT NAME="domsvc">
479 <OPTION>(none)</OPTION>
485 <TD ALIGN="right">Password</TD>
487 <INPUT TYPE="text" NAME="_password" VALUE="<% $password %>" SIZE=<% $pmax2 %> MAXLENGTH=<% $passwordmax %>>
493 <TD ALIGN="right">Access number</TD>
494 <TD><% FS::svc_acct_pop::popselector($popnum) %></TD>
501 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $cust_main->otaker %>">
503 <INPUT TYPE="button" NAME="submitButton" ID="submitButton" VALUE="<% $custnum ? "Apply Changes" : "Add Customer" %>" onClick="document.bottomform.submitButton.disabled=true; bottomfixup(this.form);">
507 <% include('/elements/footer.html') %>
512 unless $FS::CurrentUser::CurrentUser->access_right('Edit customer');
514 #for misplaced logic below
517 #for false laziness below (now more properly lazy)
518 #use FS::svc_acct_pop;
520 #for (other) false laziness below
524 my $conf = new FS::Conf;
528 my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart, $saved_domsvc);
530 my ($ss,$stateid,$payinfo);
532 if ( $cgi->param('error') ) {
533 $cust_main = new FS::cust_main ( {
534 map { $_, scalar($cgi->param($_)) } fields('cust_main')
536 $custnum = $cust_main->custnum;
537 $saved_domsvc = $cgi->param('domsvc') || '';
538 if ( $saved_domsvc =~ /^(\d+)$/ ) {
543 $saved_pkgpart = $cgi->param('pkgpart_svcpart') || '';
544 if ( $saved_pkgpart =~ /^(\d+)_/ ) {
549 $username = $cgi->param('username');
550 $password = $cgi->param('_password');
551 $popnum = $cgi->param('popnum');
552 @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') );
553 $same = $cgi->param('same');
554 $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid');
555 $ss = $cust_main->ss; # don't mask an entered value on errors
556 $stateid = $cust_main->stateid; # don't mask an entered value on errors
557 $payinfo = $cust_main->payinfo; # don't mask an entered value on errors
558 } elsif ( $cgi->keywords ) { #editing
559 my( $query ) = $cgi->keywords;
562 $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
563 if ( $cust_main->dbdef_table->column('paycvv')
564 && length($cust_main->paycvv) ) {
565 my $paycvv = $cust_main->paycvv;
567 $cust_main->paycvv($paycvv);
574 @invoicing_list = $cust_main->invoicing_list;
575 $ss = $cust_main->masked('ss');
576 $stateid = $cust_main->masked('stateid');
577 $payinfo = $cust_main->paymask;
580 $cust_main = new FS::cust_main ( {} );
581 $cust_main->otaker( &getotaker );
582 $cust_main->referral_custnum( $cgi->param('referral_custnum') );
588 @invoicing_list = ();
589 push @invoicing_list, 'POST'
590 unless $conf->exists('disablepostalinvoicedefault');
596 my $error = $cgi->param('error');
598 $cgi->param('error', $error);
600 my $action = $custnum ? 'Edit' : 'Add';
601 $action .= ": ". $cust_main->name if $custnum;
603 my $r = qq!<font color="#ff0000">*</font> !;