X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Famcom.pm;h=774d1e617d8344ca255e0a3c498471eca04c555d;hp=5967d7b3037546359f9ea09c0385d3ba8a0ae24b;hb=2e915f90c35f3a2e567dfdcde95569ed9cf934e1;hpb=16ad05fd89afe8edb0e1e66098595796cb646200 diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm index 5967d7b30..774d1e617 100644 --- 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) = @_;