diff options
Diffstat (limited to 'captain/requtils.f90')
| -rw-r--r-- | captain/requtils.f90 | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/captain/requtils.f90 b/captain/requtils.f90 index cb52113..d2ffb29 100644 --- a/captain/requtils.f90 +++ b/captain/requtils.f90 @@ -231,7 +231,7 @@ contains if(gemini_mode) then res = " " else - res ="<ul>" + res ='<ul class="joblist">' end if do i = first, last @@ -248,7 +248,21 @@ contains res = trim(res)//nl//nl//trim(link) else - res = trim(res)//nl//' <li><div class="job_result_listitem">' + res = trim(res)//nl//' <li><div class="job_result_listitem' + + select case(jobs(i)%status) + case(JOB_STATUS_SUCCESS) + res = trim(res)//' success">' + case(JOB_STATUS_FAILURE) + res = trim(res)//' failure">' + case(JOB_STATUS_WORKING) + res = trim(res)//' working">' + case(JOB_STATUS_PENDING) + res = trim(res)//' working">' + case default + res = trim(res)//'">' + end select + link = ' <p><strong><a href="'//trim(int_link_prefix)//'jobs/'// & trim(adjustl(int_text))//'.html" >'// & |