X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fcisco.pm;h=ebb2d00550b4b9a9bf226c6bb00804aa2f126fd4;hb=f7bbff0519452eb5498e8683d23db9ddb65fb9f1;hp=93599017d6e2e0a0f94dc45b1a795fc2e2037268;hpb=3aec21e14476ee3d33d4cf92e029e8543dabf009;p=freeside.git

diff --git a/FS/FS/cdr/cisco.pm b/FS/FS/cdr/cisco.pm
index 93599017d..ebb2d0055 100644
--- a/FS/FS/cdr/cisco.pm
+++ b/FS/FS/cdr/cisco.pm
@@ -4,6 +4,7 @@ use strict;
 use base qw( FS::cdr );
 use vars qw( %info );
 use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
+use Date::Parse;
 
 %info = (
   'name'          => 'Cisco Unified Call Manager',
@@ -20,7 +21,11 @@ use FS::cdr qw( _cdr_date_parser_maker _cdr_min_parser_maker );
 							#globalCallID_callManagerId
 					      'clid',	#globalCallID_callId	
 					     skip(1),	#origLegCallIdentifier	
-                 			 'startdate',	#dateTimeOrigination
+                sub { my ($cdr, $calldate) = @_;
+                        $cdr->set('startdate', $calldate);
+                        $calldate = str2time($calldate);
+                        $cdr->set('calldate', $calldate);
+                                                  },    #dateTimeOrigination
 					     skip(3),   #origNodeId	
 							#origSpan
 							#origIpAddr