+my $html_init = qq!<A HREF="${p}edit/did_order.html">Add a bulk DID order</A>
+ <BR><BR>!;
+my $query = {
+ 'table' => 'did_order',
+ 'hashref' => {},
+ 'addl_from' => 'left join did_vendor using (vendornum) ',
+ 'order_by' => 'ORDER BY ordernum',
+ };
+if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
+ $query->{'extra_sql'} .= " where (custnum = $1 or $1 in (select distinct "
+ . " custnum from did_order_item where "
+ . " did_order_item.ordernum = did_order.ordernum ) )";
+}
+if ( $cgi->param('custrcvdunprov') ) {
+ $query->{'hashref'}->{'received'} = { 'op' => '>', 'value' => '0', };
+ $query->{'hashref'}->{'svcnum'} = '';
+ $query->{'addl_from'} .= ' left join phone_avail using (ordernum) ';
+ $query->{'extra_sql'} .= " and (custnum > 0 or 0 < (select count(1) from "
+ . " did_order_item where did_order_item.custnum > 0 and "
+ . " did_order_item.ordernum = did_order.ordernum) )";
+ $html_init .= qq!<A HREF="${p}browse/did_order.html">Browse all DID orders</A>!;
+}
+else {
+ $html_init .= qq!<A HREF="${p}browse/did_order.html?custrcvdunprov=1">
+ Browse all non-stock orders with received unprovisioned DIDs
+ </A>!;
+}
+$html_init .= "<BR><BR>";
+
+my @merge_targets = qsearch({
+ 'table' => 'did_order',
+ 'hashref' => { 'received' => '' },
+ 'order_by' => 'ORDER BY ordernum',
+ });
+
+my $merge_select = sub {
+ my $source_ordernum = shift;
+ my $merge_select = '';
+ my @targets = grep { $_->ordernum != $source_ordernum } @merge_targets;
+ if ( @targets ) {
+ $merge_select = "<SELECT onchange='mergeconfirm(this,$source_ordernum)'><OPTION></OPTION>";
+ foreach my $order ( @targets ) {
+ next if $order->ordernum == $source_ordernum;
+ $merge_select .= "<OPTION>".$order->ordernum."</OPTION>";
+ }
+ $merge_select .= "</SELECT>";
+ }
+ $merge_select;
+};
+