diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-17 12:27:16 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-17 12:27:16 -0400 |
| commit | 5171892d542ef33986fe77139c68451e6fe4f9a3 (patch) | |
| tree | a6d2d316204cac51b51b2b6426a594bff78eb7ea | |
| parent | 2381665eddef0159296cf60abe4edcd3c9be7b70 (diff) | |
| download | levitating-5171892d542ef33986fe77139c68451e6fe4f9a3.tar.gz levitating-5171892d542ef33986fe77139c68451e6fe4f9a3.zip | |
Fixed query parsing for single instruction html
| -rw-r--r-- | captain/web.f90 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index 638e0c3..bb225ac 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -94,7 +94,10 @@ contains if(associated(jobs)) then if(associated(req%query_string)) then - read(req%query_string, *) job_start_index + read(req%query_string, *, iostat=j) job_start_index + if(j /= 0) then + job_start_index = 1 + end if else job_start_index = 1 end if |