From cd3509e4610947570ec52798b1ee7314644c2ea7 Mon Sep 17 00:00:00 2001
From: Alex Jordan <alex.jordan@pcc.edu>
Date: Wed, 11 Sep 2024 22:44:21 -0700
Subject: [PATCH] PTX: when removing unwanted p in a cell, consider that the
 cell may have attributes

---
 macros/core/PGbasicmacros.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/macros/core/PGbasicmacros.pl b/macros/core/PGbasicmacros.pl
index ee729c29c..e30d95dbf 100644
--- a/macros/core/PGbasicmacros.pl
+++ b/macros/core/PGbasicmacros.pl
@@ -2240,7 +2240,7 @@ sub PTX_cleanup {
 		do {
 			$previous = $string;
 			$string =~
-				s/(?s)(<tabular[^>]*>(?:\s|<col (?:(?!width=").)*?>)((?!<\/tabular>).)*?<cell>((?!<\/tabular>).)*?)<p>(((?!<\/tabular>).)*?)<\/p>(((?!<\/tabular>).)*?<\/tabular>)/$1$4$6/g;
+				s/(?s)(<tabular[^>]*>(?:\s|<col (?:(?!width=").)*?>)((?!<\/tabular>).)*?<cell[^>]*>((?!<\/tabular>).)*?)<p>(((?!<\/tabular>).)*?)<\/p>(((?!<\/tabular>).)*?<\/tabular>)/$1$4$6/g;
 		} until ($previous eq $string);
 
 	}