From f43c7c5765db18b35a3d3bec837681725bf0c245 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Mon, 28 Aug 2006 00:52:44 +0000
Subject: [PATCH] protect against a race

---
 FS/FS/cust_bill.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/FS/FS/cust_bill.pm b/FS/FS/cust_bill.pm
index 1801b125f..e1281e372 100644
--- a/FS/FS/cust_bill.pm
+++ b/FS/FS/cust_bill.pm
@@ -1327,6 +1327,9 @@ sub batch_card {
   local $FS::UID::AutoCommit = 0;
   my $dbh = dbh;
 
+  $dbh->do("LOCK TABLE pay_batch IN SHARE ROW EXCLUSIVE MODE")
+    or return "Cannot lock pay_batch: " . $dbh->errstr;
+
   my $pay_batch = qsearchs('pay_batch', {'status' => 'O'});
 
   unless ( $pay_batch ) {
-- 
2.20.1