Битрикс. Catalog.section.list для вывода дерева разделов и элементов

При необходимости сделать вывод в таком виде:

1. Раздел каталога 1
   — элемент
   — элемент
   — элемент
   — элемент
2. Раздел каталога 2
   — элемент
   — элемент
   — элемент
   — элемент

Т.е. идет вывод раздела, под ним элементы из этого раздела.

Пишем в result_modifier.php:

<?
$arSelect = Array("ID", "NAME", "IBLOCK_SECTION_ID");
$arFilter = Array("IBLOCK_ID"=>$arParams["IBLOCK_ID"], "ACTIVE"=>"Y");
$res = CIBlockElement::GetList(Array(), $arFilter, false, false, $arSelect);
while($ob = $res->GetNextElement())
{
	$arFields = $ob->GetFields();
	$arSec[$arFields["IBLOCK_SECTION_ID"]][] = $arFields;
}
foreach ($arResult['SECTIONS'] as $key => $arSection){
	$arResult['SECTIONS'][$key]["ELEMENTS"] = $arSec[$arSection["ID"]];
}

Естественно, предварительно почистив template.php и result_modifier.php.