From 55870299e41492ee8ab6c50116061f48f06fcd7d Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Thu, 6 May 2021 16:00:59 -0400
Subject: Individual job results can now be displayed via CGI

---
 captain/external.f90 | 27 +--------------------------
 1 file changed, 1 insertion(+), 26 deletions(-)

(limited to 'captain/external.f90')

diff --git a/captain/external.f90 b/captain/external.f90
index 49331ba..8ca5c97 100644
--- a/captain/external.f90
+++ b/captain/external.f90
@@ -142,32 +142,6 @@ contains
         
     
     end function generate_one_job_gemini
-    
-    subroutine get_job_page_title(req, title)
-    use captain_db
-    use server_response
-    implicit none
-    
-        type(request), intent(in)::req
-        character(*), intent(out)::title
-        
-        integer::job_id, i
-        character(32)::job_text
-        character(PLAYER_NAME_LENGTH)::instruction_name
-        
-        ! All this to get the job id
-        call req%last_component(job_text)
-        i = index(job_text, ".")
-        job_text(i:len(job_text)) = " "
-        read(job_text, '(I8)') job_id
-
-        ! Request instruction name
-        i = get_job_instruction(job_id)
-        call get_instruction_name(i, instruction_name)
-        
-        title = "Job "//trim(job_text)//" - "//trim(instruction_name)
-        
-    end subroutine get_job_page_title
 
     function generate_releases_gemini(req) result(res)
     use utilities
@@ -606,6 +580,7 @@ contains
     use config, only: template_filepath, project
     use logging
     use server_response
+    use request_utils, only: get_job_page_title
     implicit none
     
         class(request), intent(in)::req
-- 
cgit v1.2.3