<% #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'; %> <%= header("Customer $action", '', ' onUnload="myclose()"') %> <% if ( $error ) { %> Error: <%= $error %> <% } %>
Customer # <%= $custnum ? "$custnum" : " (NEW)" %> <% 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 ) { %> <% } else { %>

<%=$r%>Agent <% } %> <% # (referral and referring customer still need to be "template"ized) #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 ''; } %>

Billing address <%= include('cust_main/contact.html', $cust_main, '', 'bill_changed(this)', '' ) %> <% if ( defined $cust_main->dbdef_table->column('ship_last') ) { %> <% my $checked = ''; my $disabled = ''; my $disabledselect = ''; unless ( $cust_main->ship_last && $cgi->param('same') ne 'Y' ) { $checked = 'CHECKED'; $disabled = 'DISABLED style="background-color: #dddddd"'; foreach ( qw( last first company address1 address2 city county state zip country daytime night fax ) ) { $cust_main->set("ship_$_", $cust_main->get($_) ); } } %>
Service address (>same as billing address) <%= include('cust_main/contact.html', $cust_main, 'ship_', '', $disabled ) %> <% } %> <% # 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!; print qq!FAX invoice!; my $invoicing_list = join(', ', grep { $_ !~ /^(POST|FAX)$/ } @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!
!, "", ; %>