subroutinesummary_sectionprivate

subroutine summary_section(site, title, ids, b)
    type(site_t), intent(in) :: site        !! the site
    character(len=*), intent(in) :: title   !! the heading
    integer, intent(in) :: ids(:)           !! the entities
    type(buffer_t), intent(inout) :: b      !! the HTML
    integer :: k

    if (size(ids) == 0) return
    call add(b, '<h2 id="'//section_id(title)//'">'//title//'</h2>'//achar(10))
    do k = 1, size(ids)
        call summary_item(site, ids(k), b)
    end do
end subroutine summary_section