<% #for misplaced logic below #use FS::part_pkg; #for false laziness below (now more properly lazy) #use FS::svc_acct_pop; #for (other) false laziness below #use FS::agent; #use FS::type_pkgs; my $conf = new FS::Conf; #get record my $error = ''; my($custnum, $username, $password, $popnum, $cust_main, $saved_pkgpart); my(@invoicing_list); if ( $cgi->param('error') ) { $error = $cgi->param('error'); $cust_main = new FS::cust_main ( { map { $_, scalar($cgi->param($_)) } fields('cust_main') } ); $custnum = $cust_main->custnum; $saved_pkgpart = $cgi->param('pkgpart_svcpart') || ''; if ( $saved_pkgpart =~ /^(\d+)_/ ) { $saved_pkgpart = $1; } else { $saved_pkgpart = ''; } $username = $cgi->param('username'); $password = $cgi->param('_password'); $popnum = $cgi->param('popnum'); @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') ); } elsif ( $cgi->keywords ) { #editing my( $query ) = $cgi->keywords; $query =~ /^(\d+)$/; $custnum=$1; $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } ); if ( $cust_main->dbdef_table->column('paycvv') && length($cust_main->paycvv) ) { my $paycvv = $cust_main->paycvv; $paycvv =~ s/./*/g; $cust_main->paycvv($paycvv); } $saved_pkgpart = 0; $username = ''; $password = ''; $popnum = 0; @invoicing_list = $cust_main->invoicing_list; } else { $custnum=''; $cust_main = new FS::cust_main ( {} ); $cust_main->otaker( &getotaker ); $cust_main->referral_custnum( $cgi->param('referral_custnum') ); $saved_pkgpart = 0; $username = ''; $password = ''; $popnum = 0; @invoicing_list = (); } $cgi->delete_all(); my $action = $custnum ? 'Edit' : 'Add'; # top my $p1 = popurl(1); print header("Customer $action", '', ' onUnload="myclose()"'); print qq!Error: !, $error, "" if $error; print qq!
!, qq!!, qq!Customer # !, ( $custnum ? "$custnum" : " (NEW)" ), ; # agent my $r = qq!* !; my %agent_search = dbdef->table('agent')->column('disabled') ? ( 'disabled' => '' ) : (); my @agents = qsearch( 'agent', \%agent_search ); #die "No agents created!" unless @agents; eidiot "You have not created any agents (or all agents are disabled). You must create at least one agent before adding a customer. Go to ". popurl(2). "browse/agent.cgi and create one or more agents." unless @agents; my $agentnum = $cust_main->agentnum || $agents[0]->agentnum; #default to first if ( scalar(@agents) == 1 ) { print qq!!; } else { print qq!

${r}Agent "; } #referral my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0; if ( $custnum && ! $conf->exists('editreferrals') ) { print qq!!; } else { my(@referrals) = qsearch('part_referral',{}); if ( scalar(@referrals) == 0 ) { eidiot "You have not created any advertising sources. You must create at least one advertising source before adding a customer. Go to ". popurl(2). "browse/part_referral.cgi and create one or more advertising sources."; } elsif ( scalar(@referrals) == 1 ) { $refnum ||= $referrals[0]->refnum; print qq!!; } else { print qq!

${r}Advertising source "; } } #referring customer #print qq!

