diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:52:40 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 16:57:17 -0400 |
commit | a9fc9ce2035e0db07baa6e732200265a90f66332 (patch) | |
tree | d31b4d46cb14608b3bdf1f2a65b7186841949d0c /captain/web.f90 | |
parent | 1e7a526f569ebce3687c43a907b45fc2e44fab23 (diff) | |
download | levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.tar.gz levitating-a9fc9ce2035e0db07baa6e732200265a90f66332.zip |
Added player report of task type, which the captain will show in the job summary.
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index 4242083..e7ade4f 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -745,7 +745,7 @@ contains character(1)::nl = new_line(' ') type(task), dimension(:), pointer::tasks - character(32)::task_text, job_text + character(32)::task_text, job_text, task_type character(len=:), pointer::task_results_filename, one_link, local_task_results_filename character(len=:), pointer::player_link, instruction_link @@ -796,13 +796,18 @@ contains one_link => html_link("../results/"//task_results_filename, & trim(status)//" - Task "//trim(adjustl(task_text))) - res = trim(res)//nl//" <li>"//trim(one_link)//"</li>" + res = trim(res)//nl//" <li>"//trim(one_link) deallocate(one_link) else res = trim(res)//nl//" <li>"// & - trim(status)//" - Task "//trim(adjustl(task_text))//"</li>" + trim(status)//" - Task "//trim(adjustl(task_text)) end if + if(get_task_type(job_id, i, task_type)) then + res = trim(res)//" ("//trim(task_type)//")" + end if + + res = trim(res)//"</li>" deallocate(local_task_results_filename) deallocate(task_results_filename) end do |