[freeside-commits] freeside/FS/FS/cdr asterisk.pm, 1.1.2.2, 1.1.2.3 genband_meetme.pm, 1.1.2.2, 1.1.2.3 genband.pm, 1.1.2.2, 1.1.2.3 openser.pm, 1.1.2.2, 1.1.2.3 simple.pm, 1.1.2.2, 1.1.2.3 taqua.pm, 1.1.2.2, 1.1.2.3 unitel.pm, 1.1.2.2, 1.1.2.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/cdr
In directory wavetail.420.am:/tmp/cvs-serv14440/cdr

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	asterisk.pm genband_meetme.pm genband.pm openser.pm simple.pm 
	taqua.pm unitel.pm 
Log Message:
fix 'Can't call method "parse" on an undefined value' error from CDR format refactor

Index: genband.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/genband.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- genband.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ genband.pm	2 Aug 2008 23:52:07 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::genband;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: asterisk.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/asterisk.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- asterisk.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ asterisk.pm	2 Aug 2008 23:52:06 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::asterisk;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: unitel.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/unitel.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- unitel.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ unitel.pm	2 Aug 2008 23:52:07 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::unitel;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr;
 

Index: simple.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/simple.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- simple.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ simple.pm	2 Aug 2008 23:52:07 -0000	1.1.2.3
@@ -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);
 
@@ -37,11 +39,12 @@
     '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 );
+    #    },
 
   ],
 );

Index: openser.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/openser.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- openser.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ openser.pm	2 Aug 2008 23:52:07 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::openser;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: taqua.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/taqua.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- taqua.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ taqua.pm	2 Aug 2008 23:52:07 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::taqua;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);
 

Index: genband_meetme.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/genband_meetme.pm,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -d -r1.1.2.2 -r1.1.2.3
--- genband_meetme.pm	17 Jul 2008 23:55:39 -0000	1.1.2.2
+++ genband_meetme.pm	2 Aug 2008 23:52:06 -0000	1.1.2.3
@@ -1,5 +1,6 @@
 package FS::cdr::genband_meetme;
 
+use strict;
 use vars qw(@ISA %info);
 use FS::cdr qw(_cdr_date_parser_maker);