diff options
Diffstat (limited to 'player/endpoints.f90')
-rw-r--r-- | player/endpoints.f90 | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/player/endpoints.f90 b/player/endpoints.f90 index 8ec339d..6a2c955 100644 --- a/player/endpoints.f90 +++ b/player/endpoints.f90 @@ -55,23 +55,21 @@ contains allocate(character(len=length_estimate) :: holding) holding = " " + print *, trim(str) + ! Find the field field_location = index(str, "{"//trim(field)//"}") if(field_location > 0) then - - holding(1:field_location-1) = str(1:field_location-1) - - j = field_location - holding(j:j+len_trim(val)) = trim(val) - + i = field_location + len_trim(field) + 2 - j = len_trim(holding)+1 - holding(j:j+(len_trim(str)-i)) = str(i:len_trim(str)) - + holding = str(1:field_location-1)//trim(val)//str(i:len_trim(str)) + ! Put the results back now str = holding end if + + print *, trim(str) deallocate(holding) @@ -143,6 +141,7 @@ contains else call base_url(captain, LOCATION_JOB_FAILED, .false., res) end if + call replace_field(res, "name", identity) call replace_field(res, "jobid", job) end subroutine get_job_report_url |