global-functions: $ScriptLock: simplify cleanup code

This commit is contained in:
Christian Hesse 2021-12-10 07:34:09 +01:00
parent a46fd48187
commit 6dede0c49b

View file

@ -958,16 +958,13 @@
:global ScriptLockOrder; :global ScriptLockOrder;
:local Clean true;
:foreach Ticket in=($ScriptLockOrder->$Script) do={ :foreach Ticket in=($ScriptLockOrder->$Script) do={
:if ([ :typeof $Ticket ] != "nothing") do={ :if ([ :typeof $Ticket ] != "nothing") do={
:set Clean false; :return false;
} }
} }
:if ($Clean = true) do={ :set ($ScriptLockOrder->$Script) [ :toarray "" ];
:set ($ScriptLockOrder->$Script) [ :toarray "" ];
}
} }
:if ([ :len [ / system script find where name=$Script ] ] = 0) do={ :if ([ :len [ / system script find where name=$Script ] ] = 0) do={