functionhas_pageprivate
logical function has_page(site, id)
True if entity id has a page of its own.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| site | type(site_t) | in | the site | |
| id | integer | in | the entity |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| has_page | logical |
Calls
Source
Show the code
logical function has_page(site, id)
type(site_t), intent(in) :: site !! the site
integer, intent(in) :: id !! the entity
character(len=:), allocatable :: url
associate (e => site%p%list%box(id)%e)
has_page = .false.
if (e%kind == E_NONE .or. e%kind == E_VARIABLE .or. e%kind == E_BOUNDPROC .or. e%kind == E_FINAL .or. &
e%kind == E_COMMON .or. e%kind == E_ENUM) return
if (.not. allocated(e%name) .or. allocated(e%external_url) .or. .not. e%visible) return
end associate
call entity_url(site%p%list, id, url)
has_page = len(url) > 0 .and. index(url, '#') == 0
end function has_page