[freeside-commits] freeside/FS/FS/cdr enswitch.pm,1.2,1.2.2.1

Ivan,,, ivan at wavetail.420.am
Sat Nov 12 14:55:56 PST 2011


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

Modified Files:
      Tag: FREESIDE_2_3_BRANCH
	enswitch.pm 
Log Message:
set cdrtypenum based on in_calling_type, RT#14452

Index: enswitch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/enswitch.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -w -d -r1.2 -r1.2.2.1
--- enswitch.pm	25 May 2011 23:25:19 -0000	1.2
+++ enswitch.pm	12 Nov 2011 22:55:54 -0000	1.2.2.1
@@ -1,11 +1,10 @@
 package FS::cdr::enswitch;
+use base qw( 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);
-
- at ISA = qw(FS::cdr);
+use vars qw( %info $tmp_mon $tmp_mday $tmp_year );
+use FS::Record qw( qsearchs );
+use FS::cdr_type;
 
 %info = (
   'name'          => 'Enswitch',
@@ -26,7 +25,7 @@
     skip(5),        #Destination customer, Destination type
                     #Destination number
                     #Destination group ID, Destination group name,
-    'in_calling_type',  #Inbound calling type,
+    \&in_calling_type,  #Inbound calling type,
     \&in_calling_num,   #Inbound calling number,
     '',                 #Inbound called type,
     \&in_called_num,    #Inbound called number,
@@ -49,6 +48,25 @@
 
 sub skip { map {''} (1..$_[0]) }
 
+#create CDR types with names matching in_calling_type valuesj - 'none'
+# (without the quotes) for blank
+our %cdr_type = ();
+sub in_calling_type {
+  my ($record, $data) = @_;
+
+  $data ||= 'none';
+
+  my $cdr_type = exists($cdr_type{$data})
+                   ? $cdr_type{$data}
+                   : qsearchs('cdr_type', { 'cdrtypename' => $data } );
+
+  $cdr_type{$data} = $cdr_type;
+
+  $record->set('in_calling_type', $data); #for below
+  $record->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type;
+
+}
+
 sub in_calling_num {
   my ($record, $data) = @_;
   $record->src($data) if ( ($record->in_calling_type || '') eq 'external' );



More information about the freeside-commits mailing list