Referring Customer: !; my $referring_cust_main = ''; if ( $cust_main->referral_custnum and $referring_cust_main = qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) ) { print '

Referring Customer: '. $cust_main->referral_custnum. ': '. ( $referring_cust_main->company || $referring_cust_main->last. ', '. $referring_cust_main->first ). ''; } elsif ( ! $conf->exists('disable_customer_referrals') ) { print '

Referring customer number: '; } else { print ''; } # contact info my($last,$first,$ss,$company,$address1,$address2,$city,$zip)=( $cust_main->last, $cust_main->first, $cust_main->ss, $cust_main->company, $cust_main->address1, $cust_main->address2, $cust_main->city, $cust_main->zip, ); print "

Billing address", &itable("#cccccc"), <${r}Contact name
(last, first) END print < , END if ( $conf->exists('show_ss') ) { print qq!SS#!; } else { print qq!!; } print < Company ${r}Address   ${r}City${r}State END #false laziness with ship state my $countrydefault = $conf->config('countrydefault') || 'US'; $cust_main->country( $countrydefault ) unless $cust_main->country; my $statedefault = $conf->config('statedefault') || ($countrydefault eq 'US' ? 'CA' : ''); $cust_main->state( $statedefault ) unless $cust_main->state || $cust_main->country ne $countrydefault; my($county_html, $state_html, $country_html) = FS::cust_main_county::regionselector( $cust_main->county, $cust_main->state, $cust_main->country ); print "$county_html $state_html"; print qq!${r}Zip!; my($daytime,$night,$fax)=( $cust_main->daytime, $cust_main->night, $cust_main->fax, ); my $daytime_label = FS::Msgcat::_gettext('daytime') || 'Day Phone'; my $night_label = FS::Msgcat::_gettext('night') || 'Night Phone'; print <${r}Country$country_html $daytime_label $night_label Fax END print "${r}required fields
"; # service address if ( defined $cust_main->dbdef_table->column('ship_last') ) { print "\n", < function changed(what) { what.form.same.checked = false; } function samechanged(what) { if ( what.checked ) { END print " what.form.ship_$_.value = what.form.$_.value;\n" for (qw( last first company address1 address2 city zip daytime night fax )); print < END print '
Service address ', '(ship_last && $cgi->param('same') ne 'Y' ) { print ' CHECKED'; foreach ( qw( last first company address1 address2 city county state zip country daytime night fax ) ) { $cust_main->set("ship_$_", $cust_main->get($_) ); } } print '>same as billing address)
'; my($ship_last,$ship_first,$ship_company,$ship_address1,$ship_address2,$ship_city,$ship_zip)=( $cust_main->ship_last, $cust_main->ship_first, $cust_main->ship_company, $cust_main->ship_address1, $cust_main->ship_address2, $cust_main->ship_city, $cust_main->ship_zip, ); print &itable("#cccccc"), <${r}Contact name
(last, first) END print < , END print < Company ${r}Address   ${r}City${r}State END #false laziness with regular state $cust_main->ship_country( $countrydefault ) unless $cust_main->ship_country; $cust_main->ship_state( $statedefault ) unless $cust_main->ship_state || $cust_main->ship_country ne $countrydefault; my($ship_county_html, $ship_state_html, $ship_country_html) = FS::cust_main_county::regionselector( $cust_main->ship_county, $cust_main->ship_state, $cust_main->ship_country, 'ship_', 'changed(this)', ); print "$ship_county_html $ship_state_html"; print qq!${r}Zip!; my($ship_daytime,$ship_night,$ship_fax)=( $cust_main->ship_daytime, $cust_main->ship_night, $cust_main->ship_fax, ); print <${r}Country$ship_country_html $daytime_label $night_label Fax END print "${r}required fields
"; } # billing info sub expselect { my $prefix = shift; my( $m, $y ) = (0, 0); if ( scalar(@_) ) { my $date = shift || '01-2000'; if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format ( $m, $y ) = ( $2, $1 ); } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) { ( $m, $y ) = ( $1, $3 ); } else { die "unrecognized expiration date format: $date"; } } my $return = qq!!; my @t = localtime; my $thisYear = $t[5] + 1900; for ( ($thisYear > $y && $y > 0 ? $y : $thisYear) .. 2037 ) { $return .= "config('payby-default'); if ( $payby_default eq 'HIDE' ) { $cust_main->payby('BILL') unless $cust_main->payby; foreach my $field (qw( tax payby )) { print qq!'; } print qq!'; foreach my $payby (qw( CARD DCRD CHEK DCHK LECB BILL COMP )) { foreach my $field (qw( payinfo payname )) { print qq!'; } #false laziness w/expselect my( $m, $y ); my $date = $cust_main->paydate || '12-2037'; if ( $date =~ /^(\d{4})-(\d{1,2})-\d{1,2}$/ ) { #PostgreSQL date format ( $m, $y ) = ( $2, $1 ); } elsif ( $date =~ /^(\d{1,2})-(\d{1,2}-)?(\d{4}$)/ ) { ( $m, $y ) = ( $1, $3 ); } else { die "unrecognized expiration date format: $date"; } print qq!!. qq!!; } } else { print "
Billing information", &itable("#cccccc"), qq!tax eq "Y"; print qq!>Tax Exempt!. qq!invoicing_list; print qq! CHECKED! if ( ! @invoicing_list && ! $conf->exists('disablepostalinvoicedefault') ) || grep { $_ eq 'POST' } @invoicing_list; print qq!>Postal mail invoice!; my $invoicing_list = join(', ', grep { $_ ne 'POST' } @invoicing_list ); print qq!Email invoice !; print "Billing type", "", '', &table("#cccccc"), ""; my($payinfo, $payname)=( $cust_main->payinfo, $cust_main->payname, ); my %payby = ( 'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD"). qq!
${r}Name on card
!, 'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD"). qq!
${r}Name on card
!, 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !, 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !, 'LECB' => qq!Phone bill billing
${r}Phone number !, 'BILL' => qq!Billing
P.O.
Attention
!, 'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP"), ); if ( $cust_main->dbdef_table->column('paycvv') ) { foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 bs $payby{$payby} .= qq!
CVV2 (help!; } } my( $account, $aba ) = split('@', $payinfo); my %paybychecked = ( 'CARD' => qq!Credit card (automatic)
${r}
${r}Exp !. expselect("CARD", $cust_main->paydate). qq!
${r}Name on card
!, 'DCRD' => qq!Credit card (on-demand)
${r}
${r}Exp !. expselect("DCRD", $cust_main->paydate). qq!
${r}Name on card
!, 'CHEK' => qq!Electronic check (automatic)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !, 'DCHK' => qq!Electronic check (on-demand)
${r}Account number
${r}ABA/Routing number (help)
${r}Bank name !, 'LECB' => qq!Phone bill billing
${r}Phone number !, 'BILL' => qq!Billing
P.O.
Attention
!, 'COMP' => qq!Complimentary
${r}Approved by
${r}Exp !. expselect("COMP", $cust_main->paydate), ); if ( $cust_main->dbdef_table->column('paycvv') ) { my $paycvv = $cust_main->paycvv; foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 bs $paybychecked{$payby} .= qq!
CVV2 (help!; } } $cust_main->payby($payby_default) unless $cust_main->payby; for (qw(CARD DCRD CHEK DCHK LECB BILL COMP)) { print qq!payby eq "$_") { print qq! CHECKED> $paybychecked{$_}!; } else { print qq!> $payby{$_}!; } } print "$r required fields for each billing type"; } if ( defined $cust_main->dbdef_table->column('comments') ) { print "

Comments", &itable("#cccccc"), qq!", ""; } 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; if ( scalar(@agents) == 1 ) { # $pkgpart->{PKGPART} is true iff $custnum may purchase PKGPART my($agent)=qsearchs('agent',{'agentnum'=> $agentnum }); $pkgpart = $agent->pkgpart_hashref; } else { #can't know (agent not chosen), so, allow all my %typenum; foreach my $agent ( @agents ) { next if $typenum{$agent->typenum}++; #fixed in 5.004_05 #$pkgpart->{$_}++ foreach keys %{ $agent->pkgpart_hashref } foreach ( keys %{ $agent->pkgpart_hashref } ) { $pkgpart->{$_}++; } #5.004_04 workaround } } #eslaf my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } } qsearch( 'part_pkg', { 'disabled' => '' } ); if ( @part_pkg ) { # print "

First package", &itable("#cccccc", "0 ALIGN=LEFT"), #apiabuse & undesirable wrapping print "

First package", &itable("#cccccc"), qq!"; #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; print <Username Password (blank to generate) END print 'Access number' . &FS::svc_acct_pop::popselector($popnum). '' ; } } my $otaker = $cust_main->otaker; print qq!!, qq!
!, "", ; %>