diff options
Diffstat (limited to 'captain/external.f90')
-rw-r--r-- | captain/external.f90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index 467f1ca..07f52cb 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -94,7 +94,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 character(len=:), pointer::player_link, instruction_link, result_link @@ -142,6 +142,10 @@ contains res = trim(res)//nl//result_link deallocate(result_link) + if(get_task_type(job_id, i, task_type)) then + res = trim(res)//" ("//trim(task_type)//")" + end if + end do deallocate(tasks) else |