diff options
Diffstat (limited to 'player/endpoints.f90')
| -rw-r--r-- | player/endpoints.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
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) |