httemplate/edit/cust_main.cgi

   1 <% include('/elements/header.html',
   2       "Customer $action",
   3       '',
   4       ' onUnload="myclose()"'
   5 ) %>
   6
   7 <% include('/elements/error.html') %>
   8
   9 <FORM NAME="topform" STYLE="margin-bottom: 0">
  10 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
  11 % if ( $custnum ) {
  12
  13   Customer #<B><% $custnum %></B> -
  14   <B><FONT COLOR="#<% $cust_main->statuscolor %>">
  15     <% ucfirst($cust_main->status) %>
  16   </FONT></B>
  17   <BR><BR>
  18 % }
  19
  20
  21 <% &ntable("#cccccc") %>
  22
  23 <!-- agent -->
  24
  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 ),
  30            )
  31 %>
  32
  33 <!-- referral (advertising source) -->
  34 %
  35 %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
  36 %if ( $custnum && ! $conf->exists('editreferrals') ) {
  37 %
  38
  39
  40   <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
  41 % } else {
  42
  43
  44    <% include('/elements/tr-select-part_referral.html',
  45                 'curr_value' => $refnum
  46              )
  47    %>
  48 % }
  49
  50
  51 <!-- referring customer -->
  52 %
  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 } )
  57 %) {
  58 %
  59
  60
  61   <TR>
  62     <TD ALIGN="right">Referring customer</TD>
  63     <TD>
  64       <A HREF="<% popurl(1) %>/cust_main.cgi?<% $cust_main->referral_custnum %>"><% $cust_main->referral_custnum %>: <% $referring_cust_main->name %></A>
  65     </TD>
  66   </TR>
  67   <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="<% $cust_main->referral_custnum %>">
  68 % } elsif ( ! $conf->exists('disable_customer_referrals') ) {
  69
  70
  71   <TR>
  72     <TD ALIGN="right">Referring customer</TD>
  73     <TD>
  74       <!-- <INPUT TYPE="text" NAME="referral_custnum" VALUE=""> -->
  75       <% include('/elements/search-cust_main.html',
  76                     'field_name' => 'referral_custnum',
  77                  )
  78       %>
  79     </TD>
  80   </TR>
  81 % } else {
  82
  83
  84   <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="">
  85 % }
  86
  87
  88 </TABLE>
  89
  90 <!-- birthdate -->
  91
  92 % if ( $conf->exists('cust_main-enable_birthdate') ) {
  93
  94   <BR>
  95   <% ntable("#cccccc", 2) %>
  96   <% include ('/elements/tr-input-date-field.html',
  97               'birthdate',
  98               $cust_main->birthdate,
  99               'Date of Birth',
 100               $conf->config('date_format') || "%m/%d/%Y",
 101               1)
 102   %>
 103
 104   </TABLE>
 105
 106 % }
 107
 108 <!-- contact info -->
 109
 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"';
 115 %    foreach (
 116 %      qw( last first company address1 address2 city county state zip country
 117 %          daytime night fax )
 118 %    ) {
 119 %      $cust_main->set("ship_$_", $cust_main->get($_) );
 120 %    }
 121 %  }
 122
 123 <BR><BR>
 124 Billing address
 125 <% include('cust_main/contact.html',
 126              'cust_main'    => $cust_main,
 127              'pre'          => '',
 128              'onchange'     => 'bill_changed(this)',
 129              'disabled'     => '',
 130              'ss'           => $ss,
 131              'stateid'      => $stateid,
 132              'same_checked' => $same_checked, #for address2 "Unit #" labeling
 133           )
 134 %>
 135
 136 <SCRIPT>
 137 function bill_changed(what) {
 138   if ( what.form.same.checked ) {
 139 % for (qw( last first company address1 address2 city zip daytime night fax )) {
 140
 141     what.form.ship_<%$_%>.value = what.form.<%$_%>.value;
 142 % }
 143
 144     what.form.ship_country.selectedIndex = what.form.country.selectedIndex;
 145
 146     function fix_ship_county() {
 147       what.form.ship_county.selectedIndex = what.form.county.selectedIndex;
 148     }
 149
 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 );
 153     }
 154
 155     ship_country_changed(what.form.ship_country, fix_ship_state );
 156
 157   }
 158 }
 159 function samechanged(what) {
 160   if ( what.checked ) {
 161     bill_changed(what);
 162
 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';
 166 %   }
 167
 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';
 173 %   }
 174
 175   } else {
 176
 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';
 180 %   }
 181
 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 = '';
 187 %   }
 188
 189   }
 190 }
 191 </SCRIPT>
 192
 193 <BR>
 194 Service address
 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,
 198              'pre'       => 'ship_',
 199              'onchange'  => '',
 200              'disabled'  => $ship_disabled,
 201           )
 202 %>
 203
 204
 205 <!-- billing info -->
 206
 207 <% include( 'cust_main/billing.html', $cust_main,
 208                'payinfo'        => $payinfo,
 209                'invoicing_list' => \@invoicing_list,
 210            )
 211 %>
 212
 213 <SCRIPT>
 214 function bottomfixup(what) {
 215
 216   var topvars = new Array(
 217     'birthdate',
 218
 219     'custnum', 'agentnum', 'refnum', 'referral_custnum',
 220
 221     'last', 'first', 'ss', 'company',
 222     'address1', 'address2', 'city',
 223     'county', 'state', 'zip', 'country',
 224     'daytime', 'night', 'fax',
 225     'stateid', 'stateid_state',
 226
 227     'same',
 228
 229     'ship_last', 'ship_first', 'ship_company',
 230     'ship_address1', 'ship_address2', 'ship_city',
 231     'ship_county', 'ship_state', 'ship_zip', 'ship_country',
 232     'ship_daytime','ship_night', 'ship_fax',
 233
 234     'select' // XXX key
 235   );
 236
 237   var layervars = new Array(
 238     'payauto',
 239     'payinfo', 'payinfo1', 'payinfo2', 'paytype',
 240     'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
 241     'paystart_month', 'paystart_year', 'payissue',
 242     'payip',
 243     'paid'
 244   );
 245
 246   var billing_bottomvars = new Array(
 247     'tax',
 248     'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
 249     'invoice_terms',
 250     'spool_cdr'
 251   );
 252
 253   for ( f=0; f < topvars.length; f++ ) {
 254     var field = topvars[f];
 255     copyelement( document.topform.elements[field],
 256                  document.bottomform.elements[field]
 257                );
 258   }
 259
 260   var layerform = document.topform.select.options[document.topform.select.selectedIndex].value;
 261   for ( f=0; f < layervars.length; f++ ) {
 262     var field = layervars[f];
 263     copyelement( document.forms[layerform].elements[field],
 264                  document.bottomform.elements[field]
 265                );
 266   }
 267
 268   for ( f=0; f < billing_bottomvars.length; f++ ) {
 269     var field = billing_bottomvars[f];
 270     copyelement( document.billing_bottomform.elements[field],
 271                  document.bottomform.elements[field]
 272                );
 273   }
 274
 275 }
 276
 277 function copyelement(from, to) {
 278   if ( from == undefined ) {
 279     to.value = '';
 280   } else if ( from.type == 'select-one' ) {
 281     to.value = from.options[from.selectedIndex].value;
 282     //alert(from + " (" + from.type + "): " + to.name + " => (" + from.selectedIndex + ") " + to.value);
 283   } else if ( from.type == 'checkbox' ) {
 284     if ( from.checked ) {
 285       to.value = from.value;
 286     } else {
 287       to.value = '';
 288     }
 289   } else {
 290     if ( from.value == undefined ) {
 291       to.value = '';
 292     } else {
 293       to.value = from.value;
 294     }
 295   }
 296   //alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
 297 }
 298
 299 </SCRIPT>
 300
 301 <FORM ACTION="<% popurl(1) %>process/cust_main.cgi" METHOD=POST NAME="bottomform" onSubmit="document.bottomform.submit.disabled=true; bottomfixup(this.form);" STYLE="margin-top: 0; margin-bottom: 0">
 302 % foreach my $hidden (
 303 %     'birthdate',
 304 %
 305 %     'custnum', 'agentnum', 'refnum', 'referral_custnum',
 306 %     'last', 'first', 'ss', 'company',
 307 %     'address1', 'address2', 'city',
 308 %     'county', 'state', 'zip', 'country',
 309 %     'daytime', 'night', 'fax',
 310 %     'stateid', 'stateid_state',
 311 %
 312 %     'same',
 313 %
 314 %     'ship_last', 'ship_first', 'ship_company',
 315 %     'ship_address1', 'ship_address2', 'ship_city',
 316 %     'ship_county', 'ship_state', 'ship_zip', 'ship_country',
 317 %     'ship_daytime','ship_night', 'ship_fax',
 318 %
 319 %     'select', #XXX key
 320 %
 321 %     'payauto',
 322 %     'payinfo', 'payinfo1', 'payinfo2', 'paytype',
 323 %     'payname', 'paystate', 'exp_month', 'exp_year', 'paycvv',
 324 %     'paystart_month', 'paystart_year', 'payissue',
 325 %     'payip',
 326 %     'paid',
 327 %
 328 %     'tax',
 329 %     'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
 330 %     'invoice_terms',
 331 %     'spool_cdr'
 332 %   ) {
 333 %
 334
 335   <INPUT TYPE="hidden" NAME="<% $hidden %>" VALUE="">
 336 % }
 337 %
 338 % my $ro_comments = $conf->exists('cust_main-use_comments')?'':'readonly';
 339 % if (!$ro_comments || $cust_main->comments) {
 340
 341 <BR>Comments
 342 <% &ntable("#cccccc") %>
 343   <TR>
 344     <TD>
 345       <TEXTAREA COLS=80 ROWS=5 WRAP="HARD" NAME="comments" <%$ro_comments%>><% $cust_main->comments %></TEXTAREA>
 346     </TD>
 347   </TR>
 348 </TABLE>
 349 %
 350 % }
 351 %
 352 %unless ( $custnum ) {
 353 %  # pry the wrong place for this logic.  also pretty expensive
 354 %  #use FS::part_pkg;
 355 %
 356 %  #false laziness, copied from FS::cust_pkg::order
 357 %  my $pkgpart;
 358 %  my @agents = $FS::CurrentUser::CurrentUser->agents;
 359 %  if ( scalar(@agents) == 1 ) {
 360 %    # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART
 361 %    $pkgpart = $agents[0]->pkgpart_hashref;
 362 %  } else {
 363 %    #can't know (agent not chosen), so, allow all
 364 %    my %typenum;
 365 %    foreach my $agent ( @agents ) {
 366 %      next if $typenum{$agent->typenum}++;
 367 %      #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
 368 %      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround
 369 %    }
 370 %  }
 371 %  #eslaf
 372 %
 373 %  my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
 374 %    qsearch( 'part_pkg', { 'disabled' => '' }, '', 'ORDER BY pkg' ); # case?
 375 %
 376 %  if ( @part_pkg ) {
 377 %
 378 %    #    print "<BR><BR>First package", &itable("#cccccc", "0 ALIGN=LEFT"),
 379 %    #apiabuse & undesirable wrapping
 380 %
 381 %
 382
 383     <BR>First package
 384     <% ntable("#cccccc") %>
 385
 386       <TR>
 387         <TD COLSPAN=2>
 388           <% include('cust_main/select-domain.html',
 389                        'pkgparts'      => \@part_pkg,
 390                        'saved_pkgpart' => $saved_pkgpart,
 391                        'saved_domsvc' => $saved_domsvc,
 392                     )
 393           %>
 394         </TD>
 395       </TR>
 396 %
 397 %        #false laziness: (mostly) copied from edit/svc_acct.cgi
 398 %        #$ulen = $svc_acct->dbdef_table->column('username')->length;
 399 %        my $ulen = dbdef->table('svc_acct')->column('username')->length;
 400 %        my $ulen2 = $ulen+2;
 401 %        my $passwordmax = $conf->config('passwordmax') || 8;
 402 %        my $pmax2 = $passwordmax + 2;
 403 %
 404
 405
 406       <TR>
 407         <TD ALIGN="right">Username</TD>
 408         <TD>
 409           <INPUT TYPE="text" NAME="username" VALUE="<% $username %>" SIZE=<% $ulen2 %> MAXLENGTH=<% $ulen %>>
 410         </TD>
 411       </TR>
 412
 413       <TR>
 414         <TD ALIGN="right">Domain</TD>
 415         <TD>
 416           <SELECT NAME="domsvc">
 417             <OPTION>(none)</OPTION>
 418           </SELECT>
 419         </TD>
 420       </TR>
 421
 422       <TR>
 423         <TD ALIGN="right">Password</TD>
 424         <TD>
 425           <INPUT TYPE="text" NAME="_password" VALUE="<% $password %>" SIZE=<% $pmax2 %> MAXLENGTH=<% $passwordmax %>>
 426           (blank to generate)
 427         </TD>
 428       </TR>
 429
 430       <TR>
 431         <TD ALIGN="right">Access number</TD>
 432         <TD><% FS::svc_acct_pop::popselector($popnum) %></TD>
 433       </TR>
 434     </TABLE>
 435 % }
 436 % }
 437
 438
 439 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $cust_main->otaker %>">
 440 <BR>
 441 <INPUT TYPE="submit" NAME="submit" VALUE="<% $custnum ?  "Apply Changes" : "Add Customer" %>">
 442 <BR>
 443 </FORM>
 444
 445 <% include('/elements/footer.html') %>
 446
 447 <%init>
 448
 449 die "access denied"
 450   unless $FS::CurrentUser::CurrentUser->access_right('Edit customer');
 451
 452 #for misplaced logic below
 453 #use FS::part_pkg;
 454
 455 #for false laziness below (now more properly lazy)
 456 #use FS::svc_acct_pop;
 457
 458 #for (other) false laziness below
 459 #use FS::agent;
 460 #use FS::type_pkgs;
 461
 462 my $conf = new FS::Conf;
 463
 464 #get record
 465
 466 my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart, $saved_domsvc);
 467 my(@invoicing_list);
 468 my ($ss,$stateid,$payinfo);
 469 my $same = '';
 470 if ( $cgi->param('error') ) {
 471   $cust_main = new FS::cust_main ( {
 472     map { $_, scalar($cgi->param($_)) } fields('cust_main')
 473   } );
 474   $custnum = $cust_main->custnum;
 475   $saved_domsvc = $cgi->param('domsvc') || '';
 476   if ( $saved_domsvc =~ /^(\d+)$/ ) {
 477     $saved_domsvc = $1;
 478   } else {
 479     $saved_domsvc = '';
 480   }
 481   $saved_pkgpart = $cgi->param('pkgpart_svcpart') || '';
 482   if ( $saved_pkgpart =~ /^(\d+)_/ ) {
 483     $saved_pkgpart = $1;
 484   } else {
 485     $saved_pkgpart = '';
 486   }
 487   $username = $cgi->param('username');
 488   $password = $cgi->param('_password');
 489   $popnum = $cgi->param('popnum');
 490   @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') );
 491   $same = $cgi->param('same');
 492   $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid');
 493   $ss = $cust_main->ss;           # don't mask an entered value on errors
 494   $stateid = $cust_main->stateid; # don't mask an entered value on errors
 495   $payinfo = $cust_main->payinfo; # don't mask an entered value on errors
 496 } elsif ( $cgi->keywords ) { #editing
 497   my( $query ) = $cgi->keywords;
 498   $query =~ /^(\d+)$/;
 499   $custnum=$1;
 500   $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
 501   if ( $cust_main->dbdef_table->column('paycvv')
 502        && length($cust_main->paycvv)             ) {
 503     my $paycvv = $cust_main->paycvv;
 504     $paycvv =~ s/./*/g;
 505     $cust_main->paycvv($paycvv);
 506   }
 507   $saved_pkgpart = 0;
 508   $saved_domsvc = 0;
 509   $username = '';
 510   $password = '';
 511   $popnum = 0;
 512   @invoicing_list = $cust_main->invoicing_list;
 513   $ss = $cust_main->masked('ss');
 514   $stateid = $cust_main->masked('stateid');
 515   $payinfo = $cust_main->paymask;
 516 } else {
 517   $custnum='';
 518   $cust_main = new FS::cust_main ( {} );
 519   $cust_main->otaker( &getotaker );
 520   $cust_main->referral_custnum( $cgi->param('referral_custnum') );
 521   $saved_pkgpart = 0;
 522   $saved_domsvc = 0;
 523   $username = '';
 524   $password = '';
 525   $popnum = 0;
 526   @invoicing_list = ();
 527   push @invoicing_list, 'POST'
 528     unless $conf->exists('disablepostalinvoicedefault');
 529   $ss = '';
 530   $stateid = '';
 531   $payinfo = '';
 532 }
 533
 534 my $error = $cgi->param('error');
 535 $cgi->delete_all();
 536 $cgi->param('error', $error);
 537
 538 my $action = $custnum ? 'Edit' : 'Add';
 539 $action .= ": ". $cust_main->name if $custnum;
 540
 541 my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
 542
 543 </%init>