From a832705d5aa5ff8d148be4f84faf4faf656d4000 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Mon, 28 Jun 2010 22:40:34 +0000
Subject: [PATCH] fix for new svc_pbx.title CDR matching, thanks jeff, RT#8084

---
 FS/FS/part_pkg/voip_cdr.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm
index 614ea8266..9e21ba243 100644
--- a/FS/FS/part_pkg/voip_cdr.pm
+++ b/FS/FS/part_pkg/voip_cdr.pm
@@ -325,7 +325,7 @@ sub calc_usage {
   die $@ if $@;
   my $csv = new Text::CSV_XS;
 
-  my($svc_table, $svc_field) = split('.', $cdr_svc_method);
+  my($svc_table, $svc_field) = split('\.', $cdr_svc_method);
 
   foreach my $cust_svc (
     grep { $_->part_svc->svcdb eq $svc_table } $cust_pkg->cust_svc
-- 
2.11.0