/*
##############################################
# Bitrix: SiteManager #
# Copyright (c) 2002 Bitrix #
# http://www.bitrix.ru #
# mailto:admin@bitrix.ru #
##############################################
*/
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_before.php");
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/workflow/prolog.php");
$WORKFLOW_RIGHT = $APPLICATION->GetGroupRight("workflow");
if($WORKFLOW_RIGHT=="D") $APPLICATION->AuthForm(GetMessage("ACCESS_DENIED"));
require_once($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/workflow/include.php");
IncludeModuleLangFile(__FILE__);
$err_mess = "File: ".__FILE__."
Line: ";
define("HELP_FILE","workflow_history_list.php");
/**************************************************************************
GET | POST
***************************************************************************/
$ID = intval($ID);
if ($ID>0)
{
// look up in database
$z = $DB->Query("SELECT ID FROM b_workflow_log WHERE ID='$ID'", false, $err_mess.__LINE__);
if (!($zr=$z->Fetch()))
{
require_once ($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
$aMenu = array(
array(
"ICON" => "btn_list",
"TEXT" => GetMessage("FLOW_DOCUMENT_LIST"),
"LINK" => "workflow_list.php?lang=".LANG,
"TITLE" => GetMessage("FLOW_DOCUMENT_LIST"),
));
$context = new CAdminContextMenu($aMenu);
$context->Show();
CAdminMessage::ShowMessage(GetMessage("FLOW_RECORD_NOT_FOUND"));
require_once ($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_admin.php");
die();
}
}
$PREV_ID = intval($PREV_ID);
if ($PREV_ID>0)
{
// lookup in database
$z = $DB->Query("SELECT ID FROM b_workflow_log WHERE ID='$PREV_ID'", false, $err_mess.__LINE__);
if (!($zr=$z->Fetch()))
{
require_once ($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
$aMenu = array(
array(
"ICON" => "btn_list",
"TEXT" => GetMessage("FLOW_DOCUMENT_LIST"),
"LINK" => "workflow_list.php?lang=".LANG,
"TITLE" => GetMessage("FLOW_DOCUMENT_LIST"),
));
$context = new CAdminContextMenu($aMenu);
$context->Show();
CAdminMessage::ShowMessage(GetMessage("FLOW_RECORD_NOT_FOUND"));
require_once ($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/epilog_admin.php");
die();
}
}
$history = CWorkflow::GetHistoryByID($ID);
ClearVars();
$ar = $history->ExtractFields();
$z = CWorkflow::GetByID($str_DOCUMENT_ID);
if ($zr = $z->Fetch())
$document_exist = "Y";
$prev_history = CWorkflow::GetHistoryByID($PREV_ID);
$prev_ar = $prev_history->Fetch();
$prev_z = CWorkflow::GetByID($prev_ar["DOCUMENT_ID"]);
if ($prev_zr = $prev_z->Fetch())
$prev_document_exist = "Y";
$sDocTitle = str_replace("#ID#", "$ID", GetMessage("FLOW_PAGE_TITLE"));
$APPLICATION->SetTitle($sDocTitle);
require($_SERVER["DOCUMENT_ROOT"]."/bitrix/modules/main/include/prolog_admin_after.php");
/***************************************************************************
HTML form
****************************************************************************/
$aTabs = array();
if($ID && $PREV_ID)
{
$aTabs[] = array(
"DIV" => "edit1",
"TAB" => GetMessage("FLOW_RECORD_SETTINGS"),
"ICON" => "main_user_edit",
"TITLE" => GetMessage("FLOW_PAGE_DIFF_TITLE", array("#ID#"=>$ID, "#PREV_ID#"=>$PREV_ID)),
);
}
else
{
$aTabs[] = array(
"DIV" => "edit1",
"TAB" => GetMessage("FLOW_RECORD_SETTINGS"),
"ICON" => "main_user_edit",
"TITLE" => GetMessage("FLOW_PAGE_TITLE", array("#ID#" => $ID)),
);
}
if($document_exist == "Y")
{
$aTabs[] = array(
"DIV" => "edit2",
"TAB" => GetMessage("FLOW_CURRENT_SETTINGS"),
"ICON"=>"main_user_edit",
"TITLE"=>str_replace("#ID#", "$ID", GetMessage("FLOW_PAGE_PARAM_TITLE"))
);
}
$tabControl = new CAdminTabControl("tabControl", $aTabs, true, true);
$aMenu = array(
array(
"ICON" => "btn_list",
"TEXT" => GetMessage("FLOW_HISTORY"),
"LINK" => "workflow_history_list.php?lang=".LANG."&set_filter=Y&find_document_id=".$str_DOCUMENT_ID,
"TITLE" => GetMessage("FLOW_HISTORY"),
)
);
$context = new CAdminContextMenu($aMenu);
$context->Show();
$tabControl->Begin();
$tabControl->BeginNextTab();
?>