local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
- my $pay_batch = qsearchs('pay_batch'=> '');
+ my $pay_batch = qsearchs('pay_batch', {'status' => 'O'});
unless ($pay_batch) {
$pay_batch = new FS::pay_batch;
+ $pay_batch->setfield('status' => 'O');
my $error = $pay_batch->insert;
if ( $error ) {
die "error creating new batch: $error\n";
my $error =
$self->ut_numbern('batchnum')
- || $self->ut_enum('status', [ '', 'I', 'R' ])
+ || $self->ut_enum('status', [ 'O', 'I', 'R' ])
;
return $error if $error;
local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
-my $pay_batch = qsearchs('pay_batch', {'status'=>''} );
+my $pay_batch = qsearchs('pay_batch', {'status'=>'O'} );
die "No pending batch. \n" unless $pay_batch;
my %batchhash = $pay_batch->hash;