From 5171892d542ef33986fe77139c68451e6fe4f9a3 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 17 May 2021 12:27:16 -0400 Subject: Fixed query parsing for single instruction html --- captain/web.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'captain/web.f90') 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 -- cgit v1.2.3