X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr.pm;h=36721a81adf8fa426880f7cd8ef0371677bc9551;hb=b79a8cb932946c849328a3c117c35821d9d21e66;hp=e7b6e6cd3fcd9d45fac2fc69cb9750af599d859d;hpb=d632cda4e4c3e77d63ce61aae4096e4c81c29b9d;p=freeside.git

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index e7b6e6cd3..36721a81a 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -948,6 +948,14 @@ sub batch_import {
   my $iopt = _import_options;
   $opt->{$_} = $iopt->{$_} foreach keys %$iopt;
 
+  if ( defined $opt->{'cdrtypenum'} ) {
+        $opt->{'preinsert_callback'} = sub {
+                my($record,$param) = (shift,shift);
+                $record->cdrtypenum($opt->{'cdrtypenum'});
+                '';
+        };
+  }
+
   FS::Record::batch_import( $opt );
 
 }