diff options
Diffstat (limited to 'captain/requtils.f90')
-rw-r--r-- | captain/requtils.f90 | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/captain/requtils.f90 b/captain/requtils.f90 index b28500e..7010bcb 100644 --- a/captain/requtils.f90 +++ b/captain/requtils.f90 @@ -186,13 +186,14 @@ contains end function request_static - function render_jobs_links(jobs, startindex, stopindex, gemini_mode) result(res) + function render_jobs_links(jobs, startindex, stopindex, gemini_mode, link_prefix) result(res) use captain_db implicit none type(job), dimension(:), pointer, intent(in)::jobs integer, intent(in), optional::startindex, stopindex logical, intent(in)::gemini_mode + character(*), intent(in), optional::link_prefix character(len=:), pointer::res integer::nsize, i, first, last @@ -200,6 +201,13 @@ contains character(len=(2*PLAYER_NAME_LENGTH + 64))::link character(PLAYER_NAME_LENGTH)::player, instruction character(1)::nl = new_line(' ') + character(64)::int_link_prefix + + if(present(link_prefix)) then + int_link_prefix = link_prefix + else + int_link_prefix = " " + end if if(.not. associated(jobs)) then allocate(character(len=32)::res) @@ -233,7 +241,8 @@ contains write(int_text, '(I8)') jobs(i)%id if(gemini_mode) then - link = "=> jobs/"//trim(adjustl(int_text))//".gmi "// & + link = "=> "//trim(int_link_prefix)//"jobs/"// & + trim(adjustl(int_text))//".gmi "// & trim(get_status_utf8(jobs(i)%status))//" Job "// & trim(adjustl(int_text))//" - "//trim(instruction) @@ -241,7 +250,8 @@ contains else res = trim(res)//nl//' <li><div class="job_result_listitem">' - link = ' <p><strong><a href="jobs/'//trim(adjustl(int_text))//'.html" >'// & + link = ' <p><strong><a href="'//trim(int_link_prefix)//'jobs/'// & + trim(adjustl(int_text))//'.html" >'// & trim(get_status_utf8(jobs(i)%status))//" Job "// & trim(adjustl(int_text))//" - "//trim(instruction)// & '</a></strong></p>' |