$APPLICATION->AuthForm(GetMessage("FM_NO_FPERMS"));
}
$arResult["TOPIC"] = array();
$arResult["FORUM"] = array();
$arResult["MESSAGE_LIST"] = array();
$res = CForumTopic::GetByIDEx($arParams["TID"], array("GET_FORUM_INFO" => "Y"));
if (!empty($res)) {
$arResult["TOPIC"] = $res["TOPIC_INFO"];
$arResult["FORUM"] = $res["FORUM_INFO"];
$arParams["FID"] = $arResult["FORUM"]["ID"];
}
if (empty($arResult["TOPIC"])) {
ShowError(GetMessage("F_ERROR_TOPIC_NOT_FOUND"));
return false;
}
$message = ForumDataToArray($arParams["MID"]);
if ($message) {
$db_res = CForumMessage::GetListEx(array("ID" => "ASC"), array("@ID" => implode(", ", $message), "TOPIC_ID" => $arParams["TID"]), false, 0, array('sNameTemplate' => $arParams["NAME_TEMPLATE"]));
if ($db_res && ($res = $db_res->GetNext())) {
do {
$arResult["MESSAGE_LIST"][$res["ID"]] = $res;
} while ($res = $db_res->GetNext());
}
}
if (count($arResult["MESSAGE_LIST"]) <= 0) {
ShowError(GetMessage("F_ERROR_MESSAGES_NOT_FOUND"));
return false;
}
foreach ($arResult["TOPIC"] as $key => $val) {
$arResult["TOPIC"]["~" . $key] = $val;
$arResult["TOPIC"][$key] = htmlspecialcharsEx($val);
$url = CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_MESSAGE"], array("FID" => $arParams["FID"], "TID" => $arParams["TID"], "TITLE_SEO" => $arResult["TOPIC"]["TITLE_SEO"], "MID" => $arParams["MID"] > 0 ? $arParams["MID"] : "s"));
break;
case "DEL_TOPIC":
$arFields = array("TID" => $arParams["TID"]);
$url = CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_LIST"], array("FID" => $arParams["FID"]));
break;
case "FORUM_UNSUBSCRIBE":
case "TOPIC_UNSUBSCRIBE":
case "FORUM_SUBSCRIBE":
case "TOPIC_SUBSCRIBE":
case "FORUM_SUBSCRIBE_TOPICS":
$arFields = array("FID" => $arParams["FID"], "TID" => $action == "FORUM_SUBSCRIBE" ? 0 : $arParams["TID"], "TITLE_SEO" => $arResult["TOPIC"]["TITLE_SEO"], "NEW_TOPIC_ONLY" => $action == "FORUM_SUBSCRIBE_TOPICS" ? "Y" : "N");
$url = ForumAddPageParams(CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_SUBSCR_LIST"], array()), array("FID" => $arParams["FID"], "TID" => $arParams["TID"]));
break;
case "MOVE":
$tmp_message = ForumDataToArray($message);
$url = CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_MESSAGE_MOVE"], array("FID" => $arParams["FID"], "TID" => $arParams["TID"], "MID" => implode(",", $tmp_message)));
break;
case "MOVE_TOPIC":
$url = CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_TOPIC_MOVE"], array("FID" => $arParams["FID"], "TID" => $arParams["TID"]));
break;
}
if ($action != "MOVE" && $action != "MOVE_TOPIC") {
$result = ForumActions($action, $arFields, $strErrorMessage, $strOKMessage);
if (($action == "REPLY" || $action == "EDIT_TOPIC") && $arParams["AUTOSAVE"]) {
$arParams["AUTOSAVE"]->Reset();
}
if ($action == "DEL") {
$arFields = CForumTopic::GetByID($arParams["TID"]);
if (empty($arFields)) {
$url = CComponentEngine::MakePathFromTemplate($arParams["~URL_TEMPLATES_LIST"], array("FID" => $arParams["FID"]));
function ForumMoveMessage($FID, $TID, $Message, $NewTID = 0, $arFields, &$strErrorMessage, &$strOKMessage, $iFileSize = false)
{
global $USER, $DB;
$arError = array();
$arOK = array();
$NewFID = 0;
$arForum = array();
$arTopic = array();
$arNewForum = array();
$arNewTopic = array();
$arCurrUser = array();
$SendSubscribe = false;
//************************* Input params **************************************************************************
$TID = IntVal($TID);
$FID = IntVal($FID);
$NewTID = IntVal($NewTID);
$Message = ForumDataToArray($Message);
if (empty($Message)) {
$arError[] = GetMessage("FMM_NO_MESSAGE");
}
if ($TID <= 0) {
$arError[] = GetMessage("FMM_NO_TOPIC_SOURCE0");
} else {
$arTopic = CForumTopic::GetByID($TID);
if ($arTopic) {
$FID = IntVal($arTopic["FORUM_ID"]);
$arForum = CForumNew::GetByID($FID);
} else {
$arError[] = GetMessage("FMM_NO_TOPIC_SOURCE1");
}
}
if ($NewTID <= 0 && strLen(trim($arFields["TITLE"])) <= 0) {
$arError[] = GetMessage("FMM_NO_TOPIC_RECIPIENT0");
} elseif ($NewTID > 0) {
if ($NewTID == $TID) {
$arError[] = GetMessage("FMM_NO_TOPIC_EQUAL");
}
$arNewTopic = CForumTopic::GetByID($NewTID);
if (!$arNewTopic) {
$arError[] = GetMessage("FMM_NO_TOPIC_RECIPIENT1");
} elseif ($arNewTopic["STATE"] == "L") {
$arError[] = GetMessage("FMM_TOPIC_IS_LINK");
} else {
$NewFID = $arNewTopic["FORUM_ID"];
$arNewForum = CForumNew::GetByID($NewFID);
}
}
//*************************/Input params **************************************************************************
//*************************!Proverka prav pol'zovatelya na forume-istochnike i forume-poluchatele*********************
// Tak kak realizovan mehanizm peremeweniya tem s forumov, gde tekuwij pol'zovatel' yavlyaetsya moderatorom na forumy,
// gde on moderatorov ne yavlyaetsya, to v dannom sluchae budet ispol'zovan tot zhe samyj shablon dejstvij. Isklyucheniem
// yavlyaetsya to, chto esli pol'zovatel' na forume-poluchatele ne obladaet pravami moderirovaniya, tema budet neaktivna.
//*************************!Proverka prav pol'zovatelya*************************************************************
$arCurrUser["Perms"]["FID"] = ForumCurrUserPermissions($FID);
$arCurrUser["Perms"]["NewFID"] = ForumCurrUserPermissions($NewFID);
if ($arCurrUser["Perms"]["FID"] < "Q") {
$arError[] = GetMessage("FMM_NO_MODERATE");
}
//************************* Actions *******************************************************************************
$DB->StartTransaction();
if (count($arError) <= 0) {
// Create topic
if ($NewTID <= 0) {
$arFields["APPROVED"] = $arNewForum["MODERATION"] == "Y" ? "N" : "Y";
if ($arCurrUser["Perms"]["NewFID"] >= "Q") {
$arFields["APPROVED"] = "Y";
}
$arRes = array("NAME" => GetMessage("FR_GUEST"));
$ShowName = GetMessage("FR_GUEST");
$db_res = CForumMessage::GetList(array("ID" => "ASC"), array("@ID" => implode(",", $Message), "TOPIC_ID" => $TID));
if ($db_res && ($res = $db_res->Fetch())) {
$arRes["NAME"] = $res["AUTHOR_NAME"];
$arRes["ID"] = $res["AUTHOR_ID"];
}
$arFieldsTopic = array("TITLE" => $arFields["TITLE"], "TITLE_SEO" => $arFields["TITLE_SEO"], "DESCRIPTION" => $arFields["DESCRIPTION"], "ICON" => $arFields["ICON"], "TAGS" => $arFields["TAGS"], "FORUM_ID" => $FID, "USER_START_ID" => $arRes["ID"], "USER_START_NAME" => $arRes["NAME"], "LAST_POSTER_NAME" => $arRes["NAME"], "LAST_POSTER_ID" => $arRes["ID"], "APPROVED" => $arFields["APPROVED"]);
$NewTID = CForumTopic::Add($arFieldsTopic);
if (IntVal($NewTID) <= 0) {
$arError[] = GetMessage("FMM_NO_TOPIC_NOT_CREATED");
} else {
$arNewTopic = CForumTopic::GetByID($NewTID);
if ($arNewTopic) {
$NewFID = $FID;
$arNewForum = $arForum;
$SendSubscribe = true;
} else {
$arError[] = GetMessage("FMM_NO_TOPIC_NOT_CREATED");
}
}
}
}
if (count($arError) <= 0) {
// Move message
$db_res = CForumMessage::GetList(array(), array("@ID" => implode(",", $Message), "TOPIC_ID" => $TID));
if ($db_res && ($res = $db_res->Fetch())) {
do {
// echo "NewFID: ".$NewFID." -- FID:".$FID."<br/>";
$arMessage = array();
if ($NewFID != $FID) {
$arMessage["APPROVED"] = $arNewForum["MODERATION"] == "Y" ? "N" : "Y";
if ($arCurrUser["Perms"]["NewFID"] >= "Q") {
$arMessage["APPROVED"] = "Y";
}
$arMessage["FORUM_ID"] = $NewFID;
$arMessage["POST_MESSAGE_HTML"] = "";
}
if ($NewTID != $TID) {
$arMessage["NEW_TOPIC"] = "N";
$arMessage["TOPIC_ID"] = $NewTID;
}
if (count($arMessage) > 0) {
$MID = CForumMessage::Update($res["ID"], $arMessage, true);
$res_log = $SendSubscribe == true ? GetMessage("F_MESSAGE_WAS_MOVED_TO_NEW") : GetMessage("F_MESSAGE_WAS_MOVED");
$res_log = str_replace(array("#ID#", "#TOPIC_TITLE#", "#TOPIC_ID#", "#NEW_TOPIC_TITLE#", "#NEW_TOPIC_ID#"), array($MID, $arTopic["TITLE"], $arTopic["ID"], $arNewTopic['TITLE'], $arNewTopic['ID']), $res_log);
$res["TITLE"] = $arNewTopic['TITLE'];
$res["TOPIC_ID"] = $arNewTopic['ID'];
$res["beforeTITLE"] = $arTopic["TITLE"];
$res["DESCRIPTION"] = $res_log;
CForumEventLog::Log("message", "move", $MID, serialize($res));
$db_res2 = CForumFiles::GetList(array(), array("FILE_MESSAGE_ID" => $res["ID"]));
if ($db_res2 && ($res2 = $db_res2->Fetch())) {
$arFiles = array();
do {
$arFiles[] = $res2["FILE_ID"];
} while ($res2 = $db_res2->Fetch());
CForumFiles::UpdateByID($arFiles, $arMessage);
}
if (IntVal($MID) <= 0) {
$arError[] = str_replace("##", $res["ID"], GetMessage("FMM_NO_MESSAGE_MOVE"));
break;
}
}
} while ($res = $db_res->Fetch());
}
}
if (count($arError) <= 0) {
$db_res = CForumMessage::GetList(array(), array("TOPIC_ID" => $TID), false, 1);
if (!($db_res && ($res = $db_res->Fetch()))) {
CForumTopic::Delete($TID);
} else {
CForumTopic::SetStat($TID);
}
$db_res = CForumMessage::GetList(array(), array("TOPIC_ID" => $NewTID), false, 1);
if (!($db_res && ($res = $db_res->Fetch()))) {
CForumTopic::Delete($NewTID);
} else {
CForumTopic::SetStat($NewTID);
}
CForumNew::SetStat($FID);
if ($NewFID != $FID) {
CForumNew::SetStat($NewFID);
}
}
if (count($arError) <= 0) {
$DB->Commit();
} else {
$DB->Rollback();
}
if (count($arError) > 0) {
$strErrorMessage .= implode(". \n", $arError) . ". \n";
} else {
$strOKMessage .= GetMessage("FMM_YES_MESSAGE_MOVE");
if ($SendSubscribe) {
foreach ($Message as $MID) {
CForumMessage::SendMailMessage($MID, array(), false, "NEW_FORUM_MESSAGE");
}
}
return true;
}
return false;
}
