X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fmisc%2Fxmlhttp-cust_main-duplicates.html;fp=httemplate%2Fmisc%2Fxmlhttp-cust_main-duplicates.html;h=6654b3e39e841bcbd4f484801a7408c0f6d645cf;hb=fec48523d3cf056da08813f9b2b7d633b27aaf8d;hp=0000000000000000000000000000000000000000;hpb=0924aec8b98b4056357bfdd19f45686a3e9008e2;p=freeside.git diff --git a/httemplate/misc/xmlhttp-cust_main-duplicates.html b/httemplate/misc/xmlhttp-cust_main-duplicates.html new file mode 100644 index 000000000..6654b3e39 --- /dev/null +++ b/httemplate/misc/xmlhttp-cust_main-duplicates.html @@ -0,0 +1,68 @@ +% if ( @cust_main ) { +

Duplicate customer
+Choose an existing customer + + +% foreach (@cust_main) { +% my $custnum = $_->custnum; + + + + + +% } #foreach cust_main + +
<% $custnum %>: + <% $_->name %>—<%$_->ucfirst_cust_status%>
+<% $_->address1 %>
+<% $_->city %>, <% $_->state %>  <% $_->zip %> +
+ +
+ + + + + + + + +% } +%# 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 = <
+ + + +
+ +