X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main.cgi;h=be00213e2797229b57f6d8fe6bd912077173ea14;hb=e710e07e4451b7c615fb477799dc64bf3490248c;hp=61468f3822cf14957a0ef53f84f50d840ad74450;hpb=18c025613fa052cf4ba8d484f1296cc2a1719a24;p=freeside.git
diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi
index 61468f382..be00213e2 100755
--- a/httemplate/edit/cust_main.cgi
+++ b/httemplate/edit/cust_main.cgi
@@ -1,471 +1,392 @@
-
-<%
-
- #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
+<& /elements/header.html,
+ $title,
+ '',
+ ' onUnload="myclose()"' #hmm, in billing.html
+&>
+
+<& /elements/error.html &>
+
+
-my $r = qq!* !;
+<& /elements/footer.html &>
-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
- <% foreach my $agent (sort { $a->agent cmp $b->agent; } @agents) { %>
- agentnum==$agentnum) %>><%= $agent->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 !;
- print " " unless $refnum;
- my($referral);
- foreach $referral (sort {
- $a->refnum <=> $b->refnum;
- } @referrals) {
- print " refnum==$refnum),
- ">", $referral->refnum, ": ", $referral->referral;
- }
- print " ";
- }
-}
+<%init>
-#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 ' ';
-}
+my $curuser = $FS::CurrentUser::CurrentUser;
-%>
+#probably redundant given the checks below...
+die "access denied"
+ unless $curuser->access_right('New customer')
+ || $curuser->access_right('Edit customer');
-
+my $conf = new FS::Conf;
-
-Billing address
-<%= include('cust_main/contact.html', $cust_main, '', 'bill_changed(this)', '' ) %>
+#get record
-
+my($custnum, $cust_main, $ss, $stateid, $payinfo, @invoicing_list);
+my $pkgpart_svcpart = ''; #first_pkg
+my($username, $password, $popnum, $saved_domsvc) = ( '', '', 0, 0 ); #svc_acct
+my %svc_phone = ();
+my %svc_dsl = ();
+my $prospectnum = '';
+my $locationnum = '';
+my $same = '';
-<% 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($_) );
- }
- }
-%>
+if ( $cgi->param('error') ) {
-
-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";
+ $same = ($cgi->param('same') || '') eq 'Y';
+ # false laziness w/ edit/process/cust_main.cgi
+ my %locations;
+ for my $pre (qw(bill ship)) {
+ my %hash;
+ foreach ( FS::cust_main->location_fields ) {
+ $hash{$_} = scalar($cgi->param($pre.'_'.$_));
}
+ $hash{'custnum'} = $cgi->param('custnum');
+ $locations{$pre} = qsearchs('cust_location', \%hash)
+ || FS::cust_location->new( \%hash );
}
-
- my $return = qq!!;
- for ( 1 .. 12 ) {
- $return .= "/!;
- my @t = localtime;
- my $thisYear = $t[5] + 1900;
- for ( ($thisYear > $y && $y > 0 ? $y : $thisYear) .. 2037 ) {
- $return .= "config('payby-default');
+ $cust_main = new FS::cust_main ( {
+ map { ( $_, scalar($cgi->param($_)) ) } (fields('cust_main')),
+ map { ( "ship_$_", '' ) } (FS::cust_main->location_fields)
+ } );
-if ( $payby_default eq 'HIDE' ) {
+ for my $pre (qw(bill ship)) {
+ $cust_main->set($pre.'_location', $locations{$pre});
+ $cust_main->set($pre.'_locationnum', $locations{$pre}->locationnum);
+ }
- $cust_main->payby('BILL') unless $cust_main->payby;
+ $custnum = $cust_main->custnum;
- foreach my $field (qw( tax payby )) {
- print qq! ';
- }
+ die "access denied"
+ unless $curuser->access_right($custnum ? 'Edit customer' : 'New customer');
- print qq! ';
+ @invoicing_list = split( /\s*,\s*/, $cgi->param('invoicing_list') );
+ $cust_main->setfield('paid' => $cgi->param('paid')) if $cgi->param('paid');
+ $ss = $cust_main->ss; # don't mask an entered value on errors
+ $stateid = $cust_main->stateid; # don't mask an entered value on errors
+ $payinfo = $cust_main->payinfo; # don't mask an entered value on errors
- foreach my $payby (qw( CARD DCRD CHEK DCHK LECB BILL COMP )) {
- foreach my $field (qw( payinfo payname )) {
- print qq! ';
- }
+ $cust_main->national_id( $cgi->param('national_id1') || $cgi->param('national_id2') );
- #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";
- }
+ $prospectnum = $cgi->param('prospectnum') || '';
- print qq! !.
- qq! !;
+ $pkgpart_svcpart = $cgi->param('pkgpart_svcpart') || '';
- }
+ $locationnum = $cgi->param('locationnum') || '';
-} 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 ) !;
- }
+ #svc_acct
+ $username = $cgi->param('username');
+ $password = $cgi->param('_password');
+ $popnum = $cgi->param('popnum');
+ $saved_domsvc = $cgi->param('domsvc') || '';
+ if ( $saved_domsvc =~ /^(\d+)$/ ) {
+ $saved_domsvc = $1;
+ } else {
+ $saved_domsvc = '';
}
- 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),
-);
+ #svc_phone
+ $svc_phone{$_} = $cgi->param($_)
+ foreach qw( countrycode phonenum sip_password pin phone_name );
- if ( $cust_main->dbdef_table->column('paycvv') ) {
- my $paycvv = $cust_main->paycvv;
+ #svc_dsl (phonenum came in with svc_phone)
+ $svc_phone{$_} = $cgi->param($_)
+ foreach qw( password isp_chg isp_prev vendor_qual_id );
- foreach my $payby ( grep { exists $payby{$_} } qw(CARD DCRD) ) { #1.4/1.5 bs
- $paybychecked{$payby} .= qq! CVV2 (help ) !;
- }
- }
+} elsif ( $cgi->keywords ) { #editing
+ die "access denied"
+ unless $curuser->access_right('Edit customer');
- $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{$_}!;
- }
+ 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);
}
+ @invoicing_list = $cust_main->invoicing_list;
+ $ss = $conf->exists('unmask_ss') ? $cust_main->ss : $cust_main->masked('ss');
+ $stateid = $cust_main->masked('stateid');
+ $payinfo = $cust_main->paymask;
- print " $r required fields for each billing type";
-
-}
-
-if ( defined $cust_main->dbdef_table->column('comments') ) {
- print " Comments", &itable("#cccccc"),
- qq!!,
- $cust_main->comments, " ",
- " ";
-}
+} else { #new customer
-unless ( $custnum ) {
- # pry the wrong place for this logic. also pretty expensive
- #use FS::part_pkg;
+ die "access denied"
+ unless $curuser->access_right('New customer');
- #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
- }
+ $custnum='';
+ $cust_main = new FS::cust_main ( {} );
+ $cust_main->agentnum( $conf->config('default_agentnum') )
+ if $conf->exists('default_agentnum');
+ $cust_main->otaker( &getotaker );
+ $cust_main->referral_custnum( $cgi->param('referral_custnum') );
+ @invoicing_list = ();
+ push @invoicing_list, 'POST'
+ unless $conf->exists('disablepostalinvoicedefault');
+ $ss = '';
+ $stateid = '';
+ $payinfo = '';
+
+ $cgi->param('tagnum', FS::part_tag->default_tags);
+
+ if ( $cgi->param('qualnum') =~ /^(\d+)$/ ) {
+ my $qualnum = $1;
+ my $qual = qsearchs('qual', { 'qualnum' => $qualnum } )
+ or die "unknown qualnum $qualnum";
+
+ my $prospect_main = $qual->cust_or_prospect;
+ $prospectnum = $prospect_main->prospectnum
+ or die "qualification not on a prospect";
+
+ $cust_main->agentnum( $prospect_main->agentnum );
+ $cust_main->company( $prospect_main->company );
+
+ #first contact? -> name
+ my @contacts = $prospect_main->contact;
+ my $contact = $contacts[0];
+ $cust_main->first( $contact->first );
+ $cust_main->set( 'last', $contact->get('last') );
+ #contact phone numbers?
+
+ #location -> address (all prospect quals have location, right?)
+ my $cust_location = $qual->cust_location;
+ $cust_location->dealternize;
+ $cust_main->$_( $cust_location->$_ )
+ foreach qw( address1 address2 city county state zip country latitude longitude coord_auto geocode );
+
+ #locationnum -> package order
+ $locationnum = $qual->locationnum;
+
+ #pkgpart handled by lock_pkgpart below
+
+ #service telephone & vendor_qual_id -> svc_dsl
+ $svc_dsl{$_} = $qual->$_
+ foreach qw( phonenum vendor_qual_id );
+ }
+ else {
+ my $countrydefault = $conf->config('countrydefault') || 'US';
+ my $statedefault = $conf->config('statedefault') || 'CA';
+ $cust_main->set('bill_location',
+ FS::cust_location->new( {
+ country => $countrydefault,
+ state => $statedefault,
+ coord_auto => 'Y',
+ } )
+ );
+ $cust_main->set('ship_location',
+ FS::cust_location->new( {
+ country => $countrydefault,
+ state => $statedefault,
+ coord_auto => 'Y',
+ } )
+ );
}
- #eslaf
-
- my @part_pkg = grep { $_->svcpart('svc_acct') && $pkgpart->{ $_->pkgpart } }
- qsearch( 'part_pkg', { 'disabled' => '' } );
- if ( @part_pkg ) {
+ if ( $cgi->param('lock_pkgpart') =~ /^(\d+)$/ ) {
+ my $pkgpart = $1;
+ my $part_pkg = qsearchs('part_pkg', { 'pkgpart' => $pkgpart } )
+ or die "unknown pkgpart $pkgpart";
+ my $svcpart = $part_pkg->svcpart;
+ $pkgpart_svcpart = $pkgpart.'_'.$svcpart;
+ }
-# print " First package", &itable("#cccccc", "0 ALIGN=LEFT"),
-#apiabuse & undesirable wrapping
- print " First package", &itable("#cccccc"),
- qq!!;
+}
- print qq!(none)!;
+my %keep = map { $_=>1 } qw( error tagnum lock_agentnum lock_pkgpart );
+$cgi->delete( grep { !$keep{$_} && $_ !~ /^tax_/ } $cgi->param );
- foreach my $part_pkg ( @part_pkg ) {
- print qq! pkgpart }, '"';
- $part_pkg->pkgpart. "_". $part_pkg->svcpart('svc_acct'), '"';
- print " SELECTED" if $saved_pkgpart && ( $part_pkg->pkgpart == $saved_pkgpart );
- print ">", $part_pkg->pkg, " - ", $part_pkg->comment;
- }
- print " ";
-
- #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 $title = $custnum ? 'Edit Customer' : 'Add Customer';
+$title = mt($title);
+$title .= ": ". $cust_main->name if $custnum;
-my $otaker = $cust_main->otaker;
-print qq! !,
- qq! !,
- "