29049 Fix date formatting in Zintel format

diff --git a/FS/FS/cdr/zintel.pm b/FS/FS/cdr/zintel.pm
index 0e44844..7d78d11 100644 (file)
--- a/FS/FS/cdr/zintel.pm
+++ b/FS/FS/cdr/zintel.pm
@@ -16,14 +16,7 @@ use FS::cdr qw(_cdr_date_parser_maker);
        'accountcode',  #customer
        'src',          #anumber
        'dst',          #bnumber
-       sub { # OriginatingDate and OriginatingTime, two fields in the spec
-               my ($cdr, $date) = @_;
-               $date =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
-               or die "unparseable date: $date";
-               my $tmp_date = "$2/$1/$3 $4:$5:$6";                     
-               $cdr->calldate($tmp_date);
-            },#datetime
-
+       'calldate',     #datetime
        'billsec',      #duration
        skip(3),        #calltype
                        #status