[freeside-commits] freeside/FS/FS/cdr taqua.pm,1.5,1.6

[Jeff Finucane,420,,]

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

Modified Files:
	taqua.pm 
Log Message:
correct taqua toll free handling and hasten cdr import (skip uninteresting records)

Index: taqua.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr/taqua.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- taqua.pm	6 Apr 2009 18:31:11 -0000	1.5
+++ taqua.pm	7 Apr 2009 01:20:38 -0000	1.6
@@ -13,7 +13,13 @@
   'import_fields' => [  #some of these are kind arbitrary...
 
     #0
-    'cdrtypenum',                         #RecordType
+    #RecordType
+    sub {
+      my($cdr, $field, $conf, $hashref) = @_;
+      $hashref->{skiprow} = 1 unless ($field == 0 && $cdr->disposition == 100);
+      $cdr->cdrtypenum($field);
+    },
+
     sub { my($cdr, $field) = @_; },             #all10#RecordVersion
     sub { my($cdr, $field) = @_; },       #OrigShelfNumber
     sub { my($cdr, $field) = @_; },       #OrigCardNumber
@@ -88,7 +94,7 @@
           return;
         }
       }
-      $cdr->charged_party($field);
+      '';
     },
 
     sub { my($cdr, $field) = @_; },       #SubscriberNumber