#28898 Cisco CDR format upadate

diff --git a/FS/FS/cdr/cisco.pm b/FS/FS/cdr/cisco.pm
index 335d483..2da5a94 100644 (file)
--- a/FS/FS/cdr/cisco.pm
+++ b/FS/FS/cdr/cisco.pm
@@ -80,7 +80,7 @@ use Date::Parse;
                                         skip(2),       #finalCalledPartyNumberPartition
                                                        #lastRedirectDnPartition
                                       'billsec',       #duration
-                                       skip(22),       #origDeviceName
+                                       skip(23),       #origDeviceName
                                                        #destDeviceName
                                                        #origCallTerminationOnBehalfOf
                                                        #destCallTerminationOnBehalfOf
@@ -102,11 +102,7 @@ use Date::Parse;
                                                        #origMediaCap_Bandwidth
                                                        #destMediaCap_Bandwidth 
                                                        #authorizationCodeValue
-                                       sub { my ($cdr, $number) = @_;
-                                               if ($number){
-                                               $cdr->set('src',$number);
-                                               }
-                                               },      #outpulsedCallingPartyNumber
+                                                       #outpulsedCallingPartyNumber
                                              skip(23), #outpulsedCalledPartyNumber
                                                        #origIpv4v6Addr 
                                                        #destIpv4v6Addr 
@@ -138,7 +134,6 @@ use Date::Parse;
 
 
 
-
 sub skip { map {''} (1..$_[0]) }
 
 1;