subroutinecopy_page_filesprivate

subroutine copy_page_files(s, directory, pages)
    type(settings_t), intent(in) :: s           !! the settings
    character(len=*), intent(in) :: directory   !! the output directory
    type(page_t), intent(in) :: pages(:)        !! the pages
    integer :: k, j, status

    do k = 1, size(pages)
        do j = 1, size(pages(k)%copies)
            call copy_path(s%page_dir//'/'//pages(k)%copies(j)%s, directory//'/page/'//pages(k)%copies(j)%s, status)
        end do
    end do
end subroutine copy_page_files