- next unless $did->cust_svc;
- my $svc_phone = $did->cust_svc->svc_x;
- warn "inside loop ".time;
- next unless $svc_phone;
- my @cdrs = $svc_phone->get_cdrs;
- $count++ if scalar(@cdrs);
+ my $cust_svc = $did->cust_svc;
+ next unless $cust_svc;
+
+ my $svcnum = $cust_svc->svcnum;
+ my $sql = "select count(1) from cdr where src =
+ (select phonenum from svc_phone where svcnum = $svcnum)
+ or charged_party = (select phonenum from svc_phone where
+ svcnum = $svcnum)";
+ my $c = $did_order->scalar_sql($sql);
+ $count++ if $c > 0;