From c5a514ac0d29a58a79a708771fe4b2a16d400031 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 12 May 2021 14:21:05 -0400
Subject: Added some CSS styling.  Fixed checks for zero-length pointers since
 it seems to freak out Fortran.

---
 captain/requtils.f90 | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'captain/requtils.f90')

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" >'// &
-- 
cgit v1.2.3