diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-12 14:21:05 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-05-12 14:21:05 -0400 |
| commit | c5a514ac0d29a58a79a708771fe4b2a16d400031 (patch) | |
| tree | 20840ea805ed2c9998575e239c7cb7644fae8531 /captain/requtils.f90 | |
| parent | 9ac19f108c1b69025572bf32e310b332ef098c98 (diff) | |
| download | levitating-c5a514ac0d29a58a79a708771fe4b2a16d400031.tar.gz levitating-c5a514ac0d29a58a79a708771fe4b2a16d400031.zip | |
Added some CSS styling. Fixed checks for zero-length pointers since it seems to freak out Fortran.
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" >'// & |