mysql compat fix for cust_pay.paybatch upgrade, #28895

diff --git a/FS/FS/cust_pay.pm b/FS/FS/cust_pay.pm
index 1044e43..153390b 100644 (file)
--- a/FS/FS/cust_pay.pm
+++ b/FS/FS/cust_pay.pm
@@ -1052,7 +1052,7 @@ sub process_upgrade_paybatch {
   ###
   my $search = FS::Cursor->new( {
     'table'     => 'cust_pay',
-    'addl_from' => ' JOIN pay_batch ON cust_pay.paybatch = CAST(pay_batch.batchnum AS text) ',
+    'addl_from' => ' JOIN pay_batch ON cust_pay.paybatch = CONCAT(pay_batch.batchnum) ',
   } );
   while (my $cust_pay = $search->fetch) {
     $cust_pay->set('batchnum' => $cust_pay->paybatch);