pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

svn classes: fixed test

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@137 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2007-03-30 13:18:56 +00:00
parent 49b0c3d159
commit 479926d209
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/svn/svnclasses.pas
View File

@ -484,7 +484,7 @@ end;
procedure TLogEntry.LoadFromNode(ANode: TDOMElement);
var
PathsELement: TDomNode;
PathsElement: TDomNode;
PathElement: TDomNode;
NewLogPath: TLogPath;
begin
@ -495,7 +495,7 @@ begin
PathsElement := ANode.FindNode('paths');
if assigned(PathsELement) then begin
PathElement := PathsELement.FirstChild;
PathElement := PathsElement.FirstChild;
while assigned(PathElement) do begin
if (PathElement.NodeType=ELEMENT_NODE)
and (PathElement.NodeName='path') then