From 8aa1071e60198a6d2f3a7493387f114dd824ef3a Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Mon, 19 Feb 2018 13:14:16 +0100
Subject: dateibeziehungen.pas: bugfix in zieleHinzufuegen

---
 dateibeziehungen.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index cc8532a..55fe2ea 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -445,7 +445,7 @@ begin
     else begin
       i:=findFirst(zielFkt,$3f,sR);
       while i=0 do begin
-        zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name);
+        result:=zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name) or result;
         i:=findNext(sR);
       end;
       findClose(sR);
@@ -466,12 +466,12 @@ begin
     u:=copy(zielFkt,ende+1,length(zielFkt));
     if unEscapedPos('..',t)>0 then begin
       for i:=strtoint(copy(t,1,unEscapedPos('..',t)-1)) to strtoint(copy(t,unEscapedPos('..',t)+2,length(t))) do
-        zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u);
+        result:=zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u) or result;
     end
     else begin
       t:=t+',';
       while unEscapedPos(',',t)>0 do begin
-        zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u);
+        result:=zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u) or result;
         delete(t,1,unEscapedPos(',',t));
       end;
     end;
-- 
cgit v1.2.3