diff options
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index e7ade4f..0bd21ee 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -729,6 +729,7 @@ contains function generate_one_job_html(req) result(res) use captain_db + use config use server_response use special_filenames, only: get_task_result_static_filename use request_utils, only: get_status_utf8, get_player_link => player_link, & @@ -749,6 +750,7 @@ contains character(len=:), pointer::task_results_filename, one_link, local_task_results_filename character(len=:), pointer::player_link, instruction_link + character(len=FILENAME_NAME_LENGTH), dimension(:), pointer::releases logical::file_exists res => null() @@ -817,6 +819,25 @@ contains res = trim(res)//nl//nl//"<p><strong>None reported yet</strong></p>" end if + if(get_job_upload_count_by_category_db(job_id, "releases") > 0 .and. & + req%auth_level >= global_permissions%get("access-releases")) & + then + + res = trim(res)//nl//"<h3>Releases</h3>"//nl//"<ul>" + releases => get_job_uploads_by_category_db(job_id, "releases") + do i = 1, size(releases) + + one_link => html_link("/releases/"//trim(releases(i)), & + trim(releases(i))) + + res = trim(res)//nl//" <li>"//trim(one_link)//"</li>" + + end do + + res = trim(res)//nl//"</ul>" + + end if + else allocate(character(len=64) :: res) |