aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--captain/web.f9010
1 files changed, 6 insertions, 4 deletions
diff --git a/captain/web.f90 b/captain/web.f90
index 3ac260a..423f7ed 100644
--- a/captain/web.f90
+++ b/captain/web.f90
@@ -83,7 +83,7 @@ contains
type(task), dimension(:), pointer::tasks
character(32)::task_text, job_text
- character(len=:), pointer::task_results_filename, one_link
+ character(len=:), pointer::task_results_filename, one_link, local_task_results_filename
logical::file_exists
@@ -114,8 +114,8 @@ contains
do i = 1, size(tasks)
status = get_status_utf8(tasks(i)%status)
task_results_filename => get_task_result_static_filename(one_job%id, i, no_path=.true.)
-
- inquire(file=task_results_filename, exist=file_exists)
+ local_task_results_filename => get_task_result_static_filename(one_job%id, i, no_path=.false.)
+ inquire(file=local_task_results_filename, exist=file_exists)
write(task_text, '(I8)') i
@@ -126,9 +126,11 @@ contains
res = trim(res)//nl//" <li>"//trim(one_link)//"</li>"
deallocate(one_link)
else
- res = trim(res)//nl//" <li>"//trim(status)//" - Task "//trim(adjustl(task_text))//"</li>"
+ res = trim(res)//nl//" <li>"// &
+ trim(status)//" - Task "//trim(adjustl(task_text))//"</li>"
end if
+ deallocate(local_task_results_filename)
deallocate(task_results_filename)
end do
res = trim(res)//nl//"</ul>"