From a9fc9ce2035e0db07baa6e732200265a90f66332 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 27 Jun 2022 16:52:40 -0400 Subject: Added player report of task type, which the captain will show in the job summary. --- player/endpoints.f90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'player/endpoints.f90') diff --git a/player/endpoints.f90 b/player/endpoints.f90 index 8708592..60e96af 100644 --- a/player/endpoints.f90 +++ b/player/endpoints.f90 @@ -91,7 +91,7 @@ contains end subroutine get_check_in_url - subroutine get_status_url(job, step, url, posting, status) + subroutine get_status_url(job, step, url, posting, status, task_type) use config use utilities, only: replace_field implicit none @@ -100,6 +100,7 @@ contains integer, intent(in)::step logical, intent(in), optional::posting integer, intent(in), optional::status + character(len=*), intent(in), optional::task_type character(*), intent(out)::url character(32)::int_text @@ -115,6 +116,11 @@ contains if(present(status)) then url = trim(url)//"?status="//trim(status_text(status)) + if(present(task_type)) then + url = trim(url)//"&type="//trim(task_type) + end if + else if(present(task_type)) then + url = trim(url)//"?type="//trim(task_type) end if call append_query_token(url) -- cgit v1.2.3