},
{
+ 'key' => 'cust_main-check_unique',
+ 'section' => '',
+ 'description' => 'Warn before creating a customer record where these fields duplicate another customer.',
+ 'type' => 'select',
+ 'multiple' => 1,
+ 'select_hash' => [
+ 'address1' => 'Billing address',
+ ],
+ },
+
+ {
'key' => 'svc_acct-display_paid_time_remaining',
'section' => '',
'description' => 'Show paid time remaining in addition to time remaining.',
<INPUT TYPE="hidden" NAME="<% $hidden %>" VALUE="">
% }
-<& cust_main/bottomfixup.html &>
+<& cust_main/bottomfixup.html, 'custnum' => $custnum &>
<BR>
<INPUT TYPE = "button"
-<% include('/elements/init_overlib.html') %>
+<& /elements/init_overlib.html &>
-<% include( '/elements/xmlhttp.html',
- 'url' => $p.'misc/xmlhttp-cust_main-address_standardize.html',
- 'subs' => [ 'address_standardize' ],
- #'method' => 'POST', #could get too long?
- )
-%>
+<& /elements/xmlhttp.html,
+ url => $p.'misc/xmlhttp-cust_main-address_standardize.html',
+ subs => [ 'address_standardize' ],
+ #'method' => 'POST', #could get too long?
+&>
-<% include( '/elements/xmlhttp.html',
- 'url' => $p.'misc/xmlhttp-cust_main-censustract.html',
- 'subs' => [ 'censustract' ],
- #'method' => 'POST', #could get too long?
- )
-%>
+<& /elements/xmlhttp.html,
+ url => $p.'misc/xmlhttp-cust_main-censustract.html',
+ subs => [ 'censustract' ],
+ #'method' => 'POST', #could get too long?
+&>
+
+<INPUT TYPE="hidden" NAME="duplicate_of_custnum" VALUE="">
+<& /elements/xmlhttp.html,
+ url => $p.'misc/xmlhttp-cust_main-duplicates.html',
+ subs => [ 'duplicates_form' ]
+&>
<SCRIPT TYPE="text/javascript">
- <% include('bottomfixup.js') %>
+<& bottomfixup.js, @_ &>
</SCRIPT>
+<%init>
+my %opt = @_; # custnum
+my $conf = new FS::Conf;
+
+my $company_latitude = $conf->config('company_latitude');
+my $company_longitude = $conf->config('company_longitude');
+
+my @fixups = ('copy_payby_fields', 'standardize_locations');
+
+push @fixups, 'fetch_censustract'
+ if $conf->exists('cust_main-require_censustract');
+
+push @fixups, 'check_unique'
+ if $conf->exists('cust_main-check_unique') and !$opt{'custnum'};
+
+push @fixups, 'do_submit'; # always last
+</%init>
+
+var fixups = <% encode_json(\@fixups) %>;
+var fixup_position;
+
+%# state machine to deal with all the asynchronous stuff we're doing
+%# call this after each fixup on success:
+function submit_continue() {
+ window[ fixups[fixup_position++] ].call();
+}
+
+%# or on failure:
+function submit_abort() {
+ fixup_position = 0;
+ document.CustomerForm.submitButton.disabled = false;
+ cClick();
+}
+
function bottomfixup(what) {
+ fixup_position = 0;
+ document.CustomerForm.submitButton.disabled = true;
+ submit_continue();
+}
+
+function do_submit() {
+ document.CustomerForm.submit();
+}
-%# ../cust_main.cgi
+function copy_payby_fields() {
var layervars = new Array(
'payauto', 'billday',
'payinfo', 'payinfo1', 'payinfo2', 'payinfo3', 'paytype',
cf.elements[field]
);
}
-
- //this part does USPS address correction
- standardize_locations();
-
+ submit_continue();
}
+%# call submit_continue() on completion...
+%# otherwise not touching standardize_locations for now
<% include( '/elements/standardize_locations.js',
- 'callback', 'post_geocode();'
+ 'callback' => 'submit_continue();'
)
%>
-function post_geocode() {
-
-% if ( $conf->exists('cust_main-require_censustract') ) {
+function fetch_censustract() {
//alert('fetch census tract data');
var cf = document.CustomerForm;
censustract( census_data, update_censustract );
-% }else{
-
- document.CustomerForm.submit();
-
-% }
-
}
var set_censustract;
set_censustract = function () {
cf.elements['censustract'].value = newcensus;
- cf.submit();
+ submit_continue();
}
choose_censustract = choose_censustract +
'<TR><TD ALIGN="center">' +
- '<BUTTON TYPE="button" onClick="document.CustomerForm.submit();"><IMG SRC="<%$p%>images/error.png" ALT=""> Use entered census tract </BUTTON>' +
+ '<BUTTON TYPE="button" onClick="submit_continue();"><IMG SRC="<%$p%>images/error.png" ALT=""> Use entered census tract </BUTTON>' +
'</TD><TD ALIGN="center">' +
'<BUTTON TYPE="button" onClick="set_censustract();"><IMG SRC="<%$p%>images/tick.png" ALT=""> Use calculated census tract </BUTTON>' +
'</TD></TR>' +
'<TR><TD COLSPAN=2 ALIGN="center">' +
- '<BUTTON TYPE="button" onClick="document.CustomerForm.submitButton.disabled=false; parent.cClick();"><IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission</BUTTON></TD></TR>' +
+ '<BUTTON TYPE="button" onClick="submit_abort();"><IMG SRC="<%$p%>images/cross.png" ALT=""> Cancel submission</BUTTON></TD></TR>' +
'</TABLE></CENTER>';
} else {
- cf.submit();
+ submit_continue();
}
//alert(from + " (" + from.type + "): " + to.name + " => " + to.value);
}
-<%init>
-
-my $conf = new FS::Conf;
+function check_unique() {
+ var search_hash = new Object;
+% foreach ($conf->config('cust_main-check_unique')) {
+ search_hash['<% $_ %>'] = document.CustomerForm.elements['<% $_ %>'].value;
+% }
-my $company_latitude = $conf->config('company_latitude');
-my $company_longitude = $conf->config('company_longitude');
+%# supported in IE8+, Firefox 3.5+, WebKit, Opera 10.5+
+ duplicates_form(JSON.stringify(search_hash), confirm_unique);
+}
+function confirm_unique(arg) {
+ if ( arg.match(/\S/) ) {
+%# arg contains a complete form to choose an existing customer, or not
+ overlib( arg, CAPTION, 'Duplicate customer', STICKY, AUTOSTATUSCAP,
+ CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH, 576, HEIGHT,
+ 268, BGCOLOR, '#333399', CGCOLOR, '#333399', TEXTSIZE, 3 );
+ } else { // no duplicates
+ submit_continue();
+ }
+}
-</%init>
} fields('cust_main')
} );
+$cgi->param('duplicate_of_custnum') =~ /^(\d+)$/;
+my $duplicate_of = $1;
+if ( $duplicate_of ) {
+ # then negate all changes to the customer; the only change we should
+ # make is to order a package, if requested
+ $new = qsearchs('cust_main', { 'custnum' => $duplicate_of })
+ # this should never happen
+ or die "nonexistent existing customer (custnum $duplicate_of)";
+}
+
if ( defined($cgi->param('same')) && $cgi->param('same') eq "Y" ) {
$new->setfield("ship_$_", '') foreach qw(
last first company address1 address2 city county state zip
my @tax_exempt = grep { $cgi->param("tax_$_") eq 'Y' } @exempt_groups;
#perhaps this stuff should go to cust_main.pm
-if ( $new->custnum eq '' ) {
+if ( $new->custnum eq '' or $duplicate_of ) {
my $cust_pkg = '';
my $svc;
}
+
use Tie::RefHash;
tie my %hash, 'Tie::RefHash';
%hash = ( $cust_pkg => [ $svc ] ) if $cust_pkg;
- $error ||= $new->insert( \%hash, \@invoicing_list,
+ if ( $duplicate_of ) {
+ # order the package and service normally
+ $error ||= $new->order_pkgs( \%hash ) if $cust_pkg;
+ }
+ else {
+ # create the customer
+ $error ||= $new->insert( \%hash, \@invoicing_list,
'tax_exemption'=> \@tax_exempt,
'prospectnum' => scalar($cgi->param('prospectnum')),
- );
+ );
- my $conf = new FS::Conf;
- if ( $conf->exists('backend-realtime') && ! $error ) {
+ my $conf = new FS::Conf;
+ if ( $conf->exists('backend-realtime') && ! $error ) {
- my $berror = $new->bill
- || $new->apply_payments_and_credits
- || $new->collect( 'realtime' => 1 );
- warn "Warning, error billing during backend-realtime: $berror" if $berror;
+ my $berror = $new->bill
+ || $new->apply_payments_and_credits
+ || $new->collect( 'realtime' => 1 );
+ warn "Warning, error billing during backend-realtime: $berror" if $berror;
- }
+ }
+ } #if $duplicate_of
} else { #create old record object
--- /dev/null
+% if ( @cust_main ) {
+<CENTER><BR><B>Duplicate customer</B><BR>
+Choose an existing customer
+<TABLE WIDTH="300px">
+<FORM name="DuplicateForm">
+% foreach (@cust_main) {
+% my $custnum = $_->custnum;
+<TR>
+ <TD ALIGN="right" VALIGN="top"><B><% $custnum %>: </B></TD>
+ <TD ALIGN="left">
+ <% $_->name %>—<B><FONT COLOR="#<%$_->statuscolor%>"><%$_->ucfirst_cust_status%></FONT></B><BR>
+<% $_->address1 %><BR>
+<% $_->city %>, <% $_->state %> <% $_->zip %>
+ </TD>
+ <TD ALIGN="center">
+ <INPUT TYPE="radio" NAME="dup_custnum" VALUE="<%$custnum%>">
+ </TD>
+</TR>
+% } #foreach cust_main
+</FORM>
+</TABLE>
+<TABLE WIDTH="100%">
+<TR>
+ <TD ALIGN="center">
+ <BUTTON TYPE="button" onclick="submit_continue();">
+ <IMG SRC="<%$p%>images/error.png"> Create a new customer
+ </BUTTON>
+ </TD>
+ <TD ALIGN="center">
+ <BUTTON TYPE="button" onclick="<% $set_to_customer %>">
+ <IMG SRC="<%$p%>images/tick.png"> Use the selected customer
+ </BUTTON>
+ </TD>
+</TR>
+<TR>
+ <TD COLSPAN=2 ALIGN="center">
+ <BUTTON TYPE="button" onclick="submit_abort();">
+ <IMG SRC="<%$p%>images/cross.png"> Cancel submission
+ </BUTTON>
+ </TD>
+</TR>
+% }
+%# else return nothing
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('List customers');
+
+my $conf = new FS::Conf;
+
+my $sub = $cgi->param('sub');
+my $hashref = decode_json($cgi->param('arg'));
+my @cust_main = qsearch('cust_main', $hashref);
+
+my $set_to_customer = <<EOF;
+ var custnum_array = document.getElementsByName('dup_custnum');
+ var custnum;
+ for(i=0; i<custnum_array.length; i++) {
+ if(custnum_array[i].checked) {
+ custnum = custnum_array[i].value;
+ }
+ }
+ //alert('Setting to customer '+custnum);
+ document.CustomerForm.elements['duplicate_of_custnum'].value = custnum;
+ submit_continue();
+EOF
+
+</%init>
% my $return = $inv ? findbycustnum($inv->custnum,0) : [];
<% objToJson($return) %>
% }
+% elsif ( $sub eq 'exact_search' ) {
+% # XXX possibly should query each element separately
+% my $hashref = decode_json($cgi->param('arg'));
+% my @cust_main = qsearch('cust_main', $hashref);
+% my $return = [];
+% foreach (@cust_main) {
+% push @$return, {
+% custnum => $_->custnum,
+% name => $_->name_short,
+% address1 => $_->address1,
+% city => $_->city,
+% };
+% }
+<% objToJson($return) %>
+% }
<%init>
my $conf = new FS::Conf;