+ my $pay_batch = qsearchs('pay_batch',{'batchnum'=> $paybatch});
+ unless ($pay_batch && $pay_batch->status eq 'I') {
+ $dbh->rollback if $oldAutoCommit;
+ return "batch $paybatch is not in transit";
+ };
+
+ my %batchhash = $pay_batch->hash;
+ $batchhash{'status'} = 'R'; # Resolved
+ my $newbatch = new FS::pay_batch ( \%batchhash );
+ my $error = $newbatch->replace($paybatch);
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error
+ }
+