FIX: copy of empty subfolders did not work

FIX: REST busy flag was inverted

Author: PascalCorpsman

src/ucopycommander.pas

@@ -747,6 +747,10 @@
     ja: TJobArray;
     i: Integer;
   Begin
+    // Sicherstellen Das das Zielverzeichnis auch existiert, da es auch ein Ordner mit nur leeren Ordnern sein kan muss das hier gemacht werden
+    If Not ForceDirectoriesUTF8(ADestFolder) Then Begin
+      exit;
+    End;
     ja := Nil;
     If FindFirstutf8(IncludeTrailingPathDelimiter(aSourceFolder) + '*', faAnyFile, SR) = 0 Then Begin
       Repeat

src/unit1.pas

@@ -104,6 +104,7 @@
 (*                      FIX: preserve selection and focus when reloading dir  *)
 (*                      ADD: REST Server                                      *)
 (*                      FIX: did not refresh folder if subfolder was deleted  *)
+(*                      FIX: copying empty subfolders did not work            *)
 (*                                                                            *)
 (******************************************************************************)
 (*  Silk icon set 1.3 used                                                    *)

src/urestapi.pas

@@ -141,7 +141,7 @@
   iqc := form1.fWorkThread.PendingJobs;
   busy := form1.fWorkThread.Busy Or form1.fWorkThread.HasQuestions;
   jn := TJSONNode.Create;
-  jn.AddObj(TJSONValue.Create('State', specialize ifthen < String > (Busy, '0', '1'), false));
+  jn.AddObj(TJSONValue.Create('State', specialize ifthen < String > (Busy, '1', '0'), false));
   jn.AddObj(TJSONValue.Create('JobQueueCount', inttostr(iqc), false));
   jn.AddObj(TJSONValue.Create('LeftDir', form1.fLeftView.aDirectory, true));
   jn.AddObj(TJSONValue.Create('RightDir', form1.fRightView.aDirectory, true));