[freeside-commits] freeside/FS/FS cust_bill.pm, 1.147, 1.148 pay_batch.pm, 1.1, 1.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv1347/FS/FS

Modified Files:
	cust_bill.pm pay_batch.pm 
Log Message:
value issues and many bits remain

Index: pay_batch.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/pay_batch.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- pay_batch.pm	20 May 2006 20:06:30 -0000	1.1
+++ pay_batch.pm	16 Jun 2006 01:23:40 -0000	1.2
@@ -98,7 +98,7 @@
 
   my $error = 
     $self->ut_numbern('batchnum')
-    || $self->ut_enum('status', [ '', 'I', 'R' ])
+    || $self->ut_enum('status', [ 'O', 'I', 'R' ])
   ;
   return $error if $error;
 

Index: cust_bill.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill.pm,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -d -r1.147 -r1.148
--- cust_bill.pm	20 May 2006 20:06:30 -0000	1.147
+++ cust_bill.pm	16 Jun 2006 01:23:40 -0000	1.148
@@ -1286,10 +1286,11 @@
   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";