CAllWorkflow::CleanUpHistoryCopies_SE

static function CleanUpHistoryCopies_SE($FILENAME, $HISTORY_COPIES=false)
{
	$err_mess = (CAllWorkflow::err_mess())."
Function: CleanUpHistoryCopies_SE
Line: ";
	global $DB;
	if ($HISTORY_COPIES===false)
	{
		$HISTORY_COPIES = intval(COption::GetOptionString("workflow","HISTORY_COPIES","10"));
	}
	$strSql = "
		SELECT
			ID
		FROM
			b_workflow_log
		WHERE
			FILENAME = '".$DB->ForSql($FILENAME,255)."'
		and DOCUMENT_ID = 0
		ORDER BY
			ID desc
		";
	$t = $DB->Query($strSql, false, $err_mess.__LINE__);
	$i = 0;
	$str_id = "0";
	while ($tr = $t->Fetch())
	{
		$i++;
		if ($i > $HISTORY_COPIES)
		{
			$str_id .= ",".$tr["ID"];
		}
	}
	$strSql = "DELETE FROM b_workflow_log WHERE ID in ($str_id)";
	$DB->Query($strSql, false, $err_mess.__LINE__);
}