'Handle HTML representation
@param r: the S3Request
@param attr: controller arguments'

def _html(self, r, **attr):

    T = current.T
    alerts = self._alerts_html()
    events = self._events_html()
    map_id = 'group-gis_location_the_geom-map-filter-map'
    (_map, button) = self._map('Resources', map_id=map_id, filter=True)
    output = {'alerts': alerts, 'events': events, '_map': _map}
    filter_widgets = [S3TextFilter(['name', 'comments'], formstyle=text_filter_formstyle, label=T('Search'), _placeholder=T('Enter    search    term\xe2\x80\xa6')), S3LocationFilter('location_id', label='', widget='multiselect', levels=('L3',)), S3MapFilter('location_id$the_geom', label='', button=button), S3OptionsFilter('organisation_team.organisation_id', label='', noneSelectedText='Organization', no_opts=''), S3OptionsFilter('status_id', label='', noneSelectedText='Status', no_opts='')]
    filter_form = S3FilterForm(filter_widgets, formstyle=filter_formstyle_profile, submit=True, ajax=True, ajaxurl=URL(c='pr', f='group', args=['filter.options'], vars={}))
    output['filter_form'] = filter_form.html(r.resource, r.get_vars, target=('%s    custom-list-pr_group' % map_id), alias=None)
    datatable = self._datatable
    tablename = 'pr_group'
    datatable(output=output, tablename=tablename, search=False, updateable=False, export=True)
    tablename = 'event_team'
    customise = current.deployment_settings.customise_resource(tablename)
    if customise:
        customise(r, tablename)
    dt_init = ["$('.dataTables_filter    label,.dataTables_length,.dataTables_info').hide();"]
    datatable(output=output, tablename=tablename, search=False, updateable=False, dt_init=dt_init)
    self._view(output, 'resource_browse.html')
    return output
