<?
/********************************************************************
	Profanity dictionary.
********************************************************************/
	require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");
	\Bitrix\Main\Loader::includeModule("forum");
	$forumModulePermissions = $APPLICATION->GetGroupRight("forum");
	if ($forumModulePermissions == "D")
		$APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
	IncludeModuleLangFile(__FILE__);
	require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/forum/prolog.php");
	
	$sTableID = "tbl_filter_dictionary_letter";
	$oSort = new CAdminSorting($sTableID, "ID", "asc");
	$lAdmin = new CAdminList($sTableID, $oSort);
	$lAdmin->InitFilter(array("DICTIONARY_ID", "find_type", "find"));

/*******************************************************************/
	$arFilter = array();
	$find = trim($find);
	if ($find <> '')
		$arFilter["%".htmlspecialcharsbx($find_type)] = "%".$find."%";
	$DICTIONARY_ID = intval($_REQUEST["DICTIONARY_ID"]);
	if ($DICTIONARY_ID <= 0)
		$lAdmin->AddFilterError(GetMessage("FLT_NOT_DICT")); 
	$arFilter["DICTIONARY_ID"] = $DICTIONARY_ID;
/*******************************************************************/
	if ($lAdmin->EditAction())
		{
		foreach ($FIELDS as $ID => $arFields)
		{
			$arFields = array_merge($arFields, array("DICTIONARY_ID"=>$DICTIONARY_ID));
			$DB->StartTransaction();
			$ID = intval($ID);
			if (!$lAdmin->IsUpdated($ID))
				continue;
	
			if (!CFilterLetter::Update($ID, $arFields))
			{
				if ($ex = $APPLICATION->GetException())
				{
					$lAdmin->AddUpdateError($ex->GetString(), $ID);
				}	
				else
					$lAdmin->AddUpdateError(GetMessage("FLT_NOT_UPDATE"), $ID);
				$DB->Rollback();
			}
			$DB->Commit();
		}
	}
/*******************************************************************/
	if($arID = $lAdmin->GroupAction())
	{
		if($_REQUEST['action_target']=='selected')
		{
			$rsData = CFilterLetter::GetList(array($by=>$order), $arFilter);
			while($arRes = $rsData->Fetch())
				$arID[] = $arRes['ID'];
		}
		if(check_bitrix_sessid() && (CFilterUnquotableWords::FilterPerm()))
		{
			foreach($arID as $ID)
			{
				if($ID == '')
					continue;
				$ID = intval($ID);
				switch($_REQUEST['action'])
				{
					case "delete": 
						CFilterLetter::Delete($ID);
						break;
				}
			}
		}
	}
	$rsData = CFilterLetter::GetList(array($by=>$order), $arFilter);
	$rsData = new CAdminResult($rsData, $sTableID);
	$rsData->NavStart();
	$lAdmin->NavText($rsData->GetNavPrint(GetMessage("FLT_LETTERS")));
	$lAdmin->AddHeaders(array(
		array("id"=>"ID", "content"=>"ID", "sort"=>"ID", "default"=>true),
		array("id"=>"LETTER", "content"=>GetMessage("FLT_LETTER"),  "sort"=>"LETTER", "default"=>true),
		array("id"=>"REPLACEMENT", "content"=>GetMessage("FLT_REPLACE"), "sort"=>"REPLACEMENT", "default"=>true),
		));
/*******************************************************************/
	while ($arData = $rsData->NavNext(true, "t_"))
	{
		$row =& $lAdmin->AddRow($t_ID, $arData);
		if (!CFilterUnquotableWords::FilterPerm())
			$row->bReadOnly = True;
		$row->AddViewField("ID", $t_ID);
		$row->AddInputField("LETTER", array("size" => "35"));
		$row->AddInputField("REPLACEMENT", array("size" => "150"));
//		$row->AddViewField("DICTIONARY_ID", $DICTIONARY_ID);
	}
/*******************************************************************/
	$lAdmin->AddFooter(
		array(
			array("title"=>GetMessage("MAIN_ADMIN_LIST_SELECTED"), "value" => $rsData->SelectedRowsCount()),
			array("counter"=>true, "title"=>GetMessage("MAIN_ADMIN_LIST_CHECKED"), "value"=>"0"),
		)
	);
	$lAdmin->AddGroupActionTable(array("delete" => GetMessage("FLT_ACT_DEL")));
	if ($forumModulePermissions >= "W")
	{
		$aContext = array(
			array(
				"TEXT" => GetMessage("FLT_ACT_ADD"),
				"LINK" => "forum_letter_edit.php?DICTIONARY_ID=".$DICTIONARY_ID."&lang=".LANG,
				"TITLE" => GetMessage("FLT_ACT_ADD"),
				"ICON" => "btn_new",
			),
		);
		$lAdmin->AddAdminContextMenu($aContext);
	}	
/*******************************************************************/
		$lAdmin->CheckListMode();
/*******************************************************************/
	$APPLICATION->SetTitle(GetMessage("FORUM_MENU_FILTER_DT"));
	require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
	$oFilter = new CAdminFilter($sTableID."filter_dictionary_letter", array());
	?><form name="form1" method="get" action="<br />
<b>Warning</b>:  Undefined variable $APPLICATION in <b>D:\ktt\ttepla.com\public_html\bitrix\modules\forum\admin\forum_letter.php</b> on line <b>122</b><br />
<br />
<b>Fatal error</b>:  Uncaught Error: Call to a member function GetCurPage() on null in D:\ktt\ttepla.com\public_html\bitrix\modules\forum\admin\forum_letter.php:122
Stack trace:
#0 {main}
  thrown in <b>D:\ktt\ttepla.com\public_html\bitrix\modules\forum\admin\forum_letter.php</b> on line <b>122</b><br />