diff options
Diffstat (limited to 'captain/external.f90')
| -rw-r--r-- | captain/external.f90 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/captain/external.f90 b/captain/external.f90 index 2ddd7f4..5cbee17 100644 --- a/captain/external.f90 +++ b/captain/external.f90 @@ -208,7 +208,7 @@ contains write(task_text, '(I8)') i res = trim(res)//nl//"=> /results/"//task_results_filename//" "// & - trim(status)//"Task "//trim(adjustl(task_text)) + trim(status)//" - Task "//trim(adjustl(task_text)) end do deallocate(tasks) @@ -644,7 +644,11 @@ contains logical::exists resp%temporary_file = .false. - resp%body_filename => get_special_full_filename(category, filename) + + call req%path_component(1, category) + call req%path_component(2, filename) + + resp%body_filename => get_special_full_filename(trim(category), trim(filename)) inquire(file=resp%body_filename, exist=exists) if(.not. exists) then |