Browse Source

+ allow also <BR/> as line break tag

git-svn-id: trunk@5887 -
pierre 18 years ago
parent
commit
901cc71411
1 changed files with 6 additions and 0 deletions
  1. 6 0
      ide/whtml.pas

+ 6 - 0
ide/whtml.pas

@@ -553,6 +553,12 @@ begin
   UTagName:=UpcaseStr(TagName);
   UTagName:=UpcaseStr(TagName);
   NotEndTag:=copy(TagName,1,1)<>'/';
   NotEndTag:=copy(TagName,1,1)<>'/';
   if NotEndTag then ETagName:=UTagName else ETagName:=copy(UTagName,2,255);
   if NotEndTag then ETagName:=UTagName else ETagName:=copy(UTagName,2,255);
+  { <BR/> is also a Break tag... }
+  if Copy(ETagName,Length(ETagName),1)='/' then
+    begin
+      ETagName:=copy(ETagName,1,Length(ETagName)-1);
+      NotEndTag:=false;
+    end;
 
 
   if (UTagName='!DOCTYPE') then DocTYPE else
   if (UTagName='!DOCTYPE') then DocTYPE else
   { Section tags }
   { Section tags }