This commit was manufactured by cvs2svn to create tag 'freeside_2_1_0'.

[freeside.git] / FS / FS / Record.pm

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index f3dead1..0845cc6 100644 (file)
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -1569,7 +1569,6 @@ sub process_batch_import {
     format_headers             => $opt->{format_headers},
     format_sep_chars           => $opt->{format_sep_chars},
     format_fixedlength_formats => $opt->{format_fixedlength_formats},
-    format_row_callbacks       => $opt->{format_row_callbacks},
     #per-import
     job                        => $job,
     file                       => $file,
@@ -1610,8 +1609,6 @@ Class method for batch imports.  Available params:
 
 =item format_fixedlength_formats
 
-=item format_row_callbacks
-
 =item params
 
 =item job
@@ -1636,7 +1633,7 @@ sub batch_import {
   my $param = shift;
 
   warn "$me batch_import call with params: \n". Dumper($param)
-  ;#  if $DEBUG;
+    if $DEBUG;
 
   my $table   = $param->{table};
   my $formats = $param->{formats};
@@ -1677,11 +1674,6 @@ sub batch_import {
       ? $param->{'format_fixedlength_formats'}{ $param->{'format'} }
       : '';
 
-  my $row_callback =
-    $param->{'format_row_callbacks'}
-      ? $param->{'format_row_callbacks'}{ $param->{'format'} }
-      : '';
-
   my @fields = @{ $formats->{ $format } };
 
   my $row = 0;
@@ -1777,8 +1769,6 @@ sub batch_import {
 
       next if $line =~ /^\s*$/; #skip empty lines
 
-      $line = &{$row_callback}($line) if $row_callback;
-
       $parser->parse($line) or do {
         $dbh->rollback if $oldAutoCommit;
         return "can't parse: ". $parser->error_input();