Создание группы опросов [ CVoteChannel::Add ]

\CModule::IncludeModule("vote");

$channelTitle = "Название группы опросов";
$channelSymbolicName = "VOTES_GROUP_NAME";

$isFiltered = "";
$dbRes = \CVoteChannel::GetList($by = "ID", $order = "ASC",
    array("SYMBOLIC_NAME" => $channelSymbolicName, "SYMBOLIC_NAME_EXACT_MATCH" => "Y"), $isFiltered);
if (!($dbRes && ($channel = $dbRes->fetch()) && !!$channel))
{
    $res = array(
        "TITLE" => $channelTitle,
        "SYMBOLIC_NAME" => $channelSymbolicName,
        "ACTIVE" => "Y",
        "HIDDEN" => "N",
        "C_SORT" => 100,
        "VOTE_SINGLE" => "N",
        "USE_CAPTCHA" => "N",
        "SITE" => array(),
        "GROUP_ID" => array()
    );
    $by = "sort"; $order = "asc";
    $dbRes = \CSite::GetList($by, $order);
    while ($site = $dbRes->getNext())
        $res["SITE"][] = $site["ID"];
    $dbRes = \CGroup::GetList($by = "sort", $order = "asc", Array("ADMIN" => "N"));
    while ($group = $dbRes->getNext())
        $res["GROUP_ID"][$group["ID"]] = ($group["ID"] == 2 ? 1 : 4);
    $channelId = \CVoteChannel::Add($res);
}
else
{
    $channelId = $channel["ID"];
}