subroutinewrite_entity_pageprivate
subroutine write_entity_page(site, id, directory, stat)
Render the page of entity id and write it.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| site | type(site_t) | in | the site | |
| id | integer | in | the entity | |
| directory | character(len=*) | in | the directory of the site | |
| stat | integer | out | nonzero on failure |
Calls
Source
Show the code
subroutine write_entity_page(site, id, directory, stat)
type(site_t), intent(in) :: site !! the site
integer, intent(in) :: id !! the entity
character(len=*), intent(in) :: directory !! the directory of the site
integer, intent(out) :: stat !! nonzero on failure
character(len=:), allocatable :: html, url, errmsg
call entity_page(site, id, html)
call entity_url(site%p%list, id, url)
call write_whole_file(directory//'/'//url, html, stat, errmsg)
end subroutine write_entity_page