in-portal
No OneTemporary
Actions

Subscribers

None

File Metadata

Created: Sun, Aug 17, 5:44 PM

in-portal
View Options

	Index: trunk/kernel/include/searchitems.php
	===================================================================
	--- trunk/kernel/include/searchitems.php (revision 562)
	+++ trunk/kernel/include/searchitems.php (revision 563)
	@@ -1,739 +1,739 @@
	<?php
	/* search string syntax:
	+<word> : <word> is required
	-<word> : <word> cannot exist in the searched field
	"word word" : contents between the quotes are treated as a single entity
	+/-"word word" is supported
	ignore words are not case sensitive
	*/
	class clsSearchLog extends clsItemDB
	{
	function clsSearchLog($id=NULL)
	{
	$this->clsItemDB();
	$this->tablename = GetTablePrefix()."SearchLog";
	$this->id_field = "SearchLogId";
	$this->NoResourceId = 1;
	if($id)
	$this->LoadFromDatabase($id);
	}

	function LoadFromDatabase($Id)
	{
	global $Errors;

	if(!isset($Id))
	{
	$Errors->AddError("error.AppError",NULL,'Internal error: LoadFromDatabase id',"",get_class($this),"LoadFromDatabase");
	return false;
	}
	$sql = sprintf("SELECT * FROM ".$this->tablename." WHERE ".$this->IdField()." = '%s'",$Id);
	$result = $this->adodbConnection->Execute($sql);
	if ($result === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"LoadFromDatabase");
	return false;
	}

	$data = $result->fields;

	$this->SetFromArray($data);
	$this->Clean();
	return true;
	}
	}

	class clsSearchLogList extends clsItemCollection
	{
	var $Page;
	var $PerPageVar;

	function clsSearchLogList()
	{
	$this->clsItemCollection();
	$this->SourceTable = GetTablePrefix()."SearchLog";
	$this->classname = "clsSearchLog";
	$this->Page=1;
	$this->PerPageVar = "Perpage_SearchLog";
	$this->AdminSearchFields = array("Keyword");
	}

	function UpdateKeyword($keyword,$SearchType)
	{
	$sql = "UPDATE ".$this->SourceTable." SET Indices = Indices+1 WHERE Keyword='$keyword' AND SearchType=$SearchType";
	//echo $sql."<br>\n";
	$this->adodbConnection->Execute($sql);
	if($this->adodbConnection->Affected_Rows()==0)
	{
	//echo "Creating Keyword record..<br>\n";
	$k = new clsSearchLog();
	$k->Set("Keyword",$keyword);
	$k->Set("Indices",1);
	$k->Set("SearchType",$SearchType);
	$k->Create();
	}
	}

	function AddKeywords($Keywords)
	{
	if(is_array($Keywords))
	{
	for($i=0;$i<count($Keywords);$i++)
	{
	$this->UpdateKeyword($Keywords[$i]);
	}
	}
	else
	$this->UpdateKeyword($Keywords);
	}
	}

	class clsEmailLog extends clsItemDB
	{
	function clsEmailLog($id=NULL)
	{
	$this->clsItemDB();
	$this->tablename = GetTablePrefix()."SearchLog";
	$this->id_field = "SearchLogId";
	$this->NoResourceId = 1;
	if($id)
	$this->LoadFromDatabase($id);
	}

	function LoadFromDatabase($Id)
	{
	global $Errors;

	if(!isset($Id))
	{
	$Errors->AddError("error.AppError",NULL,'Internal error: LoadFromDatabase id',"",get_class($this),"LoadFromDatabase");
	return false;
	}
	$sql = sprintf("SELECT * FROM ".$this->tablename." WHERE ".$this->IdField()." = '%s'",$Id);
	$result = $this->adodbConnection->Execute($sql);
	if ($result === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"LoadFromDatabase");
	return false;
	}

	$data = $result->fields;

	$this->SetFromArray($data);
	$this->Clean();
	return true;
	}
	}

	class clsEmailLogList extends clsItemCollection
	{
	var $Page;
	var $PerPageVar;

	function clsEmailLogList()
	{
	$this->clsItemCollection();
	$this->SourceTable = GetTablePrefix()."SearchLog";
	$this->classname = "clsEmailLog";
	$this->Page=1;
	$this->PerPageVar = "Perpage_EmailsL";
	$this->AdminSearchFields = array("event", "fromuser", "addressto", "subject");
	}

	function UpdateKeyword($keyword,$SearchType)
	{
	$sql = "UPDATE ".$this->SourceTable." SET Indices = Indices+1 WHERE Keyword='$keyword' AND SearchType=$SearchType";
	//echo $sql."<br>\n";
	$this->adodbConnection->Execute($sql);
	if($this->adodbConnection->Affected_Rows()==0)
	{
	//echo "Creating Keyword record..<br>\n";
	$k = new clsSearchLog();
	$k->Set("Keyword",$keyword);
	$k->Set("Indices",1);
	$k->Set("SearchType",$SearchType);
	$k->Create();
	}
	}

	function AddKeywords($Keywords)
	{
	if(is_array($Keywords))
	{
	for($i=0;$i<count($Keywords);$i++)
	{
	$this->UpdateKeyword($Keywords[$i]);
	}
	}
	else
	$this->UpdateKeyword($Keywords);
	}
	}

	class clsSearchResults extends clsItemCollection
	{
	var $ResultTable;
	var $FieldList;
	var $FieldWeight;
	var $WhereClauses;
	var $SourceTable;
	var $Relationships;
	var $Ignored_Words;
	var $CatClause;
	var $Keywords;
	var $Phrase = "";
	var $SearchType;
	var $RequiredRelevance;
	var $PctRelevance;
	var $PctPop;
	var $PctRating;

	function clsSearchResults($SearchSource,$DataClass)
	{
	global $objConfig;

	$this->clsItemCollection();
	$this->SourceTable = $SearchSource;
	$this->SetResultTable($SearchSource,$DataClass);
	$this->FieldList = array();
	$this->Relationships = array();
	$this->Ignored_Words = array();
	$this->WhereClauses = array();
	$this->FieldWeight = array();
	$this->Keywords = GetKeywords("");
	$this->SearchType = 0; //simple
	$this->RequiredRelevance=0;
	$this->PctRelevance = $objConfig->Get("SearchRel_DefaultKeyword")/100;
	$this->PctPop = $objConfig->Get("SearchRel_DefaultPop")/100;
	$this->PctRating = $objConfig->Get("SearchRel_DefaultRating")/100;
	}

	function SetResultTable($SearchSource,$DataClass)
	{
	global $objSession;

	$this->ResultTable = $objSession->GetSearchTable();
	$this->classname= $DataClass;
	}

	function LoadSearchResults($Start=0,$PerPage=NULL)
	{
	if($PerPage)
	{
	$limit = "LIMIT $Start,$PerPage";
	}
	$sql = "SELECT * FROM ".$this->ResultTable." ".$limit;

	$this->Clear();
	$rs = $this->adodbConnection->Execute($sql);
	return $this->Query_Item($sql);
	}

	function SetCategoryClause($whereclause)
	{
	$this->CatClause=$whereclause;
	}

	function AddRelationship($JoinTable,$JoinExpression=NULL)
	{

	$this->Relationships[$JoinTable]=$JoinExpression;
	}

	function SetKeywords($keywords)
	{
	$this->Phrase=$keywords;
	$this->keywords = GetKeywords($keywords);
	}

	function AddSimpleCustomFields()
	{
	$sql = "SELECT * FROM ".GetTablePrefix()."SearchConfig WHERE TableName='".$this->SourceTable."' AND SimpleSearch=1 AND CustomFieldId>0";
	//echo $sql;
	foreach($this->Relationships as $Table=>$clause)
	{
	if(strlen($Table)>0 && $Table != "Category")
	$sql .= " OR TableName='".$Table."'";
	}
	$ctable = GetTablePrefix()."CustomMetaData";
	$rs = $this->adodbConnection->Execute($sql);
	$CustomJoined = FALSE;
	while($rs && !$rs->EOF)
	{
	$x = $rs->fields["CustomFieldId"];
	$t = $ctable." as c".$x;
	$join = "(c$x.ResourceId=".GetTablePrefix().$this->SourceTable.".ResourceId AND c$x.CustomFieldId=".$rs->fields["CustomFieldId"].")";
	$this->AddRelationship($t,$join);
	$f = "c".$x.".Value ";
	$this->FieldList[] = $f;
	$this->FieldWeight[$f] = $rs->fields["Priority"];
	$rs->MoveNext();
	}
	}

	function AddSimpleFields()
	{
	$sql = "SELECT * FROM ".GetTablePrefix()."SearchConfig WHERE TableName='".$this->SourceTable."' AND SimpleSearch=1 AND CustomFieldId=0";
	//echo $sql;
	foreach($this->Relationships as $Table=>$clause)
	{
	if(strlen($Table)>0 && $Table != "Category")
	$sql .= " OR TableName='".$Table."'";
	}
	$rs = $this->adodbConnection->Execute($sql);

	while($rs && !$rs->EOF)
	{
	$f = GetTablePrefix().$rs->fields["TableName"].".".$rs->fields["FieldName"];
	$this->FieldList[] = $f;
	$this->FieldWeight[$f] = $rs->fields["Priority"];
	$rs->MoveNext();
	}
	$this->AddSimpleCustomFields();
	}

	function AddSearchWhereClause($FieldName)
	{
	$req_where = "";
	/* build required keywords string */

	if(count($this->keywords["required"])>0)
	{
	$required = $this->keywords["required"];
	for($i=0;$i<count($required);$i++)
	{
	if(strlen($required[$i])>0)
	{
	if($i>0)
	{
	$or =" AND ";
	}
	else
	$or = "";
	$w .= $or." ".$FieldName." LIKE '%".$required[$i]."%'";
	}
	}
	if(strlen($w)>0)
	{
	$req_where = "(". $w.")";
	}
	else
	$req_where = "";
	}
	$w = "";
	$not_where="";
	if(count($this->keywords["notallowed"])>0)
	{
	$words = $this->keywords["notallowed"];
	for($i=0;$i<count($words);$i++)
	{
	if(strlen($words[$i])>0)
	{
	if($i>0)
	{
	$or =" AND ";
	}
	else
	$or = "";
	$w .= $or." ".$FieldName." NOT LIKE '%".$words[$i]."%'";
	}
	}
	if(strlen($w)>0)
	{
	$not_where = "(".$w.")";
	}
	else
	$not_where = "";
	}

	$w="";
	$normal = $this->keywords["normal"];
	if(count($normal)>0)
	{
	for($i=0;$i<count($normal);$i++)
	{
	if (strlen($normal[$i])>0)
	{
	if($i>0)
	{
	$or =" OR ";
	}
	else
	$or = "";
	$w .= "$or $FieldName LIKE '%".$normal[$i]."%'";
	}
	}
	if(count($required)>0)
	$w .= " OR ";
	for($i=0;$i<count($required);$i++)
	{
	if(strlen($required[$i])>0)
	{
	if($i>0)
	{
	$or = " OR ";
	}
	else
	$or="";
	$w .= "$or $FieldName LIKE '%".$required[$i]."%'";
	}
	}
	if(strlen($w)>0)
	{
	$where = "(".$w.")";
	}
	else
	$where = "";
	}

	$complete= BuildWhereClause($where,$req_where,$not_where);
	$this->WhereClauses[$FieldName]="(".$complete.")";
	$this->Ignored_Words=$this->keywords["ignored"];
	}

	function PerformSearch($ItemType,$OrderBy=NULL,$InitTable=FALSE, $idlist=NULL)
	{
	static $SelectSQL, $OldItemType;
	global $objSession, $objItemTypes;
	//echo "perfirming Simple Search<br>";
	//echo "Old Item Type: $OldItemType New: $ItemType <br>\n";
	if($ItemType != $OldItemType)
	$SelectSQL = "";
	$OldItemType = $ItemType;

	$ctype = $objItemTypes->GetItem($ItemType);
	$idField = $ctype->Get("SourceTable")."Id";
	$this->SourceTable = GetTablePrefix().$ctype->Get("SourceTable");
	$result=0;
	$PopField = $ctype->Get("PopField");
	$RateField = $ctype->Get("RateField");

	//print_pre($this->keywords);

	if(!strlen($SelectSQL))
	{
	$typestr = str_pad($ItemType,2,"0",STR_PAD_LEFT);
	$SelectSQL = "SELECT ";
	$ifs = array();
	$weightsum = 0;
	foreach($this->FieldWeight as $w)
	$weightsum += $w;
	$wordcount = count($this->keywords["normal"])+count($this->keywords["required"]);
	$single = ($wordcount == 1);
	foreach($this->FieldList as $f)
	{
	$weight = (int)$this->FieldWeight[$f];
	$s = array();

	if(!$single)
	{
	$full = trim(implode(" ",$this->keywords["normal"]));
	$s[] = " (IF ($f LIKE '%$full%', ".$weightsum.", 0))";
	}
	foreach($this->keywords["normal"] as $k)
	{
	if($k != $full \|\| $single)
	{
	$temp = " (IF ($f LIKE '%$k%', ".$weight.", 0))";
	$s[] = $temp;
	}
	}

	foreach($this->keywords["required"] as $k)
	{
	if($this->RequiredRelevance>0)
	$weight = $this->FieldWeight[$f] + ($this->FieldWeight[$f]*($this->RequiredRelevance/100));

	if($k != $full \|\| $single)
	{
	$s[] = " (IF ($f LIKE '%$k%', ".$weight.", 0))";
	}
	}
	// echo "<PRE>";print_r($s); echo "</PRE>";
	$txt = implode("+",$s);
	//echo $txt."<br>\n";
	$ifs[] = $txt;
	unset($s);
	}
	// echo "<PRE>";print_r($ifs); echo "</PRE>";

	/* add relevance formula for weighting hits & popularity */

	if($weightsum==0)
	$weightsum=1;

	if(strlen($PopField)>0 && $this->PctPop>0)
	{
	$popcalc = " + ((($PopField + 1) / (max($PopField)+1)*".$this->PctPop."))";
	}
	else
	$popcalc = "";

	if(strlen($RateField)>0 && $this->PctRating>0)
	{
	$ratecalc = " + ((($RateField + 1) / (max($RateField)+1)*".$this->PctRating."))";
	}
	else
	$ratecalc = "";

	if($this->PctRelevance>0)
	{
	$relcalc = "(((".implode("+",$ifs).")/$weightsum)*".$this->PctRelevance.")";
	}
	else
	$relcalc = "0";

	$SelectSQL .= $relcalc.$popcalc.$ratecalc." as Relevance, ";

	$SelectSQL .= $this->SourceTable.".".$idField." as ItemId, ".$this->SourceTable.".ResourceId as ResourceId, CONCAT($typestr) as ItemType, EditorsPick as EdPick FROM ".$this->SourceTable." ";

	foreach($this->Relationships as $JoinTable=>$OnClause)
	{
	$SelectSQL .= "LEFT JOIN $JoinTable ON $OnClause ";
	}
	$first=1;
	$where=0;

	foreach($this->FieldList as $field)
	{
	if(strpos($field,"as")>0)
	{
	$fparts = explode("as",$field,2);
	$f = $fparts[1];
	$this->AddSearchWhereClause($field);
	}
	else {
	$this->AddSearchWhereClause($field);
	}
	}

	$SelectSQL .= " WHERE ";
	$SelectSQL .= implode(" or ",$this->WhereClauses);

	if(is_array($idlist))
	{
	$SelectSQL .= " AND (ResourceId IN (".implode(",",$idlist)."))";
	}
	}
	$SelectSQL .= "GROUP BY $idField ";
	- //echo $SelectSQL."<br><br>\n";
	+ echo $SelectSQL."<br><br>\n";
	if($InitTable)
	{
	$this->adodbConnection->Execute("DROP TABLE IF EXISTS ".$this->ResultTable);
	//$indexSQL = "(INDEX(Relevance), INDEX(ItemId), INDEX(ItemType), INDEX sorting (EdPick,Relevance)) ";
	$full_sql = "CREATE TABLE ".$this->ResultTable." ".$indexSQL.$SelectSQL;
	//echo $full_sql."<br>\n";
	$this->adodbConnection->Execute($full_sql);
	//echo $this->adodbConnection->ErrorMsg()."<br>\n";
	$objSession->SetVariable("Search_Keywords",$this->Phrase);
	}
	else
	{
	$full_sql = "INSERT INTO ".$this->ResultTable." (Relevance,ItemId,ResourceId,ItemType,EdPick) ".$SelectSQL;
	//echo "[<b>".htmlspecialchars($full_sql)."</b>]<br>\n";
	$this->adodbConnection->Execute($full_sql);
	//echo $this->adodbConnection->ErrorMsg()."<br>\n";
	}
	//Here we need to remove found items which was found by HTML tags matching keywords
	//$this->adodbConnection->Execute("DELETE FROM ".$this->ResultTable." WHERE ItemId = 13 AND ItemType = 4");
	}

	function BuildIndexes()
	{
	$sql = "ALTER TABLE ".$this->ResultTable." ADD INDEX (Relevance), ";
	$sql .="ADD INDEX (ItemId), ";
	$sql .="ADD INDEX (ItemType), ";
	$sql .=" ADD INDEX sorting (EdPick,Relevance)";
	//echo $sql;
	$this->adodbConnection->Execute($sql);
	}

	function Result_IdList()
	{
	/* returns an array contain a resource ID list */
	$sql = "SELECT DISTINCT(ResourceId) FROM ".$this->ResultTable;
	$rs = $this->adodbConnection->Execute($sql);
	$result = array();
	while($rs && !$rs->EOF)
	{
	$result[] = $rs->fields["ResourceId"];
	$rs->MoveNext();
	}
	return $result;
	}
	}

	function count_words($string)
	{
	// below line added to make contiguous spaces count as one space
	if(strlen($string))
	{
	$string = eregi_replace(" +", " ", $string);
	return substr_count($string," ")+1;
	}
	else
	return 0;
	}

	function GetKeywords($phrase)
	{
	global $KeywordIgnore;

	if(count($KeywordIgnore)==0)
	GetIgnoreList();
	$keywords["normal"]= array();
	$keywords["required"]= array();
	$keywords["notallowed"] = array();
	$keywords["ignored"] = array();
	if(!strlen($phrase))
	return $keywords;
	$w_array = array();
	$phrase=trim($phrase);
	//if(count_words($phrase)>1)
	// $keywords["normal"][] = $phrase;
	$t_len = strlen($phrase);
	$ce=0;
	for ($i=0; $i<$t_len; $i++)
	{ #search for next special tag
	switch ($phrase[$i])
	{
	case "\"":
	$exact_match_close = strpos($phrase,"\"", $i+1);
	if(!$exact_match_close)
	break;
	$exact_word=substr($phrase, $i+1, ($exact_match_close-$i)-1);
	$i=$exact_match_close;
	if($exact_word)
	{
	if(strlen($token)==0)
	$token="\|";
	$w_array[$ce]=$token.addslashes($exact_word);
	$token="";
	$ce++;
	$exact_word="";
	}
	break;

	case "+":
	if(strlen($exact_word)==0)
	{
	$token = "+";
	}
	else
	$exact_word .= "+";
	break;
	case "-":
	if(strlen($exact_word)==0)
	{
	$token = "-";
	}
	else
	$exact_word .="-";
	break;
	case " ":
	case ",":
	if($exact_word)
	{
	if(strlen($token)==0)
	$token="\|";
	if($token=="\|")
	{
	if($KeywordIgnore[strtolower($exact_word)]==1)
	{
	$w_array[$ce]= "=".addslashes($exact_word);
	$ce++;
	}
	else
	{
	$w_array[$ce]=$token.addslashes($exact_word);
	$ce++;
	}
	}
	else
	{
	$w_array[$ce]=$token.addslashes($exact_word);
	$ce++;
	}
	$token="";
	$exact_word="";
	}
	break;

	default:
	$exact_word.=$phrase[$i];
	}
	}
	if($exact_word)
	{
	if(strlen($token)==0)
	$token="\|";
	if($KeywordIgnore[strtolower($exact_word)]==1 && ($token =="\|" \|\| $token=="="))
	{
	$w_array[$ce]= "=".addslashes($exact_word);
	$ce++;
	}
	else
	{
	$w_array[$ce]=$token.addslashes($exact_word);
	$ce++;
	}
	}
	for ($i=0;$i<count($w_array);$i++)
	{
	$keyword = $w_array[$i];
	switch(substr($keyword,0,1))
	{
	case "\|":
	$keywords["normal"][]=substr($keyword,1);
	break;
	case "+":
	$keywords["required"][] = substr($keyword,1);
	break;
	case "-":
	$keywords["notallowed"][] = substr($keyword,1);
	break;
	case "=":
	$keywords["ignored"][] = substr($keyword,1);
	break;
	}
	}
	return($keywords);
	}

	function BuildWhereClause($normal,$required,$notallowed)
	{
	$return="";

	$return = $required;

	if(strlen($return)>0 && strlen($notallowed)>0)
	{
	$return .= " AND ";
	}
	$return .= $notallowed;
	if(strlen($return)>0 && strlen($normal)>0)
	{
	$return .= " AND ";
	}
	$return .= $normal;
	return $return;
	}

	function GetIgnoreList()
	{
	global $KeywordIgnore;

	$adodbConnection = &GetADODBConnection();

	$rs = $adodbConnection->Execute("SELECT * FROM IgnoreKeywords");
	while($rs && !$rs->EOF)
	{
	$KeywordIgnore[strtolower($rs->fields["keyword"])]=1;
	$rs->MoveNext();
	}
	// foreach($KeywordIgnore as $word=>$dummy)
	// echo $word.",";
	// echo "<br>\n";
	}

	?>

	Property changes on: trunk/kernel/include/searchitems.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.6
	\ No newline at end of property
	+1.7
	\ No newline at end of property
	Index: trunk/kernel/startup.php
	===================================================================
	--- trunk/kernel/startup.php (revision 562)
	+++ trunk/kernel/startup.php (revision 563)
	@@ -1,148 +1,148 @@
	<?php
	/*
	startup.php: this is the primary startup sequence for in-portal services
	*/

	if( file_exists($pathtoroot.'debug.php') && !defined('DEBUG_MODE') ) include_once($pathtoroot.'debug.php');
	if( !defined('DEBUG_MODE') ) error_reporting(0);

	ini_set('memory_limit', '16M');
	ini_set('include_path', '.');

	$kernel_version = "1.0.0";
	$FormError = array();
	$FormValues = array();
	/* include PHP version compatibility functions */
	require_once($pathtoroot."compat.php");
	/* set global variables and module lists */
	require_once($pathtoroot."globals.php");

	LogEntry("Initalizing System..\n");

	/* for 64 bit timestamps */
	require_once($pathtoroot."kernel/include/adodb/adodb-time.inc.php");
	require_once($pathtoroot."kernel/include/dates.php");

	/* create the global error object */
	require_once($pathtoroot."kernel/include/error.php");
	$Errors = new clsErrorManager();

	require_once($pathtoroot."kernel/include/itemdb.php");
	require_once($pathtoroot."kernel/include/config.php");
	/* create the global configuration object */
	LogEntry("Creating Config Object..\n");
	$objConfig = new clsConfig();
	$objConfig->Load(); /* Populate our configuration data */
	LogEntry("Done Loading Configuration\n");
	if( defined('ADODB_EXTENSION') && constant('ADODB_EXTENSION') > 0 )
	LogEntry("ADO Extension: ".ADODB_EXTENSION."\n");

	require_once($pathtoroot."kernel/include/parseditem.php");
	require_once($pathtoroot."kernel/include/item.php");
	require_once($pathtoroot."kernel/include/syscache.php");
	require_once($pathtoroot."kernel/include/modlist.php");
	require_once($pathtoroot."kernel/include/searchconfig.php");
	require_once($pathtoroot."kernel/include/banrules.php");

	$objModules = new clsModList();
	$objSystemCache = new clsSysCacheList();
	$objSystemCache->PurgeExpired();
	$objBanList = new clsBanRuleList();

	require_once($pathtoroot."kernel/include/image.php");

	require_once($pathtoroot."kernel/include/itemtypes.php");
	$objItemTypes = new clsItemTypeList();

	require_once($pathtoroot."kernel/include/theme.php");
	$objThemes = new clsThemeList();

	require_once($pathtoroot."kernel/include/language.php");
	$objLanguages = new clsLanguageList();
	$objImageList = new clsImageList();

	/* Load session and user class definitions */
	//require_once("include/customfield.php");
	//require_once("include/custommetadata.php");
	require_once($pathtoroot."kernel/include/usersession.php");
	require_once($pathtoroot."kernel/include/favorites.php");
	require_once($pathtoroot."kernel/include/portaluser.php");
	require_once($pathtoroot."kernel/include/portalgroup.php");

	/* create the user management class */
	$objFavorites = new clsFavoriteList();
	$objUsers = new clsUserManager();
	$objGroups = new clsGroupList();

	require_once($pathtoroot."kernel/include/cachecount.php");
	require_once($pathtoroot."kernel/include/customfield.php");
	require_once($pathtoroot."kernel/include/custommetadata.php");
	require_once($pathtoroot."kernel/include/permissions.php");
	require_once($pathtoroot."kernel/include/relationship.php");
	require_once($pathtoroot."kernel/include/category.php");
	require_once($pathtoroot."kernel/include/statitem.php");
	/* category base class, used by all the modules at some point */
	$objPermissions = new clsPermList();
	$objPermCache = new clsPermCacheList();

	$objCatList = new clsCatList();
	$objCustomFieldList = new clsCustomFieldList();
	$objCustomDataList = new clsCustomDataList();
	$objCountCache = new clsCacheCountList();

	require_once($pathtoroot."kernel/include/smtp.php");
	require_once($pathtoroot."kernel/include/emailmessage.php");
	require_once($pathtoroot."kernel/include/events.php");
	LogEntry("Creating Mail Queue..\n");
	$objMessageList = new clsEmailMessageList();
	$objEmailQueue = new clsEmailQueue();
	LogEntry("Done creating Mail Queue Objects\n");

	require_once($pathtoroot."kernel/include/searchitems.php");
	require_once($pathtoroot."kernel/include/advsearch.php");

	require_once($pathtoroot."kernel/include/parse.php");
	require_once($pathtoroot."kernel/include/socket.php");

	/* responsible for including module code as required
	This script also creates an instance of the user session onject and
	handles all session management. The global session object is created
	and populated, then the global user object is created and populated

	each module's parser functions and action code is included here
	*/

	LogEntry("Startup complete\n");
	include_once("include/modules.php");

	if( defined('DEBUG_MODE') && constant('DEBUG_MODE') == 1 && function_exists('DebugByFile') ) DebugByFile();

	/* startup is complete, so now check the mail queue to see if there's anything that needs to be sent*/
	$objEmailQueue->SendMailQeue();

	$ado=&GetADODBConnection();
	$rs = $ado->Execute("SELECT * FROM ".GetTablePrefix()."Modules WHERE LoadOrder = 0");

	$kernel_version = $rs->fields['Version'];


	$adminDir = $objConfig->Get("AdminDirectory");
	if ($adminDir == '') {
	$adminDir = 'admin';
	}

	-if (strstr($_SERVER['SCRIPT_FILENAME'], $adminDir) && !GetVar('logout') && !strstr($_SERVER['SCRIPT_FILENAME'], "install") && !strstr($_SERVER['SCRIPT_FILENAME'], "index")) {
	+if (strstr(__FILE__, $adminDir) && !GetVar('logout') && !strstr(__FILE__, "install") && !strstr(__FILE__, "index")) {
	//echo "testz [".admin_login()."]<br>";

	if (!admin_login())
	{
	if( !headers_sent() ) setcookie("sid"," ",time()-3600);
	$objSession->Logout();
	$url_add = isset($_GET['expired']) && $_GET['expired'] ? '?expired=1' : '';
	header("Location: ".$adminURL.'/login.php'.$url_add);
	die();
	//require_once($pathtoroot."admin/login.php");
	}
	}

	?>
	\ No newline at end of file

	Property changes on: trunk/kernel/startup.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.12
	\ No newline at end of property
	+1.13
	\ No newline at end of property
	Index: trunk/admin/category/category_maint.php
	===================================================================
	--- trunk/admin/category/category_maint.php (revision 562)
	+++ trunk/admin/category/category_maint.php (revision 563)
	@@ -1,245 +1,245 @@
	<?php
	##############################################################
	##In-portal ##
	##############################################################
	## In-portal ##
	## Intechnic Corporation ##
	## All Rights Reserved, 1998-2002 ##
	## ##
	## No portion of this code may be copied, reproduced or ##
	## otherwise redistributed without proper written ##
	## consent of Intechnic Corporation. Violation will ##
	## result in revocation of the license and support ##
	## privileges along maximum prosecution allowed by law. ##
	##############################################################


	if(!strlen($pathtoroot))
	{
	- $path = dirname(realpath($_SERVER['SCRIPT_FILENAME']));
	+ $path = dirname(realpath(__FILE__));
	if( strlen($path) )
	{
	// determine the OS type for path parsing
	$pos = strpos($path, ':');
	$gOS_TYPE = ($pos === false) ? 'unix' : 'win';
	$pathchar = ($gOS_TYPE == 'unix') ? '/' : "\\";
	$p = $path.$pathchar;

	// Start looking for the root flag file
	while( !strlen($pathtoroot) && strlen($p) )
	{
	$sub = substr($p, strlen($pathchar) * -1);
	$filename = $p.( ($sub == $pathchar) ? '' : $pathchar).'root.flg';
	if( !file_exists($filename) )
	{
	$parent = realpath($p.$pathchar."..".$pathchar);
	$p = ($parent != $p) ? $parent : '';
	}
	else
	$pathtoroot = $p;
	}
	if( !strlen($pathtoroot) ) $pathtoroot = '.'.$pathchar;
	}
	else
	$pathtoroot = '.'.$pathchar;
	}

	$sub = substr($pathtoroot,strlen($pathchar)*-1);
	if( $sub != $pathchar) $pathtoroot = $pathtoroot.$pathchar;

	//echo $pathtoroot;
	//$FrontEnd=2;

	require_once($pathtoroot."kernel/startup.php");

	//admin only util
	$rootURL="http://".ThisDomain().$objConfig->Get("Site_Path");
	$admin = $objConfig->Get("AdminDirectory");
	if(!strlen($admin))
	$admin = "admin";
	$localURL=$rootURL."kernel/";
	$adminURL = $rootURL.$admin;
	$imagesURL = $adminURL."/images";
	//$pathtolocal = $pathtoroot."in-news/";
	require_once ($pathtoroot.$admin."/include/elements.php");
	require_once ($pathtoroot."kernel/admin/include/navmenu.php");
	//require_once ($pathtolocal."admin/include/navmenu.php");
	require_once($pathtoroot.$admin."/toolbar.php");
	require_once($pathtoroot.$admin."/listview/listview.php");

	$section = "in-portal:category_maint";

	$CatsPerLoad = 10;
	$ado = &GetADODBConnection();

	// init vars
	if( !isset($NumCats) ) $NumCats = 0;
	if( !isset($CatIndex) ) $CatIndex = 0;

	if( !is_numeric( GetVar('CatIndex') ) )
	{
	unset($objEditItems);

	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");
	$table = $objEditItems->SourceTable;
	//echo "Dropping Table..<br>\n";
	@$ado->Execute("DROP TABLE IF EXISTS $table");

	if($objCatList->CurrentCategoryID()>0)
	{
	$c = $objCatList->GetItem($objCatList->CurrentCategoryID());
	$path = $c->Get("ParentPath");
	$sql = "SELECT CategoryId,ParentPath FROM ".$objCatList->SourceTable." WHERE ParentPath LIKE '".$path."%'";
	$ado->Execute("CREATE TABLE $table ".$sql);
	}
	else
	{
	$sql = "SELECT CategoryId,ParentPath FROM ".$objCatList->SourceTable;
	$objEditTable->SourceTable = $objCatList->SourceTable;
	$table = $objCatList->SourceTable;
	}
	$NumCats = TableCount($table,"",0);

	$title = prompt_language("la_prompt_updating")." ".prompt_language("la_Text_Categories");
	int_header(NULL,NULL,$title);
	flush();
	}
	elseif( is_numeric($_GET["CatIndex"]) )
	{
	$NumCats = $_REQUEST['NumCats'];
	$CatIndex = (int)$_REQUEST['CatIndex'];
	$table = ($objCatList->CurrentCategoryID() > 0) ? $objSession->GetEditTable("Category") : $objCatList->SourceTable;
	//echo $NumCats." Loaded <br>\n";
	$title = prompt_language("la_prompt_updating")." ".prompt_language("la_Text_Categories");
	$title .= " $CatIndex / $NumCats ".prompt_language("la_Text_complete");
	int_header(NULL,NULL,$title);
	flush();

	$sql = "SELECT * FROM $table ORDER BY ParentPath ASC LIMIT $CatIndex,$CatsPerLoad";

	$objCatList->Query_Item($sql);
	foreach($objCatList->Items as $cat)
	{
	$cat->UpdateACL();
	$cat->UpdateCachedPath();
	}
	}
	else
	{
	$title = prompt_language("la_prompt_updating")." ".prompt_language("la_Text_Categories");
	int_header(NULL,NULL,$title);
	flush();
	}

	$no_url = $adminURL.'/'.$objSession->GetVariable('ReturnScript').'?env='.BuildEnv();
	$yes_url = $_SERVER['PHP_SELF'].'?env='.BuildEnv().'&CatIndex=0&NumCats='.$NumCats;
	$cat_update = $objSession->GetVariable('PermCache_UpdateRequired');


	?>
	<TABLE cellspacing="0" cellpadding="2" width="100%" border="0" class="tableborder">
	<script language="javascript">
	function goto_url(url)
	{
	document.location = url;
	}
	<?php if( !$cat_update )
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 0);
	echo "goto_url('$no_url');\n";
	}
	?>
	</script>
	<?php


	if(!is_numeric( GetVar('CatIndex') ) && $NumCats > $CatsPerLoad)
	{
	int_subsection_title(prompt_language("la_confirm_maintenance"));


	?>
	<tr>
	<td align="center" colspan="3" bgcolor="#FFFFFF"><?php echo prompt_language("la_prompt_perform_now"); ?></td>
	</tr>
	<tr>
	<td align="right" width="50%">
	<input type="button" name="yes_btn" value="<?php echo admin_language("lu_yes"); ?>" onclick="javascript:goto_url('<?php echo $yes_url; ?>');" class="button">
	</td>
	<td><img src="<?php echo $imagesURL; ?>/spacer.gif" width="10"></td>
	<td align="left" width="50%">
	<input type="button" name="yes_btn" value="<?php echo admin_language("lu_no"); ?>" onclick="javascript:goto_url('<?php echo $no_url; ?>');" class="button">
	</td>
	</tr>
	</table>
	<?php
	int_footer();
	die();
	}
	?>
	<?php int_subsection_title(""); ?>
	<?php
	if($NumCats==0)
	{
	$percent=100;
	}
	else
	{
	$percent = (int)(($CatIndex/$NumCats) * 100);
	}

	if( is_numeric( GetVar('CatIndex') ) )
	{
	if ($percent == 0)
	{
	echo "<TR>";
	echo "<TD BGCOLOR=\"#FFFFFF\" width=\"100%\" >$percent";
	echo "%</td></TR>";
	}
	else if ($percent < 60)
	{
	echo "<TR><TD BGCOLOR=\"#4682B2\" width=\"".$percent."%\" >";
	$row2 = 100-$percent;
	echo "</td> <TD BGCOLOR=\"#FFFFFF\" width=\"".$row2."%\" > $percent";
	echo "%</td></TR>";
	}
	else if ($percent == 100)
	{
	echo "<TR><TD BGCOLOR=\"#4682B2\" align=\"right\" width=\"100%\" ><FONT COLOR=\"#FFFFFF\">$percent%</FONT></td>";
	}
	else
	{
	echo "<TR><TD BGCOLOR=\"#4682B2\" align=\"right\" width=\"".$percent."%\" ><FONT COLOR=\"#FFFFFF\">$percent%</FONT>";
	$row2 = 100-$percent;
	echo "</td> <TD BGCOLOR=\"#FFFFFF\" width=\"".$row2."%\" ></td></TR>";
	}
	}
	flush();
	?>
	</TABLE>
	<?php
	if($CatIndex+1 >$NumCats)
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 0);
	$target = $adminURL."/".$objSession->GetVariable('ReturnScript').'?env='.BuildEnv();
	}
	else
	{
	$next = $CatIndex+$CatsPerLoad;
	if($next > $NumCats)
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 0);
	$target = $adminURL."/".$objSession->GetVariable('ReturnScript').'?env='.BuildEnv();
	}
	else
	$target = $_SERVER["PHP_SELF"]."?env=".BuildEnv()."&CatIndex=".$next."&NumCats=$NumCats";
	}

	//print "<A HREF=\"$target\">$target</A>";

	print "<script language=\"javascript\">" ;
	print "setTimeout(\"document.location='$target';\",40);";
	print " </script>";
	?>
	<?php int_footer(); ?>

	Property changes on: trunk/admin/category/category_maint.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.9
	\ No newline at end of property
	+1.10
	\ No newline at end of property
	Index: trunk/globals.php
	===================================================================
	--- trunk/globals.php (revision 562)
	+++ trunk/globals.php (revision 563)
	@@ -1,1462 +1,1462 @@
	<?php

	$vars = parse_portal_ini($pathtoroot."config.php");

	while($key = key($vars))
	{
	$key = "g_".$key;
	global $$key;
	$$key = current($vars); //variable variables
	next($vars);
	}

	/list the tables which contain item data /
	$ItemTables = array();

	$KeywordIgnore = array();
	global $debuglevel;

	$debuglevel = 0;
	//$GLOBALS['debuglevel'] = 0;

	/New, Hot, Pop field values /
	define('NEVER', 0);
	define('ALWAYS', 1);
	define('AUTO', 2);

	/Status Values /
	define('STATUS_DISABLED', 0);
	define('STATUS_ACTIVE', 1);
	define('STATUS_PENDING', 2);

	$LogLevel=0;
	$LogFile = NULL;


	function parse_portal_ini($file, $parse_section = false) {
	if(!file_exists($file) && !is_readable($file))
	die('Could Not Open Ini File');

	$contents = file($file);

	$retval = array();

	$section = '';
	$ln = 1;
	$resave = false;
	foreach($contents as $line) {
	if ($ln == 1 && $line != '<'.'?'.'php die() ?'.">\n") {
	$resave = true;
	}
	$ln++;
	$line = trim($line);
	$line = eregi_replace(';[.]*','',$line);
	if(strlen($line) > 0) {
	//echo $line . " - ";
	if(eregi('^[[a-z]+]$',str_replace(' ', '', $line))) {
	//echo 'section';
	$section = substr($line,1,(strlen($line)-2));
	if ($parse_section) {
	$retval[$section] = array();
	}
	continue;
	} elseif(eregi('=',$line)) {
	//echo 'main element';
	list($key,$val) = explode(' = ',$line);
	if (!$parse_section) {
	$retval[trim($key)] = str_replace('"', '', $val);
	}
	else {
	$retval[$section][trim($key)] = str_replace('"', '', $val);
	}
	} //end if
	//echo '<br />';
	} //end if
	} //end foreach
	if ($resave) {
	$fp = fopen($file, "w");
	reset($contents);
	fwrite($fp,'<'.'?'.'php die() ?'.">\n\n");
	foreach($contents as $line) fwrite($fp,"$line");
	fclose($fp);
	}

	return $retval;
	}

	/**
	* @return object
	* @desc Returns reference to database connection
	*/
	function &GetADODBConnection()
	{
	static $DB = null;

	global $g_DBType, $g_DBHost, $g_DBUser, $g_DBUserPassword, $g_DBName, $g_DebugMode;
	global $ADODB_FETCH_MODE, $ADODB_COUNTRECS, $ADODB_CACHE_DIR, $pathtoroot;

	if( !isset($DB) && strlen($g_DBType) > 0 )
	{
	$DB = ADONewConnection($g_DBType);
	$connected = $DB->Connect($g_DBHost, $g_DBUser, $g_DBUserPassword, $g_DBName);
	if(!$connected) die("Error connecting to database $g_DBHost <br>\n");

	$ADODB_CACHE_DIR = $pathtoroot."cache";
	$ADODB_FETCH_MODE = 2;
	$ADODB_COUNTRECS = false;
	$DB->debug = defined('ADODB_OUTP') ? 1 : 0;
	$DB->cacheSecs = 3600;
	$DB->Execute('SET SQL_BIG_SELECTS = 1');
	}
	elseif( !strlen($g_DBType) )
	{
	global $rootURL;
	echo 'In-Portal is probably not installed, or configuration file is missing.<br>';
	echo 'Please use the installation script to fix the problem.<br><br>';
	- if ( !preg_match('/admin/', $_SERVER['SCRIPT_FILENAME']) ) $ins = 'admin/';
	+ if ( !preg_match('/admin/', __FILE__) ) $ins = 'admin/';

	echo '<a href="'.$rootURL.$ins.'install.php">Go to installation script</a><br><br>';
	flush();
	exit;
	}
	return $DB;
	}

	function GetNextResourceId($Increment=1)
	{
	$sql = "UPDATE ".GetTablePrefix()."IdGenerator SET lastid=lastid+".$Increment;
	$adodbConnection = &GetADODBConnection();
	$adodbConnection->Execute($sql);
	$rs = $adodbConnection->Execute("SELECT lastid FROM ".GetTablePrefix()."IdGenerator");
	$val = $rs->fields["lastid"];
	if(!$rs \|\| $rs->EOF)
	{
	echo $adodbConnection->ErrorMsg();
	$sql = "INSERT INTO ".GetTablePrefix()."IdGenerator (lastid) VALUES ($Increment)";
	$adodbConnection->Execute($sql);
	$val = 1;
	}
	$val = $val-($Increment-1);
	return $val;
	}

	function AddSlash($s)
	{
	if(substr($s,-1) != "/")
	{
	return $s."/";
	}
	else
	return $s;
	}

	function StripNewline($s)
	{
	$bfound = false;
	while (strlen($s)>0 && !$bfound)
	{
	if(ord(substr($s,-1))<32)
	{
	$s = substr($s,0,-1);
	}
	else
	$bfound = true;
	}
	return $s;
	}

	function DeleteElement($array, $indice)
	{
	for($i=$indice;$i<count($array)-1;$i++)
	$array[$i] = $array[$i+1];
	unset($array[count($array)-1]);
	return $array;
	}

	function DeleteElementValue($needle, &$haystack)
	{
	while(($gotcha = array_search($needle,$haystack)) > -1)
	unset($haystack[$gotcha]);
	}

	function TableCount($TableName, $where="",$JoinCats=1)
	{
	$db = &GetADODBConnection();
	if(!$JoinCats)
	{
	$sql = "SELECT count(*) as TableCount FROM $TableName";
	}
	else
	$sql = "SELECT count(*) as TableCount FROM $TableName INNER JOIN ".GetTablePrefix()."CategoryItems ON ".GetTablePrefix()."CategoryItems.ItemResourceId=$TableName.ResourceId";
	if(strlen($where)>0)
	$sql .= " WHERE ".$where;

	$rs = $db->Execute($sql);

	// echo "SQL TABLE COUNT: ".$sql."<br>\n";

	$res = $rs->fields["TableCount"];
	return $res;
	}

	Function QueryCount($sql)
	{
	$countsql = "SELECT count(*) as TableCount ".substr($sql,strpos($sql," FROM "));
	if(strpos($countsql,"LIMIT"))
	$countsql = substr($countsql,0,strpos($countsql,"LIMIT"));
	if(strpos($countsql,"ORDER BY"))
	$countsql = substr($countsql,0,strpos($countsql,"ORDER BY"));

	$db = &GetADODBConnection();
	$rs = $db->Execute($countsql);
	//echo $countsql."<br>\n";
	$res = $rs->fields["TableCount"];
	return $res;
	}

	function GetPageCount($ItemsPerPage,$NumItems)
	{
	if($ItemsPerPage==0 \|\| $NumItems==0)
	{
	return 1;
	}
	$value = $NumItems/$ItemsPerPage;
	return ceil($value);
	}


	/**
	* @return string
	* @desc Returns database table prefix entered while installation
	*/
	function GetTablePrefix()
	{
	global $g_TablePrefix;

	return $g_TablePrefix;
	}

	function TableHasPrefix($t)
	{
	$pre = GetTablePrefix();

	if(strlen($pre)>0)
	{
	if(substr($t,0,strlen($pre))==$pre)
	{
	return TRUE;
	}
	else
	return FALSE;
	}
	else
	return TRUE;
	}

	function AddTablePrefix($t)
	{
	if(!TableHasPrefix($t))
	$t = GetTablePrefix().$t;

	return $t;
	}

	function ThisDomain()
	{
	global $objConfig, $g_Domain;

	if($objConfig->Get("DomainDetect"))
	{
	$d = $_SERVER['HTTP_HOST'];
	}
	else
	$d = $g_Domain;

	return $d;
	}

	function GetIndexUrl($secure=0)
	{
	global $indexURL, $rootURL, $secureURL;

	switch($secure)
	{
	case 0:
	$ret = $indexURL;
	break;
	case 1:
	$ret = $secureURL."index.php";
	break;
	case 2:
	$ret = $rootURL."index.php";
	break;
	default:
	$ret = $i;
	}
	return $ret;
	}

	function GetLimitSQL($Page,$PerPage)
	{
	if($Page<1)
	$Page=1;

	if(is_numeric($PerPage))
	{
	if($PerPage==0)
	$PerPage = 20;
	$Start = ($Page-1)*$PerPage;
	$limit = "LIMIT ".$Start.",".$PerPage;
	}
	else
	$limit = NULL;
	return $limit;
	}

	function filelist ($currentdir, $startdir=NULL,$ext=NULL)
	{
	global $pathchar;

	//chdir ($currentdir);

	// remember where we started from
	if (!$startdir)
	{
	$startdir = $currentdir;
	}

	$d = @opendir($currentdir);

	$files = array();
	if(!$d)
	return $files;
	//list the files in the dir
	while (false !== ($file = readdir($d)))
	{
	if ($file != ".." && $file != ".")
	{
	if (is_dir($currentdir."/".$file))
	{
	// If $file is a directory take a look inside
	$a = filelist ($currentdir."/".$file, $startdir,$ext);
	if(is_array($a))
	$files = array_merge($files,$a);
	}
	else
	{
	if($ext!=NULL)
	{
	$extstr = stristr($file,".".$ext);
	if(strlen($extstr))
	$files[] = $currentdir."/".$file;
	}
	else
	$files[] = $currentdir.'/'.$file;
	}
	}
	}

	closedir ($d);

	return $files;
	}

	function DecimalToBin($dec,$WordLength=8)
	{
	$bits = array();

	$str = str_pad(decbin($dec),$WordLength,"0",STR_PAD_LEFT);
	for($i=$WordLength;$i>0;$i--)
	{
	$bits[$i-1] = (int)substr($str,$i-1,1);
	}
	return $bits;
	}

	function inp_escape($in, $html_enable=0)
	{
	$out = stripslashes($in);
	$out = str_replace("\n", "\n^br^", $out);
	if($html_enable==0)
	{
	$out=ereg_replace("<","<",$out);
	$out=ereg_replace(">",">",$out);
	$out=ereg_replace("\"",""",$out);
	$out = str_replace("\n^br^", "\n<br />", $out);
	}
	else
	$out = str_replace("\n^br^", "\n", $out);
	$out=addslashes($out);

	return $out;
	}

	function inp_unescape($in)
	{
	$out=stripslashes($in);

	return $out;
	}

	function inp_textarea_unescape($in)
	{
	$out=stripslashes($in);
	$out = str_replace("\n<br />", "\n", $out);
	return $out;
	}

	function HighlightKeywords($Keywords, $html, $OpenTag="", $CloseTag="")
	{
	global $objConfig;

	if(!strlen($OpenTag))
	$OpenTag = "<B>";
	if(!strlen($CloseTag))
	$CloseTag = "</B>";

	$r = preg_split('((>)\|(<))', $html, -1, PREG_SPLIT_DELIM_CAPTURE);

	foreach ($Keywords as $k) {
	for ($i = 0; $i < count($r); $i++) {
	if ($r[$i] == "<") {
	$i++; continue;
	}
	$r[$i] = preg_replace("/($k)/i", "$OpenTag\\1$CloseTag", $r[$i]);
	}
	}
	return join("", $r);
	}

	/*
	function HighlightKeywords($Keywords,$html, $OpenTag="", $CloseTag="")
	{
	global $objConfig;

	if(!strlen($OpenTag))
	$OpenTag = "<B>";
	if(!strlen($CloseTag))
	$CloseTag = "</B>";
	$ret = strip_tags($html);

	foreach ($Keywords as $k)
	{
	if(strlen($k))
	{
	//$html = str_replace("<$k>", ":#:", $html);
	//$html = str_replace("</$k>", ":##:", $html);
	//$html = strip_tags($html);
	if ($html = preg_replace("/($k)/Ui","$OpenTag\\1$CloseTag", $html))
	//if ($html = preg_replace("/(>[^<])($k)([^<]< )/Ui","$OpenTag\\1$CloseTag", $html))
	$ret = $html;
	//$ret = str_replace(":#:", "<$k>", $ret);
	//$ret = str_replace(":##:", "</$k>", $ret);
	}
	}
	return $ret;
	}
	*/
	function ExtractDatePart($part,$datestamp)
	{
	switch($part)
	{
	case "month":
	if($datestamp<=0)
	{
	$ret = "";
	}
	else
	$ret = adodb_date("m",$datestamp);
	break;
	case "day":
	if($datestamp<=0)
	{
	$ret = "";
	}
	else
	$ret = adodb_date("d", $datestamp);
	break;
	case "year":
	if($datestamp<=0)
	{
	$ret = "";
	}
	else
	$ret = adodb_date("Y", $datestamp);
	break;
	case "time_24hr":
	if($datestamp<=0)
	{
	$ret = "";
	}
	else
	$ret = adodb_date("H:i", $datestamp);
	break;
	case "time_12hr":
	if($datestamp<=0)
	{
	$ret = "";
	}
	else
	$ret = adodb_date("g:i a",$datestamp);
	break;
	default:
	$ret = adodb_date($part, $datestamp);
	break;
	}
	return $ret;
	}

	function GetLocalTime($TimeStamp,$TargetZone=NULL)
	{
	if($TargetZone==NULL)
	$TargetZone = $objConfig->Get("Config_Site_Time");
	$server = $objConfig->Get("Config_Server_Time");
	if($TargetZone!=$server)
	{
	$offset = ($server - $TargetZone) * -1;
	$TimeStamp = $TimeStamp + (3600 * $offset);
	}
	return $TimeStamp;
	}

	function _unhtmlentities ($string)
	{
	$trans_tbl = get_html_translation_table (HTML_ENTITIES);
	$trans_tbl = array_flip ($trans_tbl);
	return strtr ($string, $trans_tbl);
	}

	function getLastStr($hay, $need){
	$getLastStr = 0;
	$pos = strpos($hay, $need);
	if (is_int ($pos)){ //this is to decide whether it is "false" or "0"
	while($pos) {
	$getLastStr = $getLastStr + $pos + strlen($need);
	$hay = substr ($hay , $pos + strlen($need));
	$pos = strpos($hay, $need);
	}
	return $getLastStr - strlen($need);
	} else {
	return -1; //if $need wasn´t found it returns "-1" , because it could return "0" if it´s found on position "0".
	}
	}

	function ReplaceSingleTag($tag,$text)
	{
	$tag = strtolower($tag);
	$opentag = '['.$tag;
	$closetag = '[/'.$tag.']';

	if( stristr($text,$opentag) )
	{
	$pos = strpos( strtolower($text), $opentag.' '); // tag has parameters
	if($pos === false)
	{
	$pos = strpos( strtolower($text), $opentag.']');
	}

	$endopen = strpos($text,']',$pos);
	$closepos = strpos( strtolower($text),$closetag,$pos);

	if($closepos)
	{
	$taglength = ($closepos - $endopen) + strlen($closetag);
	$tagText = substr($text,$pos, $closepos + strlen($closetag) - $pos);
	$innerText = substr($text,$endopen+1,$closepos - $endopen-1);
	if($tag=="UL")
	{
	$innerText = str_replace("[*]","<LI>",$innerText);
	}
	$tagText = substr($tagText,1,($endopen - $pos)-1);
	//echo "Matched $tagText <br>\n";
	$tagText = "<".$tagText.">";
	$replace_text = $tagText.$innerText."</".$tag.">";
	$text = substr($text,0,$pos).$replace_text.substr($text,$closepos+strlen($closetag));
	return $text;
	}
	else
	return $text;
	}
	else
	return $text;
	}

	function ReplaceTag($tag,$text)
	{
	$new_text = ReplaceSingleTag($tag,$text);

	while($new_text != $text)
	{
	$text = $new_text;
	$new_text = ReplaceSingleTag($tag,$text);
	}
	return $new_text;
	}

	function ReplaceURL($text)
	{

	// process url bbtags without href parameter
	$text = preg_replace('/\[url\]([^\]]*)\[\/url\]/U', '[url href="$1"]$1[/url]', $text);

	// change bbcode to href's
	while( stristr($text,'[url') )
	{
	$urlpos = strpos( strtolower($text), '[url');
	$endopen = strpos($text,']',$urlpos);
	if($endopen)
	{
	$url = '<a target="_blank"'.substr($text,$urlpos+4,$endopen - ($urlpos+4));
	$url .= '>';
	$url = _unhtmlentities($url);
	$text = substr($text,0,$urlpos).$url.substr($text,$endopen+1);
	}
	}
	$text = str_replace(Array('[/url]','[/URL]'),Array('</a>','</a>'),$text);
	return $text;
	}


	function ReplaceBBCode($text)
	{
	global $objConfig;

	// BBCode: [b], [i], [u], [ul], [font]
	$tags = explode(",",$objConfig->Get("BBTags"));
	for($i = 0; $i < count($tags); $i++)
	{
	$text = ReplaceTag(strtoupper($tags[$i]),$text);
	}

	// BBCode: [url href="xxx"]xxx[/url]
	$text = ReplaceURL($text);

	// BBCode: [code]xxx[/code]
	$text = preg_replace('/\[code[^\]]\](.)\[\/code[^\]]*\]/Ues', 'highlight_string( _unhtmlentities(\'$1\') , true);', $text);

	return $text;
	}

	function GetMinValue($Table,$Field, $Where=NULL)
	{
	$ret = 0;
	$sql = "SELECT min($Field) as val FROM $Table ";
	if(strlen($where))
	$sql .= "WHERE $Where";
	$ado = &GetADODBConnection();
	$rs = $ado->execute($sql);
	if($rs)
	$ret = (int)$rs->fields["val"];
	return $ret;
	}

	function getmicrotime()
	{
	list($usec, $sec) = explode(" ",microtime());
	return ((float)$usec + (float)$sec);
	}

	function SetMissingDataErrors($f)
	{
	global $FormError;

	$count = 0;
	if(is_array($_POST))
	{
	if(is_array($_POST["required"]))
	{
	foreach($_POST["required"] as $r)
	{
	$found = FALSE;
	if(is_array($_FILES))
	{
	if( isset($_FILES[$r]) && $_FILES[$r]['size'] > 0 ) $found = TRUE;
	}

	if(!strlen(trim($_POST[$r])) && !$found)
	{
	$count++;

	if (($r == "dob_day") \|\| ($r == "dob_month") \|\| ($r == "dob_year"))
	$r = "dob";

	$tag = isset($_POST["errors"]) ? $_POST["errors"][$r] : '';
	if(!strlen($tag))
	$tag = "lu_ferror_".$f."_".$r;
	$FormError[$f][$r] = language($tag);
	}
	}
	}
	}
	return $count;
	}

	function makepassword($length=10)
	{
	$pass_length=$length;

	$p1=array('b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','y','z');
	$p2=array('a','e','i','o','u');
	$p3=array('1','2','3','4','5','6','7','8','9');
	$p4=array('(','&',')',';','%'); // if you need real strong stuff

	// how much elements in the array
	// can be done with a array count but counting once here is faster

	$s1=21;// this is the count of $p1
	$s2=5; // this is the count of $p2
	$s3=9; // this is the count of $p3
	$s4=5; // this is the count of $p4

	// possible readable combinations

	$c1='121'; // will be like 'bab'
	$c2='212'; // will be like 'aba'
	$c3='12'; // will be like 'ab'
	$c4='3'; // will be just a number '1 to 9' if you dont like number delete the 3
	// $c5='4'; // uncomment to active the strong stuff

	$comb='4'; // the amount of combinations you made above (and did not comment out)



	for ($p=0;$p<$pass_length;)
	{
	mt_srand((double)microtime()*1000000);
	$strpart=mt_rand(1,$comb);
	// checking if the stringpart is not the same as the previous one
	if($strpart<>$previous)
	{
	$pass_structure.=${'c'.$strpart};

	// shortcutting the loop a bit
	$p=$p+strlen(${'c'.$strpart});
	}
	$previous=$strpart;
	}


	// generating the password from the structure defined in $pass_structure
	for ($g=0;$g<strlen($pass_structure);$g++)
	{
	mt_srand((double)microtime()*1000000);
	$sel=substr($pass_structure,$g,1);
	$pass.=${'p'.$sel}[mt_rand(0,-1+${'s'.$sel})];

	}
	return $pass;
	}

	function LogEntry($text,$writefile=FALSE)
	{
	global $g_LogFile,$LogFile, $LogData, $LogLevel, $timestart;

	static $last;

	if(strlen($g_LogFile))
	{
	$el = str_pad(getmicrotime()- $timestart,10," ");
	if($last>0)
	$elapsed = getmicrotime() - $last;

	if(strlen($el)>10)
	$el = substr($el,0,10);
	$indent = str_repeat(" ",$LogLevel);
	$text = str_pad($text,$LogLevel,"==",STR_PAD_LEFT);
	$LogData .= "$el:". round($elapsed,6).":$indent $text";
	$last = getmicrotime();
	if($writefile==TRUE && is_writable($g_LogFile))
	{
	if(!$LogFile)
	{
	if(file_exists($g_LogFile))
	unlink($g_LogFile);
	$LogFile=@fopen($g_LogFile,"w");
	}
	if($LogFile)
	{
	fputs($LogFile,$LogData);
	}
	}
	}
	}

	function ValidEmail($email)
	{
	if (eregi("^[a-z0-9]+([-_\.]?[a-z0-9])+@[a-z0-9]+([-_\.]?[a-z0-9])+\.[a-z]{2,4}", $email))
	{
	return TRUE;
	}
	else
	{
	return FALSE;
	}
	}

	function language($phrase,$LangId=0)
	{
	global $objSession, $objLanguageCache, $objLanguages;

	if($LangId==0)
	$LangId = $objSession->Get("Language");

	if($LangId==0)
	$LangId = $objLanguages->GetPrimary();

	$translation = $objLanguageCache->GetTranslation($phrase,$LangId);

	return $translation;
	}

	function admin_language($phrase,$lang=0,$LinkMissing=FALSE)
	{
	global $objSession, $objLanguageCache, $objLanguages;

	//echo "Language passed: $lang<br>";

	if($lang==0)
	$lang = $objSession->Get("Language");

	//echo "Language from session: $lang<br>";

	if($lang==0)
	$lang = $objLanguages->GetPrimary();

	//echo "Language after primary: $lang<br>";
	//echo "Phrase: $phrase<br>";
	$translation = $objLanguageCache->GetTranslation($phrase,$lang);
	if($LinkMissing && substr($translation,0,1)=="!" && substr($translation,-1)=="!")
	{
	$res = "<A href=\"javascript:OpenPhraseEditor('&direct=1&label=$phrase'); \">$translation</A>";
	return $res;
	}
	else
	return $translation;
	}

	function prompt_language($phrase,$lang=0)
	{
	return admin_language($phrase,$lang,TRUE);
	}

	function GetPrimaryTranslation($Phrase)
	{
	global $objLanguages;

	$l = $objLanguages->GetPrimary();
	return language($Phrase,$l);
	}

	function CategoryNameCount($ParentId,$Name)
	{
	$cat_table = GetTablePrefix()."Category";
	$sql = "SELECT Name from $cat_table WHERE ParentId=$ParentId AND ";
	$sql .="(Name LIKE '".addslashes($Name)."' OR Name LIKE 'Copy of ".addslashes($Name)."' OR Name LIKE 'Copy % of ".addslashes($Name)."')";

	$ado = &GetADODBConnection();
	$rs = $ado->Execute($sql);
	$ret = array();
	while($rs && !$rs->EOF)
	{
	$ret[] = $rs->fields["Name"];
	$rs->MoveNext();
	}
	return $ret;
	}

	function CategoryItemNameCount($CategoryId,$Table,$Field,$Name)
	{
	$cat_table = GetTablePrefix()."CategoryItems";
	$sql = "SELECT $Field FROM $Table INNER JOIN $cat_table ON ($Table.ResourceId=$cat_table.ItemResourceId) ";
	$sql .=" WHERE ($Field LIKE 'Copy % of $Name' OR $Field LIKE '$Name' OR $Field LIKE 'Copy of $Name') AND CategoryId=$CategoryId";
	//echo $sql."<br>\n ";
	$ado = &GetADODBConnection();
	$rs = $ado->Execute($sql);
	$ret = array();
	while($rs && !$rs->EOF)
	{
	$ret[] = $rs->fields[$Field];
	$rs->MoveNext();
	}
	return $ret;
	}

	function &GetItemCollection($ItemName)
	{
	global $objItemTypes;

	if(is_numeric($ItemName))
	{
	$item = $objItemTypes->GetItem($ItemName);
	}
	else
	$item = $objItemTypes->GetTypeByName($ItemName);
	if(is_object($item))
	{
	$module = $item->Get("Module");
	$prefix = ModuleTagPrefix($module);
	$func = $prefix."_ItemCollection";
	if(function_exists($func))
	{
	$var =& $func();
	}
	}
	return $var;
	}


	function UpdateCategoryCount($ItemTypeName=0,$ListType=NULL)
	{
	global $objCountCache, $objItemTypes;

	if(is_numeric($ItemTypeName))
	$item = $objItemTypes->GetItem($ItemTypeName);
	else
	$item = $objItemTypes->GetTypeByName($ItemTypeName);

	if(is_object($item))
	{
	$ItemType = $item->Get("ItemType");

	$sql = "DELETE FROM ".$objCountCache->SourceTable." WHERE ItemType=$ItemType";
	if( is_numeric($ListType) ) $sql .= " AND ListType=$ListType";
	$objCountCache->adodbConnection->Execute($sql);
	}
	}

	function UpdateModifiedCategoryCount($ItemTypeName,$CatId=NULL,$Modifier=0,$ExtraId=NULL)
	{
	}

	function UpdateGroupCategoryCount($ItemTypeName,$CatId=NULL,$Modifier=0,$GroupId=NULL)
	{
	}

	function GetTagCache($module,$tag,$attribs,$env)
	{
	global $objSystemCache, $objSession, $objConfig;

	if($objConfig->Get("SystemTagCache"))
	{
	$name = $tag;
	if(is_array($attribs))
	{
	foreach($attribs as $n => $val)
	{
	$name .= "-".$val;
	}
	}
	$CachedValue = $objSystemCache->GetContextValue($name,$module,$env, $objSession->Get("GroupList"));
	}
	else
	$CachedValue="";
	return $CachedValue;
	}

	function SaveTagCache($module, $tag, $attribs, $env, $newvalue)
	{
	global $objSystemCache, $objSession, $objConfig;

	if($objConfig->Get("SystemTagCache"))
	{
	$name = $tag;
	if(is_array($attribs))
	{
	foreach($attribs as $a => $val)
	{
	$name .= "-".$val;
	}
	}
	$objSystemCache->EditCacheItem($name,$newvalue,$module,0,$env,$objSession->Get("GroupList"));
	}
	}

	function DeleteTagCache($name,$extraparams, $env="")
	{
	global $objSystemCache, $objConfig;

	if($objConfig->Get("SystemTagCache"))
	{
	$where = "Name LIKE '$name%".$extraparams."'";
	if(strlen($env))
	$where .= " AND Context LIKE $env";
	$objSystemCache->DeleteCachedItem($where);
	}
	}

	function ParseTagLibrary()
	{
	$objTagList = new clsTagList();
	$objTagList->ParseInportalTags();
	unset($objTagList);
	}

	function GetDateFormat($LangId=0)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId= $objLanguages->GetPrimary();
	$l = $objLanguages->GetItem($LangId);
	if(is_object($l))
	{
	$fmt = $l->Get("DateFormat");
	}
	else
	$fmt = "m-d-Y";

	if(isset($GLOBALS['FrontEnd'])&&$GLOBALS['FrontEnd'])
	return $fmt;
	return preg_replace('/y+/i','Y',$fmt);
	}

	function GetTimeFormat($LangId=0)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId= $objLanguages->GetPrimary();
	$l = $objLanguages->GetItem($LangId);
	if(is_object($l))
	{
	$fmt = $l->Get("TimeFormat");
	}
	else
	$fmt = "H:i:s";
	return $fmt;
	}

	function LangDate($TimeStamp=NULL,$LangId=0)
	{
	$fmt = GetDateFormat($LangId);
	$ret = adodb_date($fmt,$TimeStamp);
	return $ret;
	}

	function LangTime($TimeStamp=NULL,$LangId=0)
	{
	$fmt = GetTimeFormat($LangId);
	$ret = adodb_date($fmt,$TimeStamp);
	return $ret;
	}

	function LangNumber($Num,$DecPlaces=NULL,$LangId=0)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId= $objLanguages->GetPrimary();
	$l = $objLanguages->GetItem($LangId);
	if(is_object($l))
	{
	$ret = number_format($Num,$DecPlaces,$l->Get("DecimalPoint"),$l->Get("ThousandSep"));
	}
	else
	$ret = $num;

	return $ret;
	}

	function replacePngTags($x, $spacer="images/spacer.gif")
	{
	global $rootURL,$pathtoroot;

	// make sure that we are only replacing for the Windows versions of Internet
	// Explorer 5+, and not Opera identified as MSIE
	$msie='/msie\s([5-9])\.?[0-9].(win)/i';
	$opera='/opera\s+[0-9]+/i';
	if(!isset($_SERVER['HTTP_USER_AGENT']) \|\|
	!preg_match($msie,$_SERVER['HTTP_USER_AGENT']) \|\|
	preg_match($opera,$_SERVER['HTTP_USER_AGENT']))
	return $x;

	// find all the png images in backgrounds
	preg_match_all('/background-image:\surl$\'(.\.png)\'$;/Uis',$x,$background);
	for($i=0;$i<count($background[0]);$i++){
	// simply replace:
	// "background-image: url('image.png');"
	// with:
	// "filter:progid:DXImageTransform.Microsoft.AlphaImageLoader(
	// enabled=true, sizingMethod=scale src='image.png');"
	// haven't tested to see if background-repeat styles work...
	$x=str_replace($background[0][$i],'filter:progid:DXImageTransform.'.
	'Microsoft.AlphaImageLoader(enabled=true, sizingMethod=scale'.
	' src=\''.$background[1][$i].'\');',$x);
	}

	// OK, time to find all the IMG tags with ".png" in them
	preg_match_all('/(<img.\.png.>\|<input.type=([\'"])image\\2.\.png.*>)/Uis',$x,$images);
	while(list($imgnum,$v)=@each($images[0])){
	$original=$v;
	$atts=''; $width=0; $height=0;
	// If the size is defined by styles, find
	preg_match_all('/style=".(width: ([0-9]+))px.'.
	'(height: ([0-9]+))px.*"/Ui',$v,$arr2);
	if(is_array($arr2) && count($arr2[0])){
	// size was defined by styles, get values
	$width=$arr2[2][0];
	$height=$arr2[4][0];
	}
	// size was not defined by styles, get values
	preg_match_all('/width=\"?([0-9]+)\"?/i',$v,$arr2);
	if(is_array($arr2) && count($arr2[0])){
	$width=$arr2[1][0];
	}
	preg_match_all('/height=\"?([0-9]+)\"?/i',$v,$arr2);
	if(is_array($arr2) && count($arr2[0])){
	$height=$arr2[1][0];
	}
	preg_match_all('/src=\"([^\"]+\.png)\"/i',$v,$arr2);
	if(isset($arr2[1][0]) && !empty($arr2[1][0]))
	$image=$arr2[1][0];
	else
	$image=NULL;

	// We do this so that we can put our spacer.gif image in the same
	// directory as the image
	$tmp=split('[\\/]',$image);
	array_pop($tmp);
	$image_path=join('/',$tmp);
	if(substr($image,0,strlen($rootURL))==$rootURL)
	{
	$path = str_replace($rootURL,$pathtoroot,$image);
	}
	else
	{
	$path = $pathtoroot."themes/telestial/$image";
	}
	// echo "Sizing $path.. <br>\n";
	// echo "Full Tag: ".htmlentities($image)."<br>\n";
	//if(!$height \|\| !$width)
	//{

	$g = imagecreatefrompng($path);
	if($g)
	{
	$height = imagesy($g);
	$width = imagesx($g);
	}
	//}
	if(strlen($image_path)) $image_path.='/';

	// end quote is already supplied by originial src attribute
	$replace_src_with=$spacer.'" style="width: '.$width.
	'px; height: '.$height.'px; filter: progid:DXImageTransform.'.
	'Microsoft.AlphaImageLoader(src=\''.$image.'\', sizingMethod='.
	'\'scale\')';

	// now create the new tag from the old
	$new_tag=str_replace($image,$replace_src_with,$original);

	// now place the new tag into the content
	$x=str_replace($original,$new_tag,$x);
	}
	return $x;
	}

	function print_pre($str)
	{
	// no comments here :)
	echo '<pre>'.print_r($str, true).'</pre>';
	}

	function GetOptions($field) // by Alex
	{
	// get dropdown values from custom field
	$tmp =& new clsCustomField();

	$tmp->LoadFromDatabase($field, 'FieldName');
	$tmp_values = $tmp->Get('ValueList');
	unset($tmp);
	$tmp_values = explode(',', $tmp_values);

	foreach($tmp_values as $mixed)
	{
	$elem = explode('=', trim($mixed));
	$ret[ $elem[0] ] = $elem[1];
	}
	return $ret;
	}

	function ResetPage($module_prefix, $page_variable = 'p')
	{
	// resets page in specific module when category is changed
	global $objSession;
	if( !is_object($objSession) ) // when changing pages session doesn't exist -> InPortal BUG
	{
	global $var_list, $SessionQueryString, $FrontEnd;
	//if(!$var_list["sid"]) $var_list["sid"] = $_COOKIE["sid"];
	$objSession = new clsUserSession($var_list["sid"],($SessionQueryString && $FrontEnd==1));
	}
	//echo "SID_RESET: ".$GLOBALS['var_list']["sid"].'(COOKIE_SID: '.$_COOKIE["sid"].')<br>';
	$last_cat = $objSession->GetVariable('last_category');
	$prev_cat = $objSession->GetVariable('prev_category');
	//echo "Resetting Page [$prev_cat] -> [$last_cat]<br>";

	if($prev_cat != $last_cat) $GLOBALS[$module_prefix.'_var_list'][$page_variable] = 1;
	}

	if( !function_exists('GetVar') )
	{
	/**
	* @return string
	* @param string $name
	* @param bool $post_priority
	* @desc Get's variable from http query
	*/
	function GetVar($name, $post_priority = false)
	{
	if(!$post_priority) // follow gpc_order in php.ini
	return isset($_REQUEST[$name]) ? $_REQUEST[$name] : false;
	else // get variable from post 1stly if not found then from get
	return isset($_POST[$name]) && $_POST[$name] !== false ? $_POST[$name] : ( isset($_GET[$name]) && $_GET[$name] ? $_GET[$name] : false );
	}
	}

	function SetVar($VarName, $VarValue)
	{
	$_REQUEST[$VarName] = $VarValue;
	$_POST[$VarName] = $VarValue;
	}

	function PassVar(&$source)
	{
	// source array + any count of key names in passed array
	$params = func_get_args();
	array_shift($params);

	if( count($params) )
	{
	$ret = Array();
	foreach($params as $var_name)
	if( isset($source[$var_name]) )
	$ret[] = $var_name.'='.$source[$var_name];
	$ret = '&'.implode('&', $ret);
	}
	return $ret;
	}

	function GetSubmitVariable(&$array, $postfix)
	{
	// gets edit status of module
	// used in case if some modules share
	// common action parsed by kernel parser,
	// but each module uses own EditStatus variable

	$modules = Array('In-Link' => 'Link', 'In-News' => 'News', 'In-Bulletin' => 'Topic');
	foreach($modules as $module => $prefix)
	if( isset($array[$prefix.$postfix]) )
	return Array('Module' => $module, 'variable' => $array[$prefix.$postfix]);
	return false;
	}

	function GetModuleByAction()
	{
	$prefix2module = Array('m' => 'In-Portal', 'l' => 'In-Link', 'n' => 'In-News', 'bb' => 'In-Bulletin');
	$action = GetVar('Action');
	if($action)
	{
	$module_prefix = explode('_', $action);
	return $prefix2module[ $module_prefix[0] ];
	}
	else
	return false;
	}

	function dir_size($dir) {
	// calculates folder size based on filesizes inside it (recursively)
	$totalsize=0;
	if ($dirstream = @opendir($dir)) {
	while (false !== ($filename = readdir($dirstream))) {
	if ($filename!="." && $filename!="..")
	{
	if (is_file($dir."/".$filename))
	$totalsize+=filesize($dir."/".$filename);

	if (is_dir($dir."/".$filename))
	$totalsize+=dir_size($dir."/".$filename);
	}
	}
	}
	closedir($dirstream);
	return $totalsize;
	}

	function size($bytes) {
	// shows formatted file/directory size
	$types = Array("la_bytes","la_kilobytes","la_megabytes","la_gigabytes","la_terabytes");
	$current = 0;
	while ($bytes > 1024) {
	$current++;
	$bytes /= 1024;
	}
	return round($bytes,2)." ".language($types[$current]);
	}

	function echod($str)
	{
	// echo debug output
	echo str_replace( Array('[',']'), Array('[<b>', '</b>]'), $str).'<br>';
	}


	function PrepareParams($source, $to_lower, $mapping)
	{
	// prepare array with form values to use with item
	$result = Array();
	foreach($to_lower as $field)
	$result[ $field ] = $source[ strtolower($field) ];

	if( is_array($mapping) )
	{
	foreach($mapping as $field_from => $field_to)
	$result[$field_to] = $source[$field_from];
	}

	return $result;
	}

	function GetELT($field, $phrases = Array())
	{
	// returns FieldOptions equivalent in In-Portal
	$ret = Array();
	foreach($phrases as $phrase)
	$ret[] = admin_language($phrase);
	$ret = "'".implode("','", $ret)."'";
	return 'ELT('.$field.','.$ret.')';
	}

	function GetModuleImgPath($module)
	{
	global $rootURL, $admin;
	return $rootURL.$module.'/'.$admin.'/images';
	}

	function ActionPostProcess($StatusField, $ListClass, $ListObjectName = '', $IDField = null)
	{
	// each action postprocessing stuff from admin
	if( !isset($_REQUEST[$StatusField]) ) return false;

	$list =& $GLOBALS[$ListObjectName];
	if( !is_object($list) ) $list = new $ListClass();
	$SFValue = $_REQUEST[$StatusField]; // status field value
	switch($SFValue)
	{
	case 1: // User hit "Save" button
	$list->CopyFromEditTable($IDField);
	break;
	case 2: // User hit "Cancel" button
	$list->PurgeEditTable($IDField);
	break;
	}
	if( function_exists('SpecificProcessing') ) SpecificProcessing($StatusField, $SFValue);
	if($SFValue == 1 \|\| $SFValue == 2) $list->Clear();
	}

	function GetElem(&$array, $index)
	{
	// returns array element by index if
	// such index exists
	return isset($array[$index]) ? $array[$index] : false;
	}

	function MakeHTMLTag($element, $attrib_prefix)
	{
	$result = Array();
	$ap_length = strlen($attrib_prefix);
	foreach($element->attributes as $attib_name => $attr_value)
	if( substr($attib_name, $ap_length) == $ap_length )
	$result[] = substr($attib_name, $ap_length, strlen($attib_name)).'="'.$attr_value.'"';
	return count($result) ? implode(' ', $result) : false;
	}

	function GetImportScripts()
	{
	// return currently installed import scripts
	static $import_scripts = Array();
	if( count($import_scripts) == 0 )
	{
	$sql = 'SELECT * FROM '.GetTablePrefix().'ImportScripts ORDER BY is_id';
	$db =&GetADODBConnection();
	$rs = $db->Execute($sql);
	if( $rs && $rs->RecordCount() > 0 )
	{
	while(!$rs->EOF)
	{
	$rec =& $rs->fields;
	$import_scripts[] = Array( 'label' => $rec['is_label'], 'url' => $rec['is_script'],
	'enabled' => $rec['is_enabled'], 'field_prefix' => $rec['is_field_prefix'],
	'id' => $rec['is_string_id'], 'required_fields' => $rec['is_requred_fields'],
	'module' => strtolower($rec['is_Module']) );
	$rs->MoveNext();
	}
	}
	else
	{
	$import_scripts = Array();
	}
	}
	return $import_scripts;
	}

	function GetImportScript($id)
	{
	$scripts = GetImportScripts();
	return isset($scripts[$id]) ? $scripts[$id] : false;
	}
	function GetNextTemplate($current_template)
	{
	// used on front, returns next template to make
	// redirect to
	$dest = GetVar('dest', true);
	if(!$dest) $dest = GetVar('DestTemplate', true);
	return $dest ? $dest : $current_template;
	}


	// functions for dealign with enviroment variable construction
	function GenerateModuleEnv($prefix, $var_list)
	{
	// globalize module varible arrays
	$main =& $GLOBALS[$prefix.'_var_list'];
	$update =& $GLOBALS[$prefix.'_var_list_update'];
	//echo "VAR: [$main]; VAR_UPDATE: [$update]<br>";

	// ensure that we have no empty values in enviroment variable
	foreach($update as $vl_key => $vl_value)
	if(!$vl_value) $update[$vl_key] = '0'; // unset($update[$vl_key]);

	// if update var count is zero, then do nothing
	if(count($update) == 0) return '';

	foreach($main as $vl_key => $vl_value)
	if(!$vl_value) $main[$vl_key] = '0'; // unset($main[$vl_key]);

	$ret = Array();
	foreach($var_list as $var_name)
	$ret[] = GetEnvVar($prefix, $var_name);

	return ':'.$prefix.implode('-',$ret);
	}

	function GetEnvVar($prefix, $name)
	{
	// get variable from template variable's list
	// (used in module parsers to build env string)
	$main =& $GLOBALS[$prefix.'_var_list'];
	$update =& $GLOBALS[$prefix.'_var_list_update'];

	return isset($update[$name]) ? $update[$name] : ( isset($main[$name]) ? $main[$name] : '');
	}

	/**
	* @return int
	* @desc Checks for debug mode
	*/
	function IsDebugMode()
	{
	return defined('DEBUG_MODE') && constant('DEBUG_MODE') == 1 ? 1 : 0;
	}


	?>

	Property changes on: trunk/globals.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.39
	\ No newline at end of property
	+1.40
	\ No newline at end of property

in-portalNo OneTemporaryActions

File Metadata

in-portalView Options

Event Timeline

in-portal
No OneTemporary
Actions

in-portal
View Options