Tagging ULB Matt 11

2020-08-13 16:51:29 -04:00 · 2020-08-13 16:51:29 -04:00 · 265aa7ca4b
parent d09fa6388c
commit 265aa7ca4b
2 changed files with 1161 additions and 1101 deletions
--- a/Check_ULB.pl
+++ b/Check_ULB.pl
@ -83,7 +83,7 @@ sub Untag {
 sub Reorder {
 	my $txt = $_[0];
 	say LOG "<R1>\t$txt";
-	while ($txt =~ s/sub="\[(\d+)\]" ([^>]*>)([^<]*)(<(.|\n)*?>[^<]*)\[\1\]([^<]*<)/$2√$4$3$6/s) {}
+	while ($txt =~ s/sub="\[(\d+)\]" ?([^>]*>)([^<]*)(<(.|\n)*?>[^<]*)\[\1\]([^<]*<)/$2√$4$3$6/s) {}
 	say LOG "<R2>\t$txt";
 	return $txt
 }
--- a/Manual_Tagging/41-MAT.xml
+++ b/Manual_Tagging/41-MAT.xml