Fixed tasks such that they are created in the db initially. Fixed link to results to be consistent with filenames for saving results.

1 files changed, 6 insertions, 2 deletions

diff --git a/captain/external.f90 b/captain/external.f90
index d9e2a7e..2ddd7f4 100644
--- a/captain/external.f90
+++ b/captain/external.f90
@@ -162,6 +162,7 @@ contains
     function generate_one_job_gemini(req) result(res)
     use captain_db
     use server_response
+    use special_filenames, only: get_task_result_static_filename
     implicit none
     
         type(request), intent(in)::req
@@ -176,6 +177,7 @@ contains
         
         type(task), dimension(:), pointer::tasks
         character(32)::task_text, job_text
+        character(len=:), pointer::task_results_filename
         
         res => null()
     
@@ -201,9 +203,11 @@ contains
             if(associated(tasks)) then
                 do i = 1, size(tasks)
                     status = get_status_utf8(tasks(i)%status)
-                    write(task_text, '(I8)') tasks(i)%number
+                    task_results_filename => get_task_result_static_filename(one_job%id, i, no_path=.true.)
                     
-                    res = trim(res)//nl//"=> /results/"//trim(job_text)//"-"//trim(adjustl(task_text))//".txt "// &
+                    write(task_text, '(I8)') i
+                    
+                    res = trim(res)//nl//"=> /results/"//task_results_filename//" "// &
                           trim(status)//"Task "//trim(adjustl(task_text))
                     
                 end do