Browse Source

+ Patch from Vincent Snijder to fix multiple content files and use DirectoryExists

git-svn-id: trunk@1989 -
michael 19 years ago
parent
commit
675d051274
2 changed files with 5 additions and 2 deletions
  1. 4 1
      utils/fpdoc/dglobals.pp
  2. 1 1
      utils/fpdoc/dw_html.pp

+ 4 - 1
utils/fpdoc/dglobals.pp

@@ -538,7 +538,10 @@ var
   begin
     PrevSpaces := 0;
     CurParent := RootLinkNode;
-    PrevSibling := nil;
+    PrevSibling := CurParent.FirstChild;
+    if assigned(PrevSibling) then
+      while assigned(PrevSibling.NextSibling) do
+        PrevSibling := PrevSibling.NextSibling;
     StackIndex := 0;
     while True do
     begin

+ 1 - 1
utils/fpdoc/dw_html.pp

@@ -638,7 +638,7 @@ begin
   end;
 
   Path := Copy(AFilename, 1, EndIndex - 1);
-  if not FileExists(Path) then
+  if not DirectoryExists(Path) then
   begin
     CreatePath(Path);
     MkDir(Path);