X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Forcon.pm;h=7bdba93a6c817ab1504f213a14bef6d60ee2e1e6;hp=51ef9ea55cd6fb82108562c132f53be758dd4323;hb=5ef2dadffa97bd4d98883e21dda3caa072c0b833;hpb=d5c89b967ff6685e3e7ff363a563102f8b7ef420

diff --git a/FS/FS/cdr/orcon.pm b/FS/FS/cdr/orcon.pm
index 51ef9ea55..7bdba93a6 100644
--- a/FS/FS/cdr/orcon.pm
+++ b/FS/FS/cdr/orcon.pm
@@ -20,7 +20,7 @@ use FS::cdr;
         sub { my ($cdr, $calldate) = @_;
          	$cdr->set('calldate', $calldate);
 
-                $calldate =~ /^(\d{2})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
+                $calldate =~ /^(\d{4})\/(\d{2})\/(\d{4})\s*(\d{2}):(\d{2}):(\d{2})$/
                                or die "unparseable date: $calldate";
                 my $tmp_date = "$2/$1/$3 $4:$5:$6";