From a08a661a48a6aae56cc2a4419bd893bf29142b03 Mon Sep 17 00:00:00 2001
From: riderkick <colivaja@gmail.com>
Date: Sat, 25 Jul 2015 13:39:01 +0800
Subject: [PATCH] updatethread, store some prop

---
 baseunits/uUpdateThread.pas | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/baseunits/uUpdateThread.pas b/baseunits/uUpdateThread.pas
index 091e9c68a..2c51481e9 100644
--- a/baseunits/uUpdateThread.pas
+++ b/baseunits/uUpdateThread.pas
@@ -65,6 +65,7 @@   TUpdateMangaManagerThread = class(TFMDThread)
     directoryCount2, numberOfThreads, websitePtr: Integer;
     threads: TFPList;
     CS_threads: TCriticalSection;
+    SortedList, NoMangaInfo: Boolean;
     constructor Create;
     destructor Destroy; override;
     procedure CheckCommit(const CommitCount: Integer = 32);
@@ -180,7 +181,7 @@ procedure TUpdateMangaThread.Execute;
 
           //if website has sorted list by latest added
           //we will stop at first found against current db
-          if SitesWithSortedList(manager.website) then
+          if manager.SortedList then
           begin
             if links.Count > 0 then
               if manager.mainDataProcess.LinkExist(links.Strings[0]) then
@@ -327,6 +328,8 @@ constructor TUpdateMangaManagerThread.Create;
   mainDataProcess := TDBDataProcess.Create;
 
   threads := TFPList.Create;
+  SortedList := False;
+  NoMangaInfo := False;
 end;
 
 destructor TUpdateMangaManagerThread.Destroy;
@@ -576,6 +579,8 @@ procedure TUpdateMangaManagerThread.Execute;
       while websitePtr < websites.Count do
       begin
         website := websites.Strings[websitePtr];
+        SortedList := SitesWithSortedList(website);
+        NoMangaInfo := SitesWithoutInformation(website);
         Inc(websitePtr);
         FStatus := RS_UpdatingList + Format(' [%d/%d] %s',
           [websitePtr, websites.Count, website]) + ' | ' + RS_Preparing + '...';
@@ -716,7 +721,7 @@ procedure TUpdateMangaManagerThread.Execute;
         begin
           workPtr := 0;
           FCommitCount := 0;
-          if (SitesWithoutInformation(website)) or
+          if NoMangaInfo or
             OptionUpdateListNoMangaInfo then
           begin
             Inc(workPtr);
@@ -744,7 +749,7 @@ procedure TUpdateMangaManagerThread.Execute;
           names.Clear;
           links.Clear;
 
-          if (workPtr > 0) and (not SitesWithSortedList(website)) then
+          if (workPtr > 0) and (not SortedList) then
           begin
             FStatus := RS_UpdatingList + Format(' [%d/%d] %s',
               [websitePtr, websites.Count, website]) + ' | ' + RS_SavingData + '...';