aboutsummaryrefslogtreecommitdiff
path: root/captain/web.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2022-06-29 08:40:04 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2022-06-29 08:40:04 -0400
commit10247d7db2aaffdc617066fa261de8df6454e966 (patch)
treea5a17fde9904b27e57fa51357cbd8ae1cfe0f8d9 /captain/web.f90
parent6f681035a7c7125a72ce04d6881c1579bdb96d09 (diff)
parentfb7136be64188cab7db34ac3ad6c8f27098173de (diff)
downloadlevitating-10247d7db2aaffdc617066fa261de8df6454e966.tar.gz
levitating-10247d7db2aaffdc617066fa261de8df6454e966.zip
Merge branch 'artifacts'
Diffstat (limited to 'captain/web.f90')
-rw-r--r--captain/web.f9021
1 files changed, 21 insertions, 0 deletions
diff --git a/captain/web.f90 b/captain/web.f90
index 1421f96..3b94379 100644
--- a/captain/web.f90
+++ b/captain/web.f90
@@ -746,6 +746,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, &
@@ -766,6 +767,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()
@@ -834,6 +836,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)