From 5716d52ab6d97510b5e470d53a4feb50d34a11c7 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Tue, 1 Jul 2014 11:35:33 -0400
Subject: [PATCH] 29050 Fix dates

---
 FS/FS/cdr/orcon.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cdr/orcon.pm b/FS/FS/cdr/orcon.pm
index 7bdba93a6..1cad01118 100644
--- a/FS/FS/cdr/orcon.pm
+++ b/FS/FS/cdr/orcon.pm
@@ -3,6 +3,7 @@ package FS::cdr::orcon;
 use strict;
 use vars qw( @ISA %info);
 use FS::cdr;
+use Date::Parse;
 
 @ISA = qw(FS::cdr);
 
@@ -20,7 +21,7 @@ use FS::cdr;
         sub { my ($cdr, $calldate) = @_;
          	$cdr->set('calldate', $calldate);
 
-                $calldate =~ /^(\d{4})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
+                $calldate =~ /^(\d{4})-(\d{2})-(\d{2})\s*(\d{2}):(\d{2}):(\d{2})$/
                                or die "unparseable date: $calldate";
                 my $tmp_date = "$2/$1/$3 $4:$5:$6";
 
-- 
2.11.0