X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fsimple.pm;h=197b0ebbac9f15c2166aa13674ef3c3437fece7c;hb=08db5f6900bb754efb597a2967adde4dbd12e731;hp=ab1e3eab52ead0d4232ed6e0d7d113a91bc7e16a;hpb=8a8d007453fa916bcb62223a1da620728b8df269;p=freeside.git

diff --git a/FS/FS/cdr/simple.pm b/FS/FS/cdr/simple.pm
index ab1e3eab5..197b0ebba 100644
--- a/FS/FS/cdr/simple.pm
+++ b/FS/FS/cdr/simple.pm
@@ -1,7 +1,9 @@
 package FS::cdr::simple;
 
-use vars qw(@ISA %info);
-use FS::cdr;
+use strict;
+use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
+use Time::Local;
+use FS::cdr qw(_cdr_min_parser_maker);
 
 @ISA = qw(FS::cdr);
 
@@ -11,7 +13,7 @@ use FS::cdr;
   'header'        => 1,
   'import_fields' => [
 
-    # Date
+    # Date (MM/DD/YY)
     sub { my($cdr, $date) = @_;
           $date =~ /^(\d{1,2})\/(\d{1,2})\/(\d\d(\d\d)?)$/
             or die "unparsable date: $date"; #maybe we shouldn't die...
@@ -37,11 +39,12 @@ use FS::cdr;
     'dst',
 
     # Duration
-    sub { my($cdr, $min) = @_;
-          my $sec = sprintf('%.0f', $min * 60 );
-          $cdr->billsec(  $sec );
-          $cdr->duration( $sec );
-        },
+    _cdr_min_parser_maker, #( [qw( billsec duration)] ),
+    #sub { my($cdr, $min) = @_;
+    #      my $sec = sprintf('%.0f', $min * 60 );
+    #      $cdr->billsec(  $sec );
+    #      $cdr->duration( $sec );
+    #    },
 
   ],
 );