httemplate/edit/cust_main.cgi

   1 %
   2 %
   3 %  #for misplaced logic below
   4 %  #use FS::part_pkg;
   5 %
   6 %  #for false laziness below (now more properly lazy)
   7 %  #use FS::svc_acct_pop;
   8 %
   9 %  #for (other) false laziness below
  10 %  #use FS::agent;
  11 %  #use FS::type_pkgs;
  12 %
  13 %my $conf = new FS::Conf;
  14 %
  15 %#get record
  16 %
  17 %my $error = '';
  18 %my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart);
  19 %my(@invoicing_list);
  20 %my $same = '';
  21 %if ( $cgi->param('error') ) {
  22 %  $error = $cgi->param('error');
  23 %  $cust_main = new FS::cust_main ( {
  24 %    map { $_, scalar($cgi->param($_)) } fields('cust_main')
  25 %  } );
  26 %  $custnum = $cust_main->custnum;
  27 %  $saved_pkgpart = $cgi->param('pkgpart_svcpart') || '';
  28 %  if ( $saved_pkgpart =~ /^(\d+)_/ ) {
  29 %    $saved_pkgpart = $1;
  30 %  } else {
  31 %    $saved_pkgpart = '';
  32 %  }
  33 %  $username = $cgi->param('username');
  34 %  $password = $cgi->param('_password');
  35 %  $popnum = $cgi->param('popnum');
  36 %  @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') );
  37 %  $same = $cgi->param('same');
  38 %  $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid');
  39 %} elsif ( $cgi->keywords ) { #editing
  40 %  my( $query ) = $cgi->keywords;
  41 %  $query =~ /^(\d+)$/;
  42 %  $custnum=$1;
  43 %  $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
  44 %  if ( $cust_main->dbdef_table->column('paycvv')
  45 %       && length($cust_main->paycvv)             ) {
  46 %    my $paycvv = $cust_main->paycvv;
  47 %    $paycvv =~ s/./*/g;
  48 %    $cust_main->paycvv($paycvv);
  49 %  }
  50 %  $saved_pkgpart = 0;
  51 %  $username = '';
  52 %  $password = '';
  53 %  $popnum = 0;
  54 %  @invoicing_list = $cust_main->invoicing_list;
  55 %} else {
  56 %  $custnum='';
  57 %  $cust_main = new FS::cust_main ( {} );
  58 %  $cust_main->otaker( &getotaker );
  59 %  $cust_main->referral_custnum( $cgi->param('referral_custnum') );
  60 %  $saved_pkgpart = 0;
  61 %  $username = '';
  62 %  $password = '';
  63 %  $popnum = 0;
  64 %  @invoicing_list = ();
  65 %}
  66 %$cgi->delete_all();
  67 %
  68 %my $action = $custnum ? 'Edit' : 'Add';
  69 %$action .= ": ". $cust_main->name if $custnum;
  70 %
  71 %my $r = qq!<font color="#ff0000">*</font>&nbsp;!;
  72 %
  73 %
  74
  75
  76 <!-- top -->
  77
  78 <% include('/elements/header.html',
  79       "Customer $action",
  80       '',
  81       ' onUnload="myclose()"'
  82 ) %>
  83 % if ( $error ) {
  84
  85 <FONT SIZE="+1" COLOR="#ff0000">Error: <% $error %></FONT><BR><BR>
  86 % }
  87
  88
  89 <FORM NAME="topform" STYLE="margin-bottom: 0">
  90 <INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>">
  91 % if ( $custnum ) {
  92
  93   Customer #<B><% $custnum %></B> -
  94   <B><FONT COLOR="<% $cust_main->statuscolor %>">
  95     <% ucfirst($cust_main->status) %>
  96   </FONT></B>
  97   <BR><BR>
  98 % }
  99
 100
 101 <% &ntable("#cccccc") %>
 102
 103 <!-- agent -->
 104
 105 <% include('/elements/tr-select-agent.html', $cust_main->agentnum,
 106               'label'       => "<B>${r}Agent</B>",
 107               'empty_label' => 'Select agent',
 108            )
 109 %>
 110
 111 <!-- referral (advertising source) -->
 112 %
 113 %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0;
 114 %if ( $custnum && ! $conf->exists('editreferrals') ) {
 115 %
 116
 117
 118   <INPUT TYPE="hidden" NAME="refnum" VALUE="<% $refnum %>">
 119 % } else {
 120
 121
 122    <% include('/elements/tr-select-part_referral.html') %>
 123 % }
 124
 125
 126 <!-- referring customer -->
 127 %
 128 %my $referring_cust_main = '';
 129 %if ( $cust_main->referral_custnum
 130 %     and $referring_cust_main =
 131 %           qsearchs('cust_main', { custnum => $cust_main->referral_custnum } )
 132 %) {
 133 %
 134
 135
 136   <TR>
 137     <TD ALIGN="right">Referring customer</TD>
 138     <TD>
 139       <A HREF="<% popurl(1) %>/cust_main.cgi?<% $cust_main->referral_custnum %>"><% $cust_main->referral_custnum %>: <% $referring_cust_main->name %></A>
 140     </TD>
 141   </TR>
 142   <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="<% $cust_main->referral_custnum %>">
 143 % } elsif ( ! $conf->exists('disable_customer_referrals') ) {
 144
 145
 146   <TR>
 147     <TD ALIGN="right">Referring customer</TD>
 148     <TD>
 149       <!-- <INPUT TYPE="text" NAME="referral_custnum" VALUE=""> -->
 150       <% include('/elements/search-cust_main.html',
 151                     'field_name' => 'referral_custnum',
 152                  )
 153       %>
 154     </TD>
 155   </TR>
 156 % } else {
 157
 158
 159   <INPUT TYPE="hidden" NAME="referral_custnum" VALUE="">
 160 % }
 161
 162
 163 </TABLE>
 164
 165 <!-- contact info -->
 166
 167 <BR><BR>
 168 Billing address
 169 <% include('cust_main/contact.html', $cust_main, '', 'bill_changed(this)', '' ) %>
 170
 171 <!-- service address -->
 172 % if ( defined $cust_main->dbdef_table->column('ship_last') ) {
 173
 174
 175 <SCRIPT>
 176 function bill_changed(what) {
 177   if ( what.form.same.checked ) {
 178 % for (qw( last first company address1 address2 city zip daytime night fax )) {
 179
 180     what.form.ship_<%$_%>.value = what.form.<%$_%>.value;
 181 % }
 182
 183
 184     what.form.ship_country.selectedIndex = what.form.country.selectedIndex;
 185     function fix_ship_state() {
 186       what.form.ship_state.selectedIndex = what.form.state.selectedIndex;
 187     }
 188     ship_country_changed(what.form.ship_country, fix_ship_state );
 189
 190     function fix_ship_county() {
 191       what.form.ship_county.selectedIndex = what.form.county.selectedIndex;
 192     }
 193     ship_state_changed(what.form.ship_state, fix_ship_county );
 194   }
 195 }
 196 function samechanged(what) {
 197   if ( what.checked ) {
 198     bill_changed(what);
 199 % for (qw( last first company address1 address2 city county state zip country daytime night fax )) {
 200
 201     what.form.ship_<%$_%>.disabled = true;
 202     what.form.ship_<%$_%>.style.backgroundColor = '#dddddd';
 203 % }
 204
 205   } else {
 206 % for (qw( last first company address1 address2 city county state zip country daytime night fax )) {
 207
 208     what.form.ship_<%$_%>.disabled = false;
 209     what.form.ship_<%$_%>.style.backgroundColor = '#ffffff';
 210 % }
 211
 212   }
 213 }
 214 </SCRIPT>
 215 %
 216 %  my $checked = '';
 217 %  my $disabled = '';
 218 %  my $disabledselect = '';
 219 %  unless ( $cust_main->ship_last && $same ne 'Y' ) {
 220 %    $checked = 'CHECKED';
 221 %    $disabled = 'DISABLED style="background-color: #dddddd"';
 222 %    foreach (
 223 %      qw( last first company address1 address2 city county state zip country
 224 %          daytime night fax )
 225 %    ) {
 226 %      $cust_main->set("ship_$_", $cust_main->get($_) );
 227 %    }
 228 %  }
 229 %
 230
 231
 232 <BR>
 233 Service address
 234 (<INPUT TYPE="checkbox" NAME="same" VALUE="Y" onClick="samechanged(this)" <%$checked%>>same as billing address)
 235 <% include('cust_main/contact.html', $cust_main, 'ship_', '', $disabled ) %>
 236 % }
 237
 238
 239 <!-- billing info -->
 240
 241 <% include( 'cust_main/billing.html', $cust_main,
 242                'invoicing_list' => \@invoicing_list,
 243            )
 244 %>
 245
 246 <SCRIPT>
 247 function bottomfixup(what) {
 248
 249   var topvars = new Array(
 250     'custnum', 'agentnum', 'refnum', 'referral_custnum',
 251
 252     'last', 'first', 'ss', 'company',
 253     'address1', 'address2', 'city',
 254     'county', 'state', 'zip', 'country',
 255     'daytime', 'night', 'fax',
 256
 257     'same',
 258
 259     'ship_last', 'ship_first', 'ship_company',
 260     'ship_address1', 'ship_address2', 'ship_city',
 261     'ship_county', 'ship_state', 'ship_zip', 'ship_country',
 262     'ship_daytime','ship_night', 'ship_fax',
 263
 264     'select' // XXX key
 265   );
 266
 267   var layervars = new Array(
 268     'payauto',
 269     'payinfo', 'payinfo1', 'payinfo2',
 270     'payname', 'exp_month', 'exp_year', 'paycvv',
 271     'paystart_month', 'paystart_year', 'payissue',
 272     'payip',
 273     'paid'
 274   );
 275
 276   var billing_bottomvars = new Array(
 277     'tax',
 278     'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
 279     'spool_cdr'
 280   );
 281
 282   for ( f=0; f < topvars.length; f++ ) {
 283     var field = topvars[f];
 284     copyelement( document.topform.elements[field],
 285                  document.bottomform.elements[field]
 286                );
 287   }
 288
 289   var layerform = document.topform.select.options[document.topform.select.selectedIndex].value;
 290   for ( f=0; f < layervars.length; f++ ) {
 291     var field = layervars[f];
 292     copyelement( document.forms[layerform].elements[field],
 293                  document.bottomform.elements[field]
 294                );
 295   }
 296
 297   for ( f=0; f < billing_bottomvars.length; f++ ) {
 298     var field = billing_bottomvars[f];
 299     copyelement( document.billing_bottomform.elements[field],
 300                  document.bottomform.elements[field]
 301                );
 302   }
 303
 304 }
 305
 306 function copyelement(from, to) {
 307   if ( from == undefined ) {
 308     to.value = '';
 309   } else if ( from.type == 'select-one' ) {
 310     to.value = from.options[from.selectedIndex].value;
 311     //alert(from + " (" + from.type + "): " + to.name + " => (" + from.selectedIndex + ") " + to.value);
 312   } else if ( from.type == 'checkbox' ) {
 313     if ( from.checked ) {
 314       to.value = from.value;
 315     } else {
 316       to.value = '';
 317     }
 318   } else {
 319     if ( from.value == undefined ) {
 320       to.value = '';
 321     } else {
 322       to.value = from.value;
 323     }
 324   }
 325   //alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
 326 }
 327
 328 </SCRIPT>
 329
 330 <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">
 331 % foreach my $hidden (
 332 %     'custnum', 'agentnum', 'refnum', 'referral_custnum',
 333 %     'last', 'first', 'ss', 'company',
 334 %     'address1', 'address2', 'city',
 335 %     'county', 'state', 'zip', 'country',
 336 %     'daytime', 'night', 'fax',
 337 %
 338 %     'same',
 339 %
 340 %     'ship_last', 'ship_first', 'ship_company',
 341 %     'ship_address1', 'ship_address2', 'ship_city',
 342 %     'ship_county', 'ship_state', 'ship_zip', 'ship_country',
 343 %     'ship_daytime','ship_night', 'ship_fax',
 344 %
 345 %     'select', #XXX key
 346 %
 347 %     'payauto',
 348 %     'payinfo', 'payinfo1', 'payinfo2',
 349 %     'payname', 'exp_month', 'exp_year', 'paycvv',
 350 %     'paystart_month', 'paystart_year', 'payissue',
 351 %     'payip',
 352 %     'paid',
 353 %
 354 %     'tax',
 355 %     'invoicing_list', 'invoicing_list_POST', 'invoicing_list_FAX',
 356 %     'spool_cdr'
 357 %   ) {
 358 %
 359
 360   <INPUT TYPE="hidden" NAME="<% $hidden %>" VALUE="">
 361 % }
 362
 363
 364 <BR>Comments
 365 <% &ntable("#cccccc") %>
 366   <TR>
 367     <TD>
 368       <TEXTAREA COLS=80 ROWS=5 WRAP="HARD" NAME="comments"><% $cust_main->comments %></TEXTAREA>
 369     </TD>
 370   </TR>
 371 </TABLE>
 372 %
 373 %
 374 %unless ( $custnum ) {
 375 %  # pry the wrong place for this logic.  also pretty expensive
 376 %  #use FS::part_pkg;
 377 %
 378 %  #false laziness, copied from FS::cust_pkg::order
 379 %  my $pkgpart;
 380 %  my @agents = $FS::CurrentUser::CurrentUser->agents;
 381 %  if ( scalar(@agents) == 1 ) {
 382 %    # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART
 383 %    $pkgpart = $agents[0]->pkgpart_hashref;
 384 %  } else {
 385 %    #can't know (agent not chosen), so, allow all
 386 %    my %typenum;
 387 %    foreach my $agent ( @agents ) {
 388 %      next if $typenum{$agent->typenum}++;
 389 %      #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref }
 390 %      foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround
 391 %    }
 392 %  }
 393 %  #eslaf
 394 %
 395 %  my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
 396 %    qsearch( 'part_pkg', { 'disabled' => '' } );
 397 %
 398 %  if ( @part_pkg ) {
 399 %
 400 %    #    print "<BR><BR>First package", &itable("#cccccc", "0 ALIGN=LEFT"),
 401 %    #apiabuse & undesirable wrapping
 402 %
 403 %
 404
 405     <BR>First package
 406     <% ntable("#cccccc") %>
 407
 408       <TR>
 409         <TD COLSPAN=2>
 410           <SELECT NAME="pkgpart_svcpart">
 411             <OPTION VALUE="">(none)
 412 % foreach my $part_pkg ( @part_pkg ) {
 413
 414
 415               <OPTION VALUE="<% $part_pkg->pkgpart. "_". $part_pkg->svcpart('svc_acct') %>"<% ( $saved_pkgpart && $part_pkg->pkgpart == $saved_pkgpart ) ? ' SELECTED' : '' %>><% $part_pkg->pkg. " - ". $part_pkg->comment %>
 416 % }
 417
 418           </SELECT>
 419         </TD>
 420       </TR>
 421 %
 422 %        #false laziness: (mostly) copied from edit/svc_acct.cgi
 423 %        #$ulen = $svc_acct->dbdef_table->column('username')->length;
 424 %        my $ulen = dbdef->table('svc_acct')->column('username')->length;
 425 %        my $ulen2 = $ulen+2;
 426 %        my $passwordmax = $conf->config('passwordmax') || 8;
 427 %        my $pmax2 = $passwordmax + 2;
 428 %
 429
 430
 431       <TR>
 432         <TD ALIGN="right">Username</TD>
 433         <TD>
 434           <INPUT TYPE="text" NAME="username" VALUE="<% $username %>" SIZE=<% $ulen2 %> MAXLENGTH=<% $ulen %>>
 435         </TD>
 436       </TR>
 437
 438       <TR>
 439         <TD ALIGN="right">Password</TD>
 440         <TD>
 441           <INPUT TYPE="text" NAME="_password" VALUE="<% $password %>" SIZE=<% $pmax2 %> MAXLENGTH=<% $passwordmax %>>
 442           (blank to generate)
 443         </TD>
 444       </TR>
 445
 446       <TR>
 447         <TD ALIGN="right">Access number</TD>
 448         <TD><% FS::svc_acct_pop::popselector($popnum) %></TD>
 449       </TR>
 450     </TABLE>
 451 % }
 452 % }
 453
 454
 455 <INPUT TYPE="hidden" NAME="otaker" VALUE="<% $cust_main->otaker %>">
 456 <BR>
 457 <INPUT TYPE="submit" NAME="submit" VALUE="<% $custnum ?  "Apply Changes" : "Add Customer" %>">
 458 <BR>
 459 </FORM>
 460
 461 <% include('/elements/footer.html') %>
 462