aboutsummaryrefslogtreecommitdiff
path: root/captain
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-05-17 12:27:16 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-05-17 12:27:16 -0400
commit5171892d542ef33986fe77139c68451e6fe4f9a3 (patch)
treea6d2d316204cac51b51b2b6426a594bff78eb7ea /captain
parent2381665eddef0159296cf60abe4edcd3c9be7b70 (diff)
downloadlevitating-5171892d542ef33986fe77139c68451e6fe4f9a3.tar.gz
levitating-5171892d542ef33986fe77139c68451e6fe4f9a3.zip
Fixed query parsing for single instruction html
Diffstat (limited to 'captain')
-rw-r--r--captain/web.f905
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