Browse Source

* bugfix start tag of lists

olle 22 years ago
parent
commit
6f2859a013
1 changed files with 5 additions and 2 deletions
  1. 5 2
      fcl/inc/whtml.pp

+ 5 - 2
fcl/inc/whtml.pp

@@ -197,7 +197,7 @@ end;
 
 
 procedure THTMLWriter.ListStart(ListType: TListType);
 procedure THTMLWriter.ListStart(ListType: TListType);
 begin
 begin
-  TagEnd(ListTags[ListType]);
+  TagStart(ListTags[ListType],'');
 end;
 end;
 
 
 procedure THTMLWriter.ParagraphEnd;
 procedure THTMLWriter.ParagraphEnd;
@@ -457,7 +457,10 @@ end;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2003-10-03 08:42:22  michael
+  Revision 1.3  2003-11-30 00:06:19  olle
+    * bugfix start tag of lists
+
+  Revision 1.2  2003/10/03 08:42:22  michael
   + Form support.
   + Form support.
 
 
   Revision 1.1  2003/10/01 20:49:29  michael
   Revision 1.1  2003/10/01 20:49:29  michael