subroutinenode_linkprivate
subroutine node_link(p, id, url)
The link of entity id from a page, or '' if it has no page.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| p | type(project_t) | in | the project | |
| id | integer | in | the entity | |
| url | character(len=:) | out | allocatable | the link |
Calls
Source
Show the code
subroutine node_link(p, id, url)
type(project_t), intent(in) :: p !! the project
integer, intent(in) :: id !! the entity
character(len=:), allocatable, intent(out) :: url !! the link
url = ''
associate (e => p%list%box(id)%e)
if (e%visible .or. allocated(e%external_url)) call entity_url(p%list, id, url)
if (len(url) > 0 .and. .not. allocated(e%external_url)) url = '../'//url
end associate
end subroutine node_link