finished script and added it to control panel

docs/fix/corrupt-jobs.rst

@@ -0,0 +1,15 @@
+fix/corrupt-jobs
+==================
+
+.. dfhack-tool::
+    :summary: Removes jobs with an id of -1 from units.
+    :tags: fort bugfix
+
+This fix ensures that no units have a job with an id of -1 set as their current job.
+
+Usage
+-----
+
+::
+
+    fix/corrupt-jobs

fix/corrupt-jobs.lua

@@ -1,21 +1,14 @@
--- Deletes corrupted jobs from global job list
-
-local utils = require("utils")
+-- Deletes corrupted jobs from affected units
 
 local count = 0
 
-functioning_job_list = {}
-
-for _, job in ipairs(df.global.job_list) do
-    if job.id != -1 then 
-        functioning_job_list[#functioning_job_list+1] = job
+for _, unit in ipairs(df.global.world.units.all) do
+    if unit.job.current_job and unit.job.current_job.id == -1 then 
+        unit.job.current_job = nil
+        count = count + 1
     end 
 end
 
-for _, v in ipairs(df.global.world.units.all) do
-    if v.job.current_job then 
-        if utils.linear_index(functioning_job_list, v.job.current_job) == nil then
-        v.job.current_job = nil
-        end
-    end 
+if count > 0 then
+    print(('removed %d corrupted job(s) from affected units'):format(count))
 end

gui/control-panel.lua

@@ -140,6 +140,9 @@ local REPEATS = {
     ['empty-wheelbarrows']={
         desc='Empties wheelbarrows which have rocks stuck in them.',
         command={'--time', '1', '--timeUnits', 'days', '--command', '[', 'fix/empty-wheelbarrows', '-q', ']'}},
+    ['corrupt-jobs']={
+        desc='Removes corrupt jobs from affected units.',
+        command={'--time', '1', '--timeUnits', 'days', '--command', '[', 'fix/corrupt-jobs', ']'}},
 }
 local REPEATS_LIST = {}
 for k in pairs(REPEATS) do