adjust Amcom CDR format, #27946

[freeside.git] / FS / FS / cdr / amcom.pm

diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm
index 5967d7b..774d1e6 100644 (file)
--- a/FS/FS/cdr/amcom.pm
+++ b/FS/FS/cdr/amcom.pm
@@ -30,7 +30,7 @@ my ($tmp_mday, $tmp_mon, $tmp_year);
       my ($cdr, $date) = @_;
       $date =~ /^(\d{2})(\d{2})(\d{4})$/
         or die "unparseable date: $date";
-      ($tmp_mday, $tmp_mon, $tmp_year) = ($1, $2-1, $3);
+      ($tmp_mday, $tmp_mon, $tmp_year) = ($1, $2, $3);
     },
     sub {         # 7. Start Time (HHMMSS)
       my ($cdr, $time) = @_;