From ca029919b3350ff272732ca152704cb9da3aab33 Mon Sep 17 00:00:00 2001
From: joaorocha <joaorocha>
Date: Wed, 17 Jul 2013 16:53:46 +0000
Subject: [PATCH] Linhas adicinadas no workshop para log de debug incondicional alteradas para formato original

---
 CACIC_Library.pas | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/CACIC_Library.pas b/CACIC_Library.pas
index 8071cc6..2a522e0 100755
--- a/CACIC_Library.pas
+++ b/CACIC_Library.pas
@@ -1017,15 +1017,14 @@ end;
 function TCACIC.isInDebugMode(pStrDetailName : String = '') : boolean;
 var strTeDebugging : String;
 begin
-  {Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging');
+  Result := checkIfFileDateIsToday(getLocalFolderName + 'Temp\Debugging');
   if Result and FileExists(getLocalFolderName + 'Temp\Debugging\Debugging.conf') and (pStrDetailName <> '') then
     Begin
       strTeDebugging := getValueFromFile('Configs','TeDebugging',getLocalFolderName + 'Temp\Debugging\Debugging.conf',false);
       if (pos(ExtractFileName(ParamStr(0)) + '.' + pStrDetailName, strTeDebugging) = 0) and
          (pos(ExtractFileName(ParamStr(0)) + '.*'                , strTeDebugging) = 0) then
-          Result := false; //Workshop retornar result para false apos testes.
-    End;}
-    Result := True; // Workshop Alterar apos testes.
+          Result := false;
+    End;
 end;
 
 // Rotina obtida em http://www.swissdelphicenter.ch/torry/showcode.php?id=266
--
libgit2 0.21.2