fix the popup progress bars, whew

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

diff --git a/FS/FS/pay_batch.pm b/FS/FS/pay_batch.pm
index 069105a..add4da9 100644 (file)
--- a/FS/FS/pay_batch.pm
+++ b/FS/FS/pay_batch.pm
@@ -6,6 +6,7 @@ use Time::Local;
 use Text::CSV_XS;
 use FS::Record qw( dbh qsearch qsearchs );
 use FS::cust_pay;
+use FS::part_bill_event qw(due_events);
 
 @ISA = qw(FS::Record);
 
@@ -152,7 +153,7 @@ I<format> - "csv-td_canada_trust-merchant_pc_batch", "csv-chase_canada-E-xactBat
 sub import_results {
   my $self = shift;
 
-  my $param = @_;
+  my $param = ref($_[0]) ? shift : { @_ };
   my $fh = $param->{'filehandle'};
   my $format = $param->{'format'};
 
@@ -359,11 +360,6 @@ sub import_results {
   };
 
   my $error = $self->set_status('R');
-
-  my $newbatch = new FS::pay_batch { $self->hash };
-  $newbatch->status('R');   # Resolved
-  $newbatch->upload(time);
-  my $error = $newbatch->replace($self);
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
     return $error