diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 21:12:20 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-28 21:12:20 -0400 |
| commit | 6f681035a7c7125a72ce04d6881c1579bdb96d09 (patch) | |
| tree | 0242bd750f447ab863b375e6e627e2da3abc8bb5 /captain/queryutils.f90 | |
| parent | 1023ceb58f48c7a01a8d04688a48918ac485d20a (diff) | |
| download | levitating-6f681035a7c7125a72ce04d6881c1579bdb96d09.tar.gz levitating-6f681035a7c7125a72ce04d6881c1579bdb96d09.zip | |
Titan query strings are now actually processed as queries. Additional cleanup based on refactor of requests.request_refactor
Diffstat (limited to 'captain/queryutils.f90')
| -rw-r--r-- | captain/queryutils.f90 | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/captain/queryutils.f90 b/captain/queryutils.f90 index c8a5d44..d6fa0e6 100644 --- a/captain/queryutils.f90 +++ b/captain/queryutils.f90 @@ -144,7 +144,6 @@ contains class(query), intent(out)::self character::separator character(len=*), intent(in), optional::str - character(64)::msg integer::ampersands, i, i_end, i_comp, n @@ -177,12 +176,12 @@ contains else i_comp = 1 i = 1 - i_end = index(self%full, '&') + i_end = index(self%full, separator) do while(i_comp < ampersands + 1) call self%components(i_comp)%parse(self%full(i:i_end-1)) i = i_end + 1 do i_end = i, len_trim(self%full) - if(self%full(i_end:i_end) == '&') then + if(self%full(i_end:i_end) == separator) then exit end if end do |