in-portal
No OneTemporary
Actions

Subscribers

None

File Metadata

Created: Sat, Feb 1, 10:51 PM

in-portal
View Options

This file is larger than 256 KB, so syntax highlighting was skipped.

	Index: trunk/kernel/action.php
	===================================================================
	--- trunk/kernel/action.php (revision 560)
	+++ trunk/kernel/action.php (revision 561)
	@@ -1,2329 +1,2422 @@
	<?php

	$ro_perm = $objSession->HasSystemPermission("SYSTEM_ACCESS.READONLY");

	$AdminLogin = admin_login();
	if( defined('DEBUG_ACTIONS') && (DEBUG_ACTIONS & KERNEL_ACTIONS) == KERNEL_ACTIONS && $AdminLogin )
	{
	if($Action) echo '<span class="debug_text">Kernel Action [<b>'.$Action."</b>]</span><br>\n";
	}

	if( defined('DEBUG_ACTIONS') && (DEBUG_ACTIONS & SHOW_REQUEST) == SHOW_REQUEST && $AdminLogin )
	{
	// don't show debug output in tree & header of admin & while logging in
	$script = basename($_SERVER['PHP_SELF']);
	$skip_debug = Array('index.php','tree.php','head.php','credits.php');
	if( !in_array($script, $skip_debug) )
	{
	echo "ScriptName: <b>$script</b> (<b>".dirname($_SERVER['PHP_SELF'])."</b>)<br><br>";
	$div_height = (count($_REQUEST)+1)*26;
	if($div_height > 300) $div_height = 300;
	echo '<div class="debug_layer" style="height: '.$div_height.'px;">';
	echo '<table border="0" cellspacing="0" cellpadding="4" class="debug_table">';
	echo '<thead style="font-weight: bold;"><td>Src</td><td>Name</td><td>Value</td></thead>';

	foreach($_REQUEST as $key => $value)
	{
	if( !is_array($value) && trim($value) == '' ) $value = ' ';
	$src = isset($_GET[$key]) ? 'GE' : (isset($_POST[$key]) ? 'PO' : (isset($_COOKIE[$key]) ? 'CO' : '?') );
	echo '<tr><td>'.$src.'</td><td>'.$key.'</td><td>'.print_r($value, true).'</td></tr>';
	}
	echo '</table></div>';
	echo '<a href="javascript:self.location.reload();">Reload Frame</a><br>';
	}
	unset($script, $skip_debug);
	}

	switch($Action)
	{
	case "m_save_import_config":
	// Set New Import Category
	if( GetVar('categorylist', true) !== false )
	{
	$cat_id = $_POST['categorylist'];
	$objSession->SetVariable('categoryid', $cat_id);

	if($cat_id > 0)
	{
	$cat = $objCatList->GetByResource($cat_id);
	if(is_object($cat))
	{
	$navbar = $cat->Get('CachedNavbar');
	$objSession->SetVariable('catnavbar', $navbar);
	$objSession->SetVariable('import_category_id', $cat->UniqueId() );
	}
	}elseif($cat_id == 0)
	{
	global $objConfig;
	$objSession->SetVariable('import_category_id', 0);
	}

	$objSession->SetVariable('categorylist', $_POST['categorylist']);
	}

	// Set Import Admin Group
	if( GetVar('grouplist1', true) )
	{
	$group_id = $_POST['grouplist1'];
	$group = $objGroups->GetItemByField('ResourceId',$group_id);
	$objSession->SetVariable('user_admin_names', $group->Get('Name'));
	$objSession->SetVariable('user_admin_values', $group->Get('GroupId'));
	$objSession->SetVariable('grouplist1', $_POST['grouplist1']);
	}

	// Set Import User Group
	if( GetVar('grouplist2', true) )
	{
	$group_id = $_POST['grouplist2'];
	$group = $objGroups->GetItemByField('ResourceId', $group_id);
	$objSession->SetVariable('user_regular_names', $group->Get('Name'));
	$objSession->SetVariable('user_regular_values', $group->Get('GroupId'));
	$objSession->SetVariable('grouplist2', $_POST['grouplist2']);
	}
	break;

	case "m_add_user":
	$dupe_user = '';
	//$user_pending = (int)$_POST["user_pending"];
	//$user_enabled = (int)$_POST["user_enabled"];
	$CreatedOn = DateTimestamp($_POST["user_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["user_time"]);

	$dob = DateTimestamp($_POST["user_dob"],GetDateFormat());

	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");

	if(strlen($_POST["user_login"]))
	$id = $objUsers->GetUserId($_POST["user_login"]);
	else
	$dob = 0;

	if($id)
	{
	$lvErrorString = language('la_error_duplicate_username');
	$dupe_user = $_POST["user_login"];
	$_POST["user_login"] = '';
	}

	$password = md5($_POST["password"]);
	$u = $objEditItems->Add_User($_POST["user_login"], $password,
	$_POST["user_email"], $CreatedOn, $_POST["user_firstname"],
	$_POST["user_lastname"], $_POST["status"],
	$_POST["user_phone"],
	$_POST["user_street"], $_POST["user_city"],
	$_POST["user_state"], $_POST["user_zip"], $_POST["user_country"], $dob);

	$objCustomEdit = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->SetTable('edit');
	$objCustomEdit->LoadResource($u->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(6);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$u->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged) $objCustomEdit->SaveData();
	$objCustomEdit->SetTable('live');


	break;

	case "m_edit_user":
	//$CreatedOn = DateTimestamp($_POST["user_date"],GetDateFormat());
	//$CreatedOn += SecondsSinceMidnight($_POST["user_time"]);
	$dob = DateTimestamp($_POST["user_dob"],GetDateFormat());
	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");
	//$user_pending = (int)$_POST["user_pending"];
	//$user_enabled = (int)$_POST["user_enabled"];
	$UserId = (int)$_POST["user_id"];
	//echo $UserId."<br>\n";
	if(!strlen($_POST["user_login"]))
	$dob = 0;
	if(strlen($_POST["password"]))
	{
	$password = md5($_POST["password"]);
	}
	else
	$password = "";
	$u = $objEditItems->Edit_User($UserId, $_POST["user_login"], $password,
	$_POST["user_email"], $CreatedOn, $_POST["user_firstname"],
	$_POST["user_lastname"], $_POST["status"],
	$_POST["user_phone"],
	$_POST["user_street"], $_POST["user_city"],
	$_POST["user_state"], $_POST["user_zip"], $_POST["user_country"],
	$dob);

	$objCustomEdit = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->SetTable('edit');
	$DataChanged = false;

	$objCustomEdit->LoadResource($u->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(6);

	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	//echo "Saving CF: (".$cvalue->Get("CustomFieldId")." ; ".$u->Get("ResourceId")." ; $value)<br>";
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$u->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}

	if($DataChanged)
	$objCustomEdit->SaveData();
	$objCustomEdit->SetTable('live');
	break;

	case "m_user_primarygroup":
	if($ro_perm) break;
	$users = explode(',', $_POST["userlist"]);
	$GroupResourceId = $_POST['grouplist'];
	$g = $objGroups->GetItemByField("ResourceId", $GroupResourceId);
	$GroupId = $g->UniqueId();

	if( is_array($users) )
	foreach($users as $user_id)
	{
	$u = $objUsers->GetItemByField("ResourceId", $user_id);
	$g->AddUser($u->Get("PortalUserId"), 1);
	}
	break;

	case "m_edit_group":
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$objEditItems->Edit_Group($_POST["group_id"], $_POST["group_name"],$_POST["group_comments"]);
	break;
	case "m_add_group":
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$objEditItems->Add_Group($_POST["group_name"], $_POST["group_comments"],0);
	break;
	case "m_group_sysperm":
	if($ro_perm) break;
	if($_POST["GroupEditStatus"]==0)
	{
	$objSession->ResetSysPermCache();
	$GroupId = $_POST["GroupId"];
	if($GroupId)
	{
	$objEditItems = new clsGroupList();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalGroup");
	$g = $objEditItems->GetItemByField("ResourceId",$GroupId);
	if(is_object($g))
	{

	$PermList = explode(",",$_POST["PermList"]);
	for($i=0;$i<count($PermList);$i++)
	{
	if(@in_array($PermList[$i],$_POST["inherit"]))
	{
	$value = -1;
	}
	else
	{
	$value = 0;
	if(@in_array($PermList[$i],$_POST["permvalue"]))
	$value = 1;
	}
	$g->SetSystemPermission($PermList[$i],$value);
	}
	}
	}
	}
	break;

	case "m_user_sysperm":
	if($ro_perm) break;
	if($_POST["UserEditStatus"]==0)
	{
	$UserId = $_POST["ItemId"];
	if($UserId)
	{
	$objEditItems = new clsUserManager();
	$objEditItems->SourceTable = $objSession->GetEditTable("PortalUser");
	$u = $objEditItems->GetItemByField("ResourceId",$UserId);
	unset($g);
	if(is_object($u))
	{
	$objSession->ResetSysPermCache();
	$g = $u->GetPersonalGroup(FALSE);
	$PermList = explode(",",$_POST["PermList"]);
	for($i=0;$i<count($PermList);$i++)
	{
	if(!@in_array($PermList[$i],$_POST["inherit"]))
	{
	if(!is_object($g))
	$g = $u->GetPersonalGroup(TRUE);

	$value = 0;
	if(is_array($_POST["permvalue"]))
	{
	if(in_array($PermList[$i],$_POST["permvalue"]))
	$value =1;
	$g->SetSystemPermission($PermList[$i],$value);
	}
	else {
	$g->SetSystemPermission($PermList[$i], 0);
	}
	}
	else
	{
	if(is_object($g))
	$g->SetSystemPermission($PermList[$i],-1);
	}
	}
	}
	}
	}
	break;

	case "m_approve_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	{
	$user = $objUsers->GetItemByField("ResourceId",$userid);
	$user->Approve();
	}
	$objUsers->Clear();
	break;

	case "m_deny_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	{
	$user = $objUsers->GetItemByField("ResourceId",$userid);
	$user->Deny();
	}
	$objUsers->Clear();
	break;

	case "m_delete_user":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $userid)
	$objUsers->Delete_User($userid);
	break;

	case "m_delete_group":
	if($ro_perm) break;
	foreach($_POST["itemlist"] as $groupid)
	{
	$objGroups->Delete_Group($groupid);
	}
	break;

	case "m_user_assign": // not sure if action is used anywhere
	if($ro_perm) break;
	$useridlist = implode("-", $userlist);
	$objSession->SetUserStatus($useridlist, "g_usergroup_status");
	$g_usergroup_status = $useridlist;
	break;

	case "m_group_assign": // not sure if action is used anywhere
	if($ro_perm) break;
	foreach($grouplist as $group) $objGroups->Add_Users_To_Group($group);
	break;

	case "m_remove_group":
	if($ro_perm) break;
	$adodbConnection = &GetADODBConnection();
	$adodbConnection->Execute("DELETE FROM UserGroup where UserId='$UserId' AND GroupId='$GroupId'");
	break;

	case "m_SetVariable":
	$objSession->SetPersistantVariable($_POST["fieldname"], $_POST["varvalue"]);
	break;

	case "m_SetSessionVariable":
	$objSession->SetVariable($_POST["fieldname"], $_POST["varvalue"]);
	//echo "Setting $fieldname to $varvalue<br>\n";
	if($_POST["fieldname"]=="SearchType")
	$objSession->SetVariable("SearchWord","");
	break;

	case "m_edit_permissions":
	if($ro_perm) break;

	if($_POST["CatEditStatus"] != -1)
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	$GroupId = $_POST["GroupId"];
	$CatId = $_POST["CategoryId"];
	$Module = $_POST["Module"];
	$ado = &GetADODBConnection();
	$sql = "SELECT * FROM ".GetTablePrefix()."PermissionConfig WHERE ModuleId='$Module'";
	$rs = $ado->Execute($sql);
	$PermNames = array();
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$PermNames[] = $data["PermissionName"];
	$rs->MoveNext();
	}

	$inherit = array();
	if(is_array($_POST["inherit"]))
	{
	foreach($_POST["inherit"] as $perm)
	{
	$inherit[$perm] = 1;
	}
	}
	$access = array();
	if(is_array($_POST["permvalue"]))
	{
	foreach($_POST["permvalue"] as $perm)
	{
	$access[$perm] = 1;
	}
	}
	$objPermList = new clsPermList($CatId,$GroupId);
	$objPermList->LoadCategory($CatId);

	for($i=0;$i<count($PermNames);$i++)
	{
	if(!array_key_exists($PermNames[$i],$inherit))
	{
	$PermValue = (int)$access[$PermNames[$i]];

	$Perm = $objPermList->GetPermByName($PermNames[$i]);
	if($Perm)
	{
	$Id = $Perm->Get("PermissionId");
	//echo "Editing $Id<br>\n";
	$objPermList->Edit_Permission($Id,$CatId,$GroupId,$PermNames[$i],$PermValue,0);
	}
	else
	{
	//echo "Adding ".$PermNames[$i];
	$objPermList->Add_Permission($CatId,$GroupId,$PermNames[$i],$PermValue,0);
	}
	}
	else
	{
	$Perm = $objPermList->GetPermByName($PermNames[$i]);
	if($Perm)
	{
	$Id = $Perm->Get("PermissionId");
	$objPermList->Delete_Permission($Id);
	}
	}
	}
	//$c = $objCatList->GetItem($CatId);
	//$glist = $objGroups->GetAllGroupList();
	//$ViewList = $objPermList->GetGroupPermList($c,"CATEGORY.VIEW",$glist );
	//$c->SetViewPerms("CATEGORY.VIEW",$ViewList,$glist);
	//$c->Update();
	}
	break;
	case "m_perm_delete_group":
	if($ro_perm) break;
	$ado = &GetADODBConnection();
	$CatId = $_POST["CategoryId"];
	foreach($_POST["itemlist"] as $groupid)
	{
	$g = $objGroups->GetItemByField("ResourceId",$groupid);
	if(is_object($g))
	{
	$sql = "DELETE FROM ".GetTablePrefix()."Permissions WHERE CatId=$CatId AND GroupId=".$g->Get("GroupId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	}
	break;

	case "m_user_addto_group":
	if($ro_perm) break;
	$user = $_POST["UserId"];
	if(is_numeric($user))
	{
	if(strlen($_POST["grouplist"]))
	{
	$groups = explode(",",$_POST["grouplist"]);
	if(is_array($groups))
	{
	for($i=0; $i<count($groups);$i++)
	{
	$g = $objGroups->GetItemByField("ResourceId",$groups[$i]);
	$g->AddUser($user);
	}
	}
	else
	{
	$g = $objGroups->GetItem($groups);
	$g->AddUser($user);
	}
	}
	}
	break;

	case "m_group_add_user":
	if($ro_perm) break;
	$group = $_POST["GroupId"];
	$EditGroups = new clsGroupList();
	$EditGroups->SourceTable = $objSession->GetEditTable($objGroups->SourceTable);
	$g = $EditGroups->GetItem($group);
	// echo "Group: $group <br>\n";
	if(is_numeric($group))
	{
	$users = explode(",",$_POST["userlist"]);
	foreach($users as $userid)
	{
	$u = $objUsers->GetItemByField("ResourceId",$userid);
	$g->AddUser($u->Get("PortalUserId"));
	}
	}

	break;
	case "m_group_removeuser":
	if($ro_perm) break;
	$group = $_POST["GroupId"];
	$g = $objGroups->GetItem($group);
	if($group>0)
	{
	foreach($_POST["itemlist"] as $user_id)
	{
	$u = $objUsers->GetItemByField("ResourceId",$user_id);
	$g->DeleteUser($u->Get("PortalUserId"));
	}
	}
	break;
	case "m_user_removegroup":
	if($ro_perm) break;
	$user = $_POST["UserId"];
	if($user>0)
	{
	foreach($_POST["itemlist"] as $groupid)
	{
	$g = $objGroups->GetItem($groupid);
	$g->DeleteUser($user);
	}
	}
	break;
	case "m_sendmail":
	if($ro_perm) break;
	$idlist = explode(",",$_POST["idlist"]);
	$html = (int)$_POST["html_enable"];
	$body = inp_escape($_POST["email_body"],$html);
	$subject = inp_escape($_POST["email_body"],$html);
	$Email = new clsEmailMessage();
	$Email->Set("Subject",$subject);
	$Email->Set("Template",$body);
	if($html)
	$Email->Set("MessageType","HTML");
	if(count($idlist)>0)
	{
	switch($_POST["IdType"])
	{
	case "group":
	foreach($idlist as $id)
	$Email->SendToGroup($id);
	break;
	case "user":
	foreach($idlist as $id)
	$Email->SendToUser($id);
	break;
	}/switch/
	}
	break;

	case "m_item_recount":
	if($ro_perm) break;
	RunDown($m_var_list["cat"],"UpdateCacheCounts");
	break;

	case "m_cat_delete":
	if($ro_perm) break;
	if($objSession->HasCatPermission("CATEGORY.DELETE",$objCatList->CurrentCategoryID()))
	{
	if(isset($_POST["catlist"]))
	{
	if(is_array($_POST["catlist"]))
	foreach($_POST["catlist"] as $catid)
	{
	$objCatList->Delete_Category($catid);

	}
	}
	}
	break;
	case "m_cat_cut":
	if($ro_perm) break;
	if(isset($_POST["catlist"]))
	{
	if($objSession->HasCatPermission("CATEGORY.DELETE",$catid))
	{
	$objCatList->CopyToClipboard("CUT","CategoryId",$_POST["catlist"]);
	}
	else
	$objCatList->CopyToClipboard("COPY","CategoryId",$_POST["catlist"]);
	}
	break;

	case "m_cat_copy":
	if($ro_perm) break;
	if(isset($_POST["catlist"]))
	{
	$objCatList->CopyToClipboard("COPY","CategoryId",$_POST["catlist"]);
	}
	break;

	case "m_paste":
	if($ro_perm) break;
	if($objCatList->ItemsOnClipboard()>0)
	{
	/* category's paste function populates a sparse array where array[old_id]=new_id */
	$PastedCatIds = array();
	$objCatList->PasteFromClipboard($objCatList->CurrentCategoryID(),"Name");
	}
	else
	{
	$clip = $objSession->GetVariable("ClipBoard");
	if(strlen($clip))
	{
	$ClipBoard = ParseClipboard($clip);
	$Action= strtolower($ClipBoard["table"])."_paste";
	}
	}
	break;

	case "m_cat_move_up":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->MoveUp();
	}
	}
	break;

	case "m_cat_move_down":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	$catlist=array_reverse($_POST["catlist"]);
	foreach($catlist as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->MoveDown();
	}
	}
	break;
	case "m_cat_approve":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	$cat->Approve();
	}
	}
	break;
	case "m_cat_decline":
	if($ro_perm) break;
	if (isset($_POST["catlist"]))
	{
	foreach($_POST["catlist"] as $catid)
	{
	$cat =& $objCatList->GetCategory($catid);
	//$cat->Deny();
	RunDown($catid,"Deny");
	}
	}
	break;

	case "m_rel_delete":
	$adodbConnection= &GetADODBConnection();
	$table = $objSession->GetEditTable("Relationship");
	if(isset($_POST["itemlist"]))
	{
	if(is_array($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "DELETE FROM ".$table." WHERE RelationshipId=".$id;
	$adodbConnection->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	}
	}
	else
	{
	$sql = "DELETE FROM ".$table." WHERE RelationshipId=".$_POST["itemlist"];
	$adodbConnection->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	}
	}
	break;
	case "m_add_relation":
	$RelList = new clsRelationshipList();
	$RelList->SourceTable = $objSession->GetEditTable("Relationship");

	//$r = $RelList->Add($_POST["SourceId"],$_POST["SourceType"],$_POST["TargetId"],$_POST["TargetType"],
	// 0,(int)$_POST["Enabled"],$_POST["RelType"], $Rel);
	$ado = &GetADODBConnection();
	$NewId = $ado->GetOne('SELECT MIN(RelationshipId) as MinValue FROM '.$RelList->SourceTable);
	if($NewId > 0) $NewId = 0;
	$NewId--;

	$r = $RelList->Add($_POST["SourceId"],$_POST["SourceType"],$_POST["TargetId"],$_POST["TargetType"],
	0,(int)$_POST["Enabled"],$_POST["RelType"], $NewId);

	$sql = "UPDATE ".$RelList->SourceTable." SET RelationshipId=".$NewId." WHERE RelationshipId=".$r->Get("RelationshipId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);

	break;
	case "m_edit_relation":
	if($_POST["CatEditStatus"]==0)
	{
	$RelList = new clsRelationshipList();
	$RelList->SourceTable = $objSession->GetEditTable("Relationship");

	$r = $RelList->GetItem($_POST["RelationshipId"]);
	if(is_object($r))
	{
	$r->Set("Enabled",(int)$_POST["Enabled"]);
	$r->Set("Type",(int)$_POST["RelType"]);
	$r->Set("Priority",(int)$_POST["priority"]);
	$r->Update();
	}
	}
	break;
	case "m_rel_move_up":
	$objRelList = new clsRelationshipList();
	$objRelList->SourceTable = $objSession->GetEditTable("Relationship");
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$r = $objRelList->GetItem($id);
	$r->MoveUp($_POST["SourceId"]);
	}
	}
	break;
	case "m_rel_move_down":
	$objRelList = new clsRelationshipList();
	$objRelList->SourceTable = $objSession->GetEditTable("Relationship");
	if (isset($_POST["itemlist"]))
	{
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$r = $objRelList->GetItem($id);
	$r->MoveDown($_POST["SourceId"]);
	}
	}
	break;


	case "m_add_category":
	if(ValidDate($_POST["cat_date"],GetDateFormat()))
	{
	$CreatedOn = DateTimestamp($_POST["cat_date"],GetDateFormat());
	}
	else
	$CreatedOn = time();
	$html = (int)$_POST["html_enable"];

	$cat_pick = $_POST["cat_pick"];
	$Status = (int)$_POST["status"];
	$Hot=(int)$_POST["itemhot"];
	$Pop = (int)$_POST["itempop"];
	$New = (int)$_POST["itemnew"];

	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");
	$cat = $objEditItems->Add($_POST["ParentId"], $_POST["cat_name"], inp_escape($_POST["cat_desc"],$html), $CreatedOn,
	$cat_pick, $Status, $Hot, $New, $Pop, $_POST["Priority"],
	$_POST["meta_keywords"],$_POST["meta_desc"]);
	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($cat->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(1);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$cat->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();

	break;

	case "m_edit_category":
	$CreatedOn = DateTimestamp($_POST["cat_date"],GetDateFormat());
	$cat_pick = GetVar('cat_pick', true);
	$Status = (int)$_POST["status"];
	$Hot = false; //(int)$_POST["itemhot"];
	$Pop = false; //(int)$_POST["itempop"];
	$New = (int)$_POST["itemnew"];

	$html = (int)$_POST["html_enable"];
	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");

	// check if name of cat isn't changed: begin
	if( GetVar('CategoryId') > 0 )
	{
	$original_cats = new clsCatList();
	$original_cat = $original_cats->GetItemByField('CategoryId', GetVar('CategoryId'));
	if( $original_cat->Get('Name') != $_POST['cat_name'] )
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	unset($original_cat, $original_cats);
	}
	else
	{
	$objSession->SetVariable('PermCache_UpdateRequired', 1);
	}
	// check if name of cat isn't changed: end

	$cat = $objEditItems->Edit_Category($_POST["CategoryId"],inp_escape($_POST["cat_name"],$html), inp_escape($_POST["cat_desc"],$html), $CreatedOn, $cat_pick, $Status, $Hot, $New, $Pop, $_POST["Priority"], $_POST["meta_keywords"], $_POST["meta_desc"]);

	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($cat->Get("ResourceId"));
	$CustomFields = new clsCustomFieldList(1);
	$DataChanged = FALSE;
	foreach($_POST as $key=>$value)
	{
	if(substr($key,0,1)=="_")
	{
	$field = substr($key,1);
	$cvalue = $CustomFields->GetItemByField("FieldName",$field,FALSE);

	if(is_object($cvalue))
	{
	$objCustomEdit->SetFieldValue($cvalue->Get("CustomFieldId"),$cat->Get("ResourceId"),$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();

	break;
	case "m_edit_custom_data":
	-
	$id = $_POST["ItemId"];
	$objEditData = new clsCustomDataList(); //$objSession->GetEditTable("CustomMetaData"));
	$objEditData->SetTable('edit');
	$ado = &GetADODBConnection();

	if($id && is_array($_POST["CustomData"]))
	{
	foreach($_POST["CustomData"] as $FieldId => $Value)
	{
	$sql = "SELECT count(*) as reccount FROM ".$objEditData->SourceTable." WHERE CustomFieldId=$FieldId AND ResourceId=".$_POST["ItemId"];
	$rs = $ado->Execute($sql);
	$intable = $rs->fields["reccount"];
	if(!$intable)
	{
	$sql = "INSERT INTO ".$objEditData->SourceTable." (ResourceId,CustomFieldId,Value) VALUES ('".$id."','$FieldId','$Value')";
	$ado->Execute($sql);
	//echo $sql."<br>\n";
	}
	else
	{
	$sql = "UPDATE ".$objEditData->SourceTable." SET Value='".$Value."' WHERE CustomFieldId=$FieldId AND ResourceId=".$_POST["ItemId"];
	$ado->Execute($sql);
	//echo $sql."<br>\n";
	}
	}
	}
	$objEditData->SetTable('live');
	break;
	case "m_customfield_edit":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$FieldId = $_POST["CustomFieldId"];
	$FieldName = $_POST["fieldname"];
	//$FieldLabel = $_POST["fieldlabel"];
	if(strlen($FieldName))
	{
	$objCustomFields = new clsCustomFieldList($DataType);
	$objCustomFields->EditField($FieldId,$DataType,$FieldName,"",(int)$_POST["generaltab"],
	$_POST["heading"],$_POST["fieldprompt"],$_POST["input_type"],
	$_POST["valuelist"]);
	}
	unset($objCustomFields);
	break;
	case "m_customfield_add":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$FieldName = $_POST["fieldname"];
	//$FieldLabel = $_POST["fieldlabel"];
	if(strlen($FieldName))
	{
	$objCustomFields = new clsCustomFieldList($DataType);
	$objCustomFields->AddField($DataType,$FieldName,"",(int)$_POST["generaltab"],
	$_POST["heading"],$_POST["fieldprompt"],$_POST["input_type"],
	$_POST["valuelist"]);
	unset($objCustomFields);
	}
	break;
	case "m_customfield_delete":
	if($ro_perm) break;
	$DataType = $_POST["DataType"];
	$objCustomFields = new clsCustomFieldList($DataType);

	foreach($_POST["itemlist"] as $f)
	{
	$objCustomFields->DeleteField($f);
	//$c = $objCustomFields->GetItem($f);
	//$c->Delete();
	}
	unset($objCustomFields);
	break;
	case "m_SearchConfig_Edit":
	if($ro_perm) break;
	$SimpleValues = $_POST["simple"];
	$AdvValues = $_POST["advanced"];
	$module = $_POST["module"];
	$priority = $_POST["pri"];
	//phpinfo(INFO_VARIABLES);
	$objSearchConfig = new clsSearchConfigList($module);
	foreach($objSearchConfig->Items as $i)
	{
	$id = $i->Get("SearchConfigId");
	$objSearchConfig->EditFieldSettings($id,(int)$SimpleValues[$id],(int)$AdvValues[$id],$priority[$id]);
	}
	$objSearchConfig->Clear();
	/* save relevence settings */
	$vals = $_POST["req_increase"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Increase_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_keyword"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Keyword_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_pop"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Pop_".$var;
	$objConfig->Set($cfg,$value);
	}
	$vals = $_POST["rel_rating"];
	foreach($vals as $var=>$value)
	{
	$cfg = "SearchRel_Rating_".$var;
	$objConfig->Set($cfg,$value);
	}
	break;
	case "m_keyword_reset":
	if($ro_perm) break;
	$objSearchList = new clsSearchLogList();
	foreach($_POST["itemlist"] as $k)
	{
	$c = $objSearchList->GetItem($k);
	$c->Delete();
	}
	break;
	case "m_review_add":
	$post_info = GetSubmitVariable($_POST, 'EditStatus');
	if($post_info['variable'] > -1)
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$Pending = (int)$_POST["review_pending"];
	$Enabled = (int)$_POST["review_enabled"];
	$Status = (int)$_POST["status"];
	$CreatedOn = DateTimestamp($_POST["review_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["review_time"]);
	$html = (int)$_POST["html_enable"];
	$ReviewText = inp_escape($_POST["review_body"],1);

	$CreatedById = 0;
	if(strlen($_POST["createdby"])>0)
	{
	if(strtolower($_POST["createdby"])=="root")
	{
	$CreatedById = -1;
	}
	else
	{
	$u = $objUsers->GetItemByField("Login",$_POST["createdby"]);
	if(is_object($u))
	{
	$CreatedById = $u->Get("PortalUserId");
	if($CreatedById<1)
	{
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");

	$r = $objReviews->AddReview($CreatedOn,$ReviewText,$Status, $IPAddress,
	(int)$_POST["review_priority"], $_POST["ItemId"],$_POST["ItemType"],
	$CreatedById,$html, $post_info['Module']);
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(ReviewId) as MinValue FROM ".$objReviews->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objReviews->SourceTable." SET ReviewId=".$NewId." WHERE ReviewId=".$r->Get("ReviewId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	break;
	case "m_review_edit":
	$post_info = GetSubmitVariable($_POST, 'EditStatus');
	if($post_info['variable'] > -1)
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$Status = (int)$_POST["status"];
	$CreatedOn = DateTimestamp($_POST["review_date"],GetDateFormat());
	$CreatedOn += SecondsSinceMidnight($_POST["review_time"]);
	$html = (int)$_POST["html_enable"];
	$ReviewText = inp_escape($_POST["review_body"],1);
	$ReviewId = $_POST["ReviewId"];
	$CreatedById = 0;
	if(strlen($_POST["createdby"])>0)
	{
	if(strtolower($_POST["createdby"])=="root")
	{
	$CreatedById = -1;
	}
	else
	{
	$u = $objUsers->GetItemByField("Login",$_POST["createdby"]);
	if(is_object($u))
	{
	$CreatedById = $u->Get("PortalUserId");
	if($CreatedById<1)
	{
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	else
	$CreatedById = $objSession->Get("PortalUserId");
	}
	}
	$r = $objReviews->EditReview($ReviewId,$CreatedOn,$ReviewText,$Status, $IPAddress,
	(int)$_POST["review_priority"],$_POST["ItemId"],$_POST["ItemType"],
	$CreatedById,$html, $post_info['Module']);
	}
	break;
	case "m_review_delete":
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$objReviews->DeleteReview($id);
	}
	break;
	case "m_review_approve":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",1);
	$i->Update();
	}
	}
	break;
	case "m_review_deny":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->Set("Status",0);
	$i->Update();
	}
	}
	break;
	case "m_review_move_up":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->MoveUp();
	}
	}
	break;
	case "m_review_move_down":
	if (isset($_POST["itemlist"]))
	{
	$objReviews = new clsItemReviewList();
	$objReviews->SourceTable = $objSession->GetEditTable("ItemReview");
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$i = $objReviews->GetItem($id);
	$i->MoveDown();
	}
	}
	break;
	case "m_theme_add":
	$objEditItems = new clsThemeList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Theme");
	$Primary = (int)$_POST["primary"];
	if(!(int)$_POST["enabled"])
	$Primary = 0;
	$t = $objEditItems->AddTheme($_POST["name"],$_POST["description"],(int)$_POST["enabled"],
	(int)$_POST["CacheTimeout"],$Primary);

	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(ThemeId) as MinValue FROM ".$objEditItems->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objEditItems->SourceTable." SET ThemeId=".$NewId." WHERE ThemeId=".$t->Get("ThemeId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	if ($Primary==1)
	{
	$objEditItems->SetPrimaryTheme($_POST["ThemeId"]);
	}
	$ado->Execute($sql);
	break;
	case "m_theme_edit":
	$objEditItems = new clsThemeList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Theme");
	$Primary = (int)$_POST["primary"];
	if(!(int)$_POST["enabled"])
	$Primary = 0;

	$objEditItems->EditTheme($_POST["ThemeId"],$_POST["name"],$_POST["description"],
	(int)$_POST["enabled"],$Primary,(int)$_POST["CacheTimeout"]);
	if ($Primary==1)
	{
	$objEditItems->SetPrimaryTheme($_POST["ThemeId"]);
	}

	break;
	case "m_theme_delete":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	$Themes = new clsThemeList();
	foreach($_POST["itemlist"] as $id)
	{
	$Themes->DeleteTheme($id);
	}
	}
	break;
	case "m_theme_primary":
	if($ro_perm) break;
	if( count($_POST['itemlist']) )
	{
	$ThemeId = array_shift( $_POST['itemlist'] );
	$t = new clsThemeList();
	$t->SetPrimaryTheme($ThemeId);
	}
	break;

	case "m_template_edit":
	if($ro_perm) break;
	$ThemeId = $_POST["ThemeId"];
	$FileId = $_POST["FileId"];
	$f = new clsThemeFile($FileId);

	$f->Set("Description", $_POST["Description"] );
	$f->Update();
	$c = stripslashes($_POST["contents"]);
	$f->SaveFileContents($c);
	break;
	case "m_template_add":
	if($ro_perm) break;
	$ThemeId = $_POST["ThemeId"];
	if( !is_object($f) ) $f = new clsThemeFile();

	$FilePath = $_POST['name'];

	if(!$FilePath)
	{
	$f->SetError('Template Name is required',3);
	break;
	}
	else
	{
	if( substr($FilePath,1) != '/' ) $FilePath = '/'.$FilePath;
	if( substr($FilePath,-3) != '.tpl' ) $FilePath .= '.tpl';
	$FileName = basename($FilePath);
	$FilePath = dirname($FilePath);

	// test if such file not already created

	$f->LoadFromDataBase( Array($FilePath,$FileName), Array('FilePath','FileName') );
	if( !$f->Get('FileId') )
	{
	$f->Set( Array('FilePath','FileName','ThemeId', 'Description'),
	Array($FilePath, $FileName,$_POST['ThemeId'], $_POST["Description"])
	);

	if( $f->IsWriteablePath(true) )
	{
	$f->Create();
	$c = stripslashes($_POST["contents"]);
	$f->SaveFileContents($c, true);
	}
	}
	else
	$f->SetError('Template with this name already exists',4);
	}
	break;
	case "m_template_delete":
	if($ro_perm) break;
	$dummy = new clsThemeFile();
	foreach($_POST["itemlist"] as $FileId)
	{
	$dummy->LoadFromDatabase($FileId);
	$dummy->Delete();
	}
	break;

	case "m_lang_add":
	$objEditItems = new clsLanguageList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Language");
	$l = $objEditItems->AddLanguage($_POST["packname"],$_POST["localname"],
	(int)$_POST["enabled"],(int)$_POST["primary"],
	$_POST["icon"],$_POST["date_format"],$_POST["time_format"],
	$_POST["decimal"],$_POST["thousand"]);

	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(LanguageId) as MinValue FROM ".$objEditItems->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objEditItems->SourceTable." SET LanguageId=".$NewId." WHERE LanguageId=".$l->Get("LanguageId");
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	if($_POST["importlabels"]==1 && $_POST["srcpack"]>0)
	{
	- $sql = "SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$_POST["srcpack"];
	+ // Phrase import
	+ $sql = "SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$_POST["srcpack"];
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";

	$rs = $ado->Execute($sql);
	$plist = new clsPhraseList();
	$plist->SourceTable = $objSession->GetEditTable("Phrase");
	$sql = "SELECT MIN(PhraseId) as MinId FROM ".$plist->SourceTable;
	$as = $ado->Execute($sql);
	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else
	$MinId = 0;
	$MinId--;
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$plist->AddPhrase($data["Phrase"],$NewId,$data["Translation"],$data["PhraseType"]);
	$sql = "UPDATE ".$plist->SourceTable." SET PhraseId=$MinId WHERE PhraseId=0 LIMIT 1";
	$ado->Execute($sql);
	$MinId--;
	$rs->MoveNext();
	}
	+
	+ // Events import
	+ $sql = "SELECT * FROM ".GetTablePrefix()."EmailMessage WHERE LanguageId=".$_POST["srcpack"];
	+ if($objSession->HasSystemPermission("DEBUG.LIST"))
	+ echo $sql."<br>\n";
	+
	+ $rs = $ado->Execute($sql);
	+
	+ $eList = new clsEmailMessageList();
	+ //$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+
	+ if (!$l->TableExists($objSession->GetEditTable("EmailMessage"))) {
	+ $eList->CreateEmptyEditTable("EmailMessageId", true);
	+ $eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+ }
	+ else {
	+ $eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+ }
	+
	+ $sql = "SELECT MIN(EmailMessageId) as MinId FROM ".$eList->SourceTable;
	+ $as = $ado->Execute($sql);
	+
	+ if($as && !$as->EOF)
	+ {
	+ $MinId = (int)$as->fields["MinId"];
	+ }
	+ else {
	+ $MinId = 0;
	+ }
	+
	+ $MinId--;
	+
	+ while($rs && !$rs->EOF)
	+ {
	+ $data = $rs->fields;
	+ $eList->AddEmailEvent($data["Template"], $data["MessageType"], $NewId, $data["EventId"]);
	+
	+ $sql = "UPDATE ".$eList->SourceTable." SET EmailMessageId=$MinId WHERE EmailMessageId=0 LIMIT 1";
	+ $ado->Execute($sql);
	+
	+ $MinId--;
	+
	+ $rs->MoveNext();
	+ }
	}
	break;
	case "m_lang_export":
	if($ro_perm) break;
	include_once($pathtoroot."kernel/include/xml.php");
	$Ids = $_POST["LangList"]; // language ids list to export phrases from

	$phrase_types = GetVar('langtypes');
	$phrase_types = ($phrase_types !== false) ? implode(',',$phrase_types) : null;

	$filename=$_POST["filename"];
	if(strlen($filename)>0)
	{
	$ExportFilename = $pathtoroot.$admin."/export/".$filename;
	$ExportResult = $objLanguages->ExportPhrases($ExportFilename,$Ids, $phrase_types);
	}
	break;

	case "m_lang_edit":
	$objEditItems = new clsLanguageList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Language");
	$objEditItems->EditLanguage($_POST["LanguageId"],$_POST["packname"],
	$_POST["localname"],(int)$_POST["enabled"],
	(int)$_POST["primary"], $_POST["icon"],$_POST["date_format"],
	$_POST["time_format"], $_POST["decimal"],$_POST["thousand"]);

	if($_POST["importlabels"]==1 && $_POST["srcpack"]>0)
	{
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$_POST["srcpack"]);
	$plist = new clsPhraseList();
	$plist->SourceTable = $objSession->GetEditTable("Phrase");
	$sql = "SELECT MIN(PhraseId) as MinId FROM ".$plist->SourceTable;
	$as = $ado->Execute($sql);
	if($as && !$as->EOF)
	{
	$MinId = (int)$as->fields["MinId"];
	}
	else
	$MinId = 0;
	$MinId--;
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$plist->AddPhrase($data["Phrase"],$_POST["LanguageId"],$data["Translation"],$data["PhraseType"]);
	$sql = "UPDATE ".$plist->SourceTable." SET PhraseId=$MinId WHERE PhraseId=0 LIMIT 1";
	$ado->Execute($sql);
	$MinId--;
	$rs->MoveNext();
	}
	unset($plist);
	+
	+ // Events import
	+ $sql = "SELECT * FROM ".GetTablePrefix()."EmailMessage WHERE LanguageId=".$_POST["srcpack"];
	+ if($objSession->HasSystemPermission("DEBUG.LIST"))
	+ echo $sql."<br>\n";
	+
	+ $rs = $ado->Execute($sql);
	+
	+ $eList = new clsEmailMessageList();
	+ //$eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+
	+ if (!$l->TableExists($objSession->GetEditTable("EmailMessage"))) {
	+ $eList->CreateEmptyEditTable("EmailMessageId", true);
	+ $eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+ }
	+ else {
	+ $eList->SourceTable = $objSession->GetEditTable("EmailMessage");
	+ }
	+
	+ $sql = "SELECT MIN(EmailMessageId) as MinId FROM ".$eList->SourceTable;
	+ $as = $ado->Execute($sql);
	+
	+ if($as && !$as->EOF)
	+ {
	+ $MinId = (int)$as->fields["MinId"];
	+ }
	+ else {
	+ $MinId = 0;
	+ }
	+
	+ $MinId--;
	+
	+ while($rs && !$rs->EOF)
	+ {
	+ $data = $rs->fields;
	+ $eList->AddEmailEvent($data["Template"], $data["MessageType"], $_POST["LanguageId"], $data["EventId"]);
	+
	+ $sql = "UPDATE ".$eList->SourceTable." SET EmailMessageId=$MinId WHERE EmailMessageId=0 LIMIT 1";
	+ $ado->Execute($sql);
	+
	+ $MinId--;
	+
	+ $rs->MoveNext();
	+ }
	+ unset($eList);
	}

	break;
	case "m_lang_delete":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	$Phrases = new clsPhraseList();
	+ $Messages = new clsEmailMessageList();
	foreach($_POST["itemlist"] as $id)
	{
	$objLanguages->DeleteLanguage($id);
	$Phrases->DeleteLanguage($id);
	+ $Messages->DeleteLanguage($id);
	}
	unset($Phrases);
	+ unset($Messages);
	}
	break;

	case "m_lang_select":
	if($ro_perm) break;
	$LangId = (int)$_POST["langselect"];
	if($LangId)
	{
	if($objSession->Get("PortalUserId")>0)
	{
	//echo "$LangId";
	$objSession->SetPersistantVariable("Language",$LangId);
	}
	$objSession->Set("Language",$LangId);
	$objSession->Update();
	$m_var_list_update["lang"] = $LangId;
	$m_var_list["lang"] = $LangId;
	}
	break;

	case "m_phrase_edit":
	$objPhraseList = new clsPhraseList();
	if((int)$_POST["direct"] != 1)
	$objPhraseList->SourceTable = $objSession->GetEditTable("Phrase");
	$Phrases = $_POST["name"];
	foreach($Phrases as $PhraseId =>$name)
	{
	if($PhraseId>0)
	{
	$objPhraseList->EditPhrase($PhraseId,$_POST["name"][$PhraseId],$_POST["LanguageId"],$_POST["translation"][$PhraseId],$_POST["phrasetype"][$PhraseId]);
	}
	}

	if(strlen($_POST["name"][0]) && strlen($_POST["translation"][0]) && $_POST['Action1'] == "new")
	{
	$r = $objPhraseList->AddPhrase($_POST["name"][0],$_POST["LanguageId"],$_POST["translation"][0],$_POST["phrasetype"][0]);
	if ($r != "Error") {
	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(PhraseId) as MinValue FROM ".$objPhraseList->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;
	$sql = "UPDATE ".$objPhraseList->SourceTable." SET PhraseId=".$NewId." WHERE PhraseId=$PhraseId";
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";
	$ado->Execute($sql);
	}
	else {
	$add_error = "Language tag with the same name already exists!";
	}
	}
	else if ($_POST['Action1'] == "new") {
	$add_error = "Fields name and translation are required!";
	}
	unset($objPhraseList);
	break;
	case "m_config_missing_phrase":
	if($ro_perm) break;
	$LangId = $_POST["LangId"];
	$ThemeId = $_POST["ThemeId"];
	if(is_array($_POST["Phrase"]))
	{
	$objPhraseList = new clsPhraseList();
	$objPhraseList->SourceTable = $objSession->GetSessionKey()."_".$ThemeId."_labels";

	foreach($_POST["Phrase"] as $p => $value)
	{
	if(strlen($value))
	{
	$obj = $objPhraseList->GetItemByField("Phrase",$p,TRUE);
	if(is_object($obj))
	{
	if($obj->Get("Phrase")==$p)
	{
	$obj->Set("Translation",$value);
	$obj->Update();
	}
	else
	$objPhraseList->AddPhrase($p,$LangId,$value,1);
	}
	else
	$objPhraseList->AddPhrase($p,$LangId,$value,1);
	}
	}
	}
	break;
	case "m_phrase_delete":
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "UPDATE ".$objSession->GetEditTable("Phrase")." SET LanguageId = 0 WHERE PhraseId = ".$id;
	$ado = &GetADODBConnection();
	$ado->Execute($sql);
	}
	}
	unset($objPhraseList);
	break;
	case "m_emailevent_disable":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",0);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_emailevent_enable":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",1);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_emailevent_frontonly":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objEvents->GetItem($id);
	$m->Set("Enabled",2);
	$m->Update();
	}
	}
	unset($objEvents);
	break;
	case "m_dlid":
	echo $Action.":".$DownloadId;
	die();
	break;
	case "m_emailevent_user":
	if($ro_perm) break;
	$objEvents = new clsEventList();
	//phpinfo(INFO_VARIABLES);
	//$objEvents->SourceTable = $objSession->GetEditTable("Events");
	$ids = $_POST["EventId"];
	$ids = str_replace("[","",$ids);
	$ids = str_replace("]","",$ids);
	$ids = str_replace("\"","",$ids);
	$ids = str_replace("\\","",$ids);


	$idlist = explode(",",$ids);
	foreach($idlist as $EventId)
	{
	$id = (int)stripslashes($EventId);
	$e =& $objEvents->GetItem((int)$EventId);
	$e->Set("FromUserId", $_POST["FromUserId"]);
	$e->Update();
	}
	$objEvents->Clear();
	unset($objEvents);
	break;
	case "m_emailevent_edit":
	$Template = $_POST["headers"];
	if(strlen($Template))
	{
	$Template .= "\n";
	}
	$Template = str_replace("\n\n","",$Template);
	$Template .= "Subject: ".$_POST["subject"]."\n\n";
	$Template .= $_POST["messageBody"];
	$objMessages = new clsEmailMessageList();
	$objMessages->SourceTable = $objSession->GetEditTable("EmailMessage");
	$m =& $objMessages->GetItem($_POST["MessageId"]);
	if(is_object($m))
	{
	if($_POST["sendhtml"]==1)
	{
	$m->Set("MessageType","html");
	}
	else
	$m->Set("MessageType","text");

	$m->Set("Template",$Template);
	$m->Update();
	}
	break;
	case "m_config_edit":
	//phpinfo(INFO_VARIABLES);
	if($ro_perm) break;
	$objAdmin = new clsConfigAdmin();
	$objAdmin->module = $_POST["module"];
	$objAdmin->section = $_POST["section"];
	if($objAdmin->section=="in-portal:configure_users")
	{
	if(strlen($_POST["RootPass"]) && strlen($_POST["RootPassVerify"]))
	{
	if($_POST["RootPass"]==$_POST["RootPassVerify"])
	{
	$_POST["RootPass"] = md5($_POST["RootPass"]);
	}
	}
	else
	{
	$_POST["RootPass"] = $objConfig->Get("RootPass");
	$_POST["RootPassVerify"] = $objConfig->Get("RootPassVerify");
	}
	}
	$objAdmin->LoadItems(FALSE);
	$objAdmin->SaveItems($_POST);
	break;

	case "m_mod_enable":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$m =& $objModules->GetItemByField("Name",$id);
	if(is_object($m))
	{
	$m->Set("Loaded",1);
	$m->Update();
	}
	}
	$_GET["Refresh"] = 1;
	}
	break;
	case "m_mod_disable":
	if($ro_perm) break;
	if (isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	if($id != "In-Portal")
	{
	$m =& $objModules->GetItemByField("Name",$id);
	if(is_object($m))
	{
	$m->Set("Loaded",0);
	$m->Update();
	}
	}
	}
	$_GET["Refresh"] = 1;
	}
	break;

	case "m_img_add":
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	$LocalImage=0;
	$LocalThumb=0;
	$DestDir = "kernel/images/";

	$UserThumbSource = (int)$_POST["imgLocalThumb"];
	$LocalThumb = $UserThumbSource;

	$thumb_url = !$LocalThumb? $_POST["imgThumbUrl"] : "";

	if($_POST["imgSameImages"])
	{
	$LocalImage = $LocalThumb;
	$full_url = $thumb_url;
	}
	else
	{
	$LocalImage = (int)$_POST["imgLocalFull"];
	$file = $_FILES["imgFullFile"];
	$full_url = $LocalImage? "" : $_POST["imgFullUrl"];
	}

	if((!strlen($thumb_url) && !$LocalThumb) \|\| (!strlen($full_url) && !$LocalImage))
	{
	break;
	}

	$ado = &GetADODBConnection();
	$NewId = $ado->GetOne('SELECT MIN(ImageId) as MinValue FROM '.$objImageList->SourceTable);
	if($NewId > 0) $NewId = 0;
	$NewId--;
	$img = $objImageList->Add($_POST["imgName"], $_POST["imgAlt"], $_POST["ResourceId"], $LocalImage, $LocalThumb, $full_url, $thumb_url, (int)$_POST["imgEnabled"], 0, (int)$_POST["imgDefault"], 0,(int)$_POST["imgSameImages"], $NewId);
	$img->Set("ImageId", $NewId);

	// $img->debuglevel=1;

	/*
	$sql = "UPDATE ".$objImageList->SourceTable." SET ImageId=".$NewId." WHERE ImageId=0";
	$ado->Execute($sql);

	// $img->Update();
	*/
	// echo "SL: $sql $NewId<BR>";

	// $img->debuglevel=1;

	$img->Pending=TRUE;
	if($LocalImage)
	{
	$file = $_FILES["imgFullFile"];
	if(is_array($file))
	{
	if($file["size"]>0)
	{
	$img->Set("LocalPath",$img->StoreUploadedImage($file,1, $DestDir,0));
	$uploaded=1;
	}
	}
	}

	if($LocalThumb)
	{
	$thumb = $_FILES["imgThumbFile"];
	if(is_array($thumb))
	{
	if($thumb["size"]>0)
	{
	$img->Set("ThumbPath",$img->StoreUploadedImage($thumb,1, $DestDir,1));
	$uploaded=1;
	}
	}
	}
	if($uploaded==1)
	$img->Update();

	break;

	case "m_img_edit":

	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");

	// $img->debuglevel=1;

	$img = $objImageList->GetItem($_POST["ImageId"]);

	## Get original values
	$LocalImage = $img->Get("LocalImage");
	$LocalThumb = $img->Get("LocalThumb");
	$SameImages = $img->Get("SameImages");
	$ThumbPath = $img->Get("ThumbPath");

	## New values
	$LocalThumbN = (int)$_POST["imgLocalThumb"];
	$LocalImageN = (int)$_POST["imgLocalFull"];

	$FULLFile = $_FILES["imgFullFile"];
	$THFile = $_FILES["imgThumbFile"];

	$DestDir = "kernel/images/";
	$img->Pending = FALSE;

	$SameImagesN = 0;
	$uploaded = 0;

	## Images were the same, but not any more
	if ($SameImages && !$_POST["imgSameImages"])
	{
	## TH was a local file
	if ($LocalThumb)
	{
	## TH image
	{
	## Try to Delete OLD FULL
	$img->DeleteLocalImage(FALSE, TRUE);

	## FULL image select, but field EMPTY - make a copy of old TH as FULL
	if ($LocalImageN && !(int)$FULLFile["size"])
	{
	// echo $pathToPending = $img->GetImageDir();
	if (!eregi("pending/$", $pathToPending))
	$pathToPending.= "pending/";

	$LocalThumb_File = $img->GetFileName(1);

	// echo "<b>CAN'T FIND FILE:</b> ".$pathToPending.$LocalThumb_File."<BR>";

	if (file_exists($pathToPending.$LocalThumb_File))
	{
	$LocalThumb_FileN = eregi_replace("^th_", "", $LocalThumb_File);
	$LocalThumb_FullFileN = $pathToPending.$LocalThumb_FileN;
	@unlink($LocalThumb_FullFileN);
	@copy($pathToPending.$LocalThumb_File, $LocalThumb_FullFileN);

	$uploaded = 1;
	$copied = 1;
	// echo "COPING: ".$DestDir."pending/".$LocalThumb_FileN." <BR>";
	}
	else
	{
	// echo "CAN'T FIND FILE: ".$pathToPending.$LocalThumb_File."<BR>";
	}
	}
	## Upload new FULL image
	elseif ($LocalImageN && (int)$FULLFile['size'])
	{
	$FULL_FileToUpload = $FULLFile;
	$FULL_URL = "";

	// echo " Upload new FULL image";
	}
	## Full is URL
	elseif (!$LocalImageN)
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_URL = $_POST['imgFullUrl'];
	$FULL_FileToUpload = "";
	}
	else
	{
	// echo " ## Unknow condition";
	}

	## Take care of Thumbnail here
	if ($LocalThumbN)
	{
	## Delete old if NEW TH image selected
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}
	}
	}
	## TH was URL
	else
	{
	## Take care of FULL image here
	if ($LocalImageN && (int)$FULLFile["size"])
	{
	$FULL_FileToUpload = $FULLFile;
	$FULL_URL = "";
	}
	## Full is URL (or image size 0)
	else
	{
	$FULL_FileToUpload = "";
	$FULL_URL = $_POST['imgFullUrl'];
	}

	## Take care of Thumbnail here
	if ($LocalThumbN)
	{
	$TH_FileToUpload = (int)$THFile['size']? $THFile : "";
	$TH_URL = "";
	}
	else
	{
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}
	}
	}
	## Images were the same, and still the same
	elseif ($SameImages && $_POST['imgSameImages'])
	{
	## Take care of Thumbnail & FULL here
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";

	$FULL_URL = $TH_URL = "";
	}
	else
	{
	$TH_FileToUpload = $FULL_FileToUpload = "";
	$FULL_URL = $TH_URL = $_POST['imgThumbUrl'];
	}

	## Delete old FULL image
	$img->DeleteLocalImage(FALSE,TRUE);

	$SameImagesN = 1;
	}
	## Images were NOT the same, and selected as the same now
	elseif (!$SameImages && $_POST["imgSameImages"])
	{
	## Take care of Thumbnail & FULL here
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";


	$FULL_URL = $TH_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $FULL_FileToUpload = "";
	$FULL_URL = $TH_URL = $_POST['imgThumbUrl'];
	}

	## Clean up FULL image
	$img->DeleteLocalImage(FALSE, TRUE);

	$SameImagesN = 1;
	}
	## Images were NOT the same, and selected as NOT the same
	elseif (!$SameImages && !$_POST["imgSameImages"])
	{
	## Take care of Thumbnail
	if ($LocalThumbN)
	{
	if ((int)$THFile['size'])
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = $THFile;
	}
	else
	$TH_FileToUpload = "";

	$TH_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(TRUE, FALSE);
	$TH_FileToUpload = "";
	$TH_URL = $_POST['imgThumbUrl'];
	}

	## Take care of FULL here
	if ($LocalImageN)
	{
	if ((int)$FULLFile['size'])
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_FileToUpload = $FULLFile;
	}
	else
	$FULL_FileToUpload = "";

	$FULL_URL = "";
	}
	else
	{
	$img->DeleteLocalImage(FALSE, TRUE);
	$FULL_FileToUpload = "";
	$FULL_URL = $_POST['imgFullUrl'];
	}
	}
	## Unknow condition
	else
	{
	;
	}

	$img = $objImageList->Edit($_POST["ImageId"],$_POST["imgName"], $_POST["imgAlt"], $_POST["ResourceId"], $LocalImageN, $LocalThumbN, $FULL_URL, $TH_URL, (int)$_POST["imgEnabled"], (int)$_POST["imgPriority"], (int)$_POST["imgDefault"], 0, $SameImagesN);

	// echo "<B>DATA:</B> <BR> LocalImageN: $LocalImageN, LocalThumbN: $LocalThumbN, FULL_URL: $FULL_URL, TH_URL: $TH_URL, SameImagesN: $SameImagesN <BR>";


	$img->Pending = TRUE;

	if (!empty($FULL_FileToUpload))
	{
	$img->Set("LocalPath",$img->StoreUploadedImage($FULL_FileToUpload, 1, $DestDir, 0));
	$uploaded = 1;
	}
	/*
	elseif (!$LocalImageN)
	{
	$img->Set("LocalPath", "");
	$uploaded = 1;
	}
	*/

	if (!empty($TH_FileToUpload))
	{
	$img->Set("ThumbPath", $img->StoreUploadedImage($TH_FileToUpload, 1, $DestDir, 1));
	$uploaded = 1;
	}

	if ($copied)
	{
	$img->Set("LocalPath", $DestDir."pending/".$LocalThumb_FileN);
	$uploaded = 1;
	}

	if($uploaded==1)
	$img->Update();

	break;
	case "m_img_move_up":
	if (isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	foreach($_POST["itemlist"] as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->MoveUp();
	}
	}
	break;
	case "m_img_move_down":
	if (isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	$itemlist=array_reverse($_POST["itemlist"]);
	foreach($itemlist as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->MoveDown();
	}
	}
	break;

	case "m_img_delete":
	if(isset($_POST["itemlist"]))
	{
	$objImageList = new clsImageList();
	$objImageList->SourceTable = $objSession->GetEditTable("Images");
	foreach($_POST["itemlist"] as $id)
	{
	$img = $objImageList->GetItem($id);
	$img->Set("ResourceId", 0);
	$img->Update();
	//$img->Delete();
	}
	}
	break;
	case "m_restore_delete":
	if($ro_perm) break;
	$bdate = $_POST["backupdate"];
	if($bdate>0)
	{
	$BackupFile = $objConfig->Get("Backup_Path")."/dump".$bdate.".txt";
	if(file_exists($BackupFile))
	unlink($BackupFile);
	}
	break;

	case "m_taglib":
	include($pathtoroot."kernel/include/tag-class.php");
	ParseTagLibrary();
	break;

	case "m_sql_query":
	if($ro_perm) break;
	$SqlQuery = $_POST["sql"];
	$ado = &GetADODBConnection();
	if(strlen($sql))
	{
	$SqlResult = $ado->Execute(stripslashes($SqlQuery));
	$SqlError = $ado->ErrorMsg();
	$SqlErrorNum = $ado->ErrorNo();
	}
	break;
	case "m_purge_email_log":
	if($ro_perm) break;
	$ado = &GetADODBConnection();

	$sql = "DELETE FROM ".GetTablePrefix()."EmailLog";
	$ado->Execute($sql);
	break;
	case "m_session_delete":
	if($ro_perm) break;
	$ado = &GetADODBConnection();
	if (count($_POST['itemlist']) > 0) {
	foreach($_POST["itemlist"] as $id)
	{
	$sql = "DELETE FROM ".GetTablePrefix()."UserSession WHERE SessionKey='$id'";
	$ado->Execute($sql);
	}
	}
	else {
	$sql = "DELETE FROM ".GetTablePrefix()."UserSession WHERE Status='0'";
	$ado->Execute($sql);
	}
	break;
	case "m_add_rule":
	$objEditItems = new clsBanRuleList();
	$objEditItems->SourceTable = $objSession->GetEditTable("BanRules");
	//$ItemType,$RuleType,$ItemField,$ItemVerb,$ItemValue,$Priority,$Status;
	$objEditItems->AddRule($_POST["rule_itemtype"],$_POST["rule_type"],$_POST["rule_field"],
	$_POST["rule_verb"],$_POST["rule_value"],(int)$_POST["rule_priority"],
	(int)$_POST["rule_status"], $_POST['rule_error']);
	break;
	case "m_edit_rule":
	$objEditItems = new clsBanRuleList();
	$objEditItems->SourceTable = $objSession->GetEditTable("BanRules");
	//$ItemType,$RuleType,$ItemField,$ItemVerb,$ItemValue,$Priority,$Status;
	$objEditItems->EditRule($_POST["rule_id"],$_POST["rule_itemtype"],$_POST["rule_type"],$_POST["rule_field"],
	$_POST["rule_verb"],$_POST["rule_value"],(int)$_POST["rule_priority"],
	(int)$_POST["rule_status"], $_POST['rule_error']);
	break;
	case "m_rule_move_up":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Increment("Priority");
	}
	}
	break;
	case "m_rule_move_down":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Decrement("Priority");
	}
	}
	break;

	case "m_rule_delete":
	if($ro_perm) break;
	if(isset($_POST["itemlist"]))
	{
	foreach($_POST["itemlist"] as $id)
	{
	$i = $objBanList->GetItem($id);
	$i->Delete();
	}
	}
	break;
	case "m_ban_user":
	if($ro_perm) break;
	if($_POST["UserEditStatus"]==1)
	{
	$UserId = $_POST["user_id"];
	$u = $objUsers->GetItem($UserId);
	if(is_object($u))
	{
	if((int)$_POST["ban_login"])
	{
	if(strlen($_POST["user_login"]))
	$objBanList->AddRule(6,0,"Login",3,$_POST["user_login"],0,1);
	}
	if((int)$_POST["ban_email"])
	{
	if(strlen($_POST["user_email"]))
	$objBanList->AddRule(6,0,"Email",3,$_POST["user_email"],0,1);
	}
	if((int)$_POST["ban_ip"])
	{
	if(strlen($_POST["user_ip"]))
	$objBanList->AddRule(6,0,"ip",3,$_POST["user_ip"],0,1);
	}
	$u->Deny();
	}
	}
	break;

	}

	/* image upload management */
	if( isset($_POST['img']) && $_POST['img'] == 1 )
	{
	foreach($_FILES as $img => $FILE)
	{
	$name = $_POST["img_Name_$img"];
	$alt = $_POST["img_Alt_$img"];
	$url = $_POST["img_Url_$img"];
	$res_id = $_POST["img_Res_$img"];
	$relvalue = $_POST["img_Rel_$img"];
	$thumb = (int)$_POST["img_Thumb_$img"];
	$dest = AddSlash($_POST["img_DestDir_$img"]);
	if($_POST["img_Del_$img"]=="Delete")
	{
	$img = $objImageList->GetImageByResource($res_id,$relvalue);
	$img->Delete();
	unset($img);
	$objImageList->Clear();
	}
	else
	{
	if($FILE["size"]>0)
	{
	/* an image was uploaded */
	$objImageList->HandleImageUpload($FILE,$res_id,$relvalue,$dest, $name,$alt,$thumb);
	}
	else
	{ /* remote images handled here */
	if(strlen($url)>0)
	{
	if($relvalue>0)
	{
	$img = $objImageList->GetImageByResource($res_id,$relvalue);
	$img->Set("Name",$name);
	$img->Set("AltName", $alt);
	$img->Set("IsThumbnail",$thumb);
	$img->Set("Url",$url);
	$img->Update();
	}
	else
	{
	$relvalue = $objImageList->GetNextRelateValue($res_id);
	$objImageList->NewRemoteImage($url,$res_id,$relvalue, $name, $alt, $thumb);
	}
	}
	}
	}
	}
	}

	// ALL Saving Stuff From Temp Tables Heppens Here

	//echo "==== BEGIN ==== <br>";
	$has_perm = $objSession->HasSystemPermission("SYSTEM_ACCESS.READONLY");
	//echo "PortalUserID: [".$objSession->Get("PortalUserId")."]<br>";
	//print_pre($objSession);
	//echo "PermSet: [".$has_perm."]<br>";

	if( !$has_perm )
	{

	/* category Edit */
	if( GetVar('CatEditStatus') == 1 )
	{
	$adodbConnection = &GetADODBConnection();
	// $sql = "SELECT * FROM ".$objSession->GetEditTable("Category")." WHERE CategoryId=0";
	$sql = "SELECT ParentId FROM ".$objSession->GetEditTable("Category")." WHERE CategoryId=-1";

	$rs = $adodbConnection->Execute($sql);
	while ($rs && !$rs->EOF)
	{
	if($rs->fields["ParentId"] > 0) RunUp($rs->fields["ParentId"],"Increment_Count");
	$rs->MoveNext();
	}

	$objCatList->CopyFromEditTable("CategoryId");
	$objCustomDataList->CopyFromEditTable("CustomDataId");
	$objCatList->Clear();

	if($_REQUEST['CategoryId'] > 0) // not root category is updated
	{
	$objImages = new clsImageList();
	$objImages->CopyFromEditTable("ImageId");
	}
	}

	if( GetVar('CatEditStatus') == 2 )
	{
	$objCatList->PurgeEditTable("CategoryId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	if($_REQUEST['CategoryId'] > 0) // not root category is updated
	{
	$objImages = new clsImageList();
	$objImages->CopyFromEditTable("ImageId");
	//$objImages->PurgeEditTable("ImageId");
	}
	$objCatList->Clear();
	}

	/* User Edit */
	if( GetVar('UserEditStatus') == 1 )
	{
	$objUsers->CopyFromEditTable("PortalUserId");
	$objCustomDataList->CopyFromEditTable("CustomDataId");
	$objGroups->Clear();
	$objImages = new clsImageList();
	$objImages->CopyFromEditTable("ImageId");
	}
	if( GetVar('UserEditStatus') == 2 )
	{
	$objGroups->PurgeEditTable("PortalUserId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	$objGroups->Clear();
	}

	/* Group Edit */
	if( GetVar('GroupEditStatus') == 1 )
	{
	$objGroups->CopyFromEditTable("GroupId");
	$objCustomDataList->CopyFromEditTable("CustomDataId");
	$objGroups->Clear();
	}
	if( GetVar('GroupEditStatus') == 2 )
	{
	$objGroups->PurgeEditTable("GroupId");
	$objCustomDataList->PurgeEditTable("CustomDataId");
	$objGroups->Clear();
	}

	/* Theme Edit */
	if( GetVar('ThemeEditStatus') == 1 )
	{
	$objThemes->CopyFromEditTable();
	$objThemes->Clear();
	}

	if( GetVar('ThemeEditStatus') == 2 )
	{
	$objThemes->PurgeEditTable();
	$objThemes->Clear();
	}

	/* Language Edit */
	if( GetVar('LangEditStatus') == 1 )
	{
	- $Messages = new clsEmailMessageList();
	- $Messages->CopyFromEditTable();
	- $Messages->Clear();
	$objLanguages->CopyFromEditTable();
	$objLanguages->Clear();

	$Phrases = new clsPhraseList();
	$Phrases->CopyFromEditTable();
	$Phrases->Clear();
	$Phrases->PurgeEditTable();
	+
	+ $Messages = new clsEmailMessageList();
	+ $Messages->CopyFromEditTable();
	+ $Messages->Clear();
	}
	if( GetVar('LangEditStatus') == 2 )
	{
	$objLanguages->PurgeEditTable();
	$objLanguages->Clear();
	$Phrases = new clsPhraseList();
	$Phrases->PurgeEditTable();
	$Messages = new clsEmailMessageList();
	$Messages->PurgeEditTable();
	}

	if( GetVar('MissingLangEditStatus') == 1 )
	{
	$objPhraseList = new clsPhraseList();
	$objPhraseList->SourceTable = $objSession->GetSessionKey()."_".$ThemeId."_labels";

	$objEditList = new clsPhraseList();
	$objEditList->SourceTable = $objSession->GetEditTable("Phrase");

	$ado = &GetADODBConnection();
	$rs = $ado->Execute("SELECT MIN(PhraseId) as MinValue FROM ".$objEditList->SourceTable);
	$NewId = $rs->fields["MinValue"]-1;

	$objPhraseList->Query_Item("SELECT * FROM ".$objPhraseList->SourceTable);
	foreach($objPhraseList->Items as $p)
	{
	if(strlen($p->Get("Translation"))>0)
	{
	$p->tablename = $objEditList->SourceTable;
	$p->Dirty();
	$p->UnsetIDField();
	$p->Set("PhraseId",$NewId);
	$NewId--;
	$p->Create();
	}
	}
	$ado->Execute("DROP TABLE IF EXISTS ".$objPhraseList->SourceTable);
	}

	if( GetVar('MissingLangEditStatus') == 2 )
	{
	$table = $objSession->GetSessionKey()."_".$ThemeId."_labels";
	$ado = &GetADODBConnection();
	$ado->Execute("DROP TABLE IF EXISTS ".$table);
	}

	/* Ban Rule Edit */
	if( GetVar('RuleEditStatus') == 1 )
	{
	$objBanList->CopyFromEditTable("RuleId");
	$objBanList->Clear();
	}
	if( GetVar('RuleEditStatus') == 2 )
	{
	$objBanList->PurgeEditTable("RuleId");
	$objBanList->Clear();
	}
	}
	elseif( defined('DEBUG_ACTIONS') )
	{
	if( isset($_REQUEST['Action']) && $_REQUEST['Action'] )
	echo "<b>USER HAS RO-ACCESS</b> on action [<b>".$_REQUEST['Action']."</b>]<br>";
	}

	//echo "==== END ==== <br>";

	?>

	Property changes on: trunk/kernel/action.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.44
	\ No newline at end of property
	+1.45
	\ No newline at end of property
	Index: trunk/kernel/include/emailmessage.php
	===================================================================
	--- trunk/kernel/include/emailmessage.php (revision 560)
	+++ trunk/kernel/include/emailmessage.php (revision 561)
	@@ -1,937 +1,962 @@
	<?php
	class clsEmailMessage extends clsParsedItem
	{
	var $Event = "";
	var $Item;
	var $headers = array();
	var $subject = "";
	var $body = "";
	var $TemplateParsed = FALSE;
	var $recipient = NULL;
	var $fromuser = NULL;

	function clsEmailMessage($MessageId=NULL,$Item=NULL)
	{
	$this->clsParsedItem();
	$this->tablename = GetTablePrefix()."EmailMessage";
	$this->Item = $Item;
	$this->BasePermission = "EMAIL";
	$this->id_field = "EmailMessageId";
	$this->TagPrefix = "email";
	$this->NoResourceId=1;
	if($MessageId)
	$this->LoadFromDatabase($MessageId);
	}

	function LoadEvent($event,$language=NULL)
	{
	global $objConfig, $objLanguages;

	if(!strlen($language))
	$language = $objLanguages->GetPrimary();
	$sql = "SELECT * FROM ".$this->tablename." WHERE EventId = $event AND LanguageId=$language";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$this->SetFromArray($data);
	$this->Clean();
	return TRUE;
	}
	else
	return FALSE;
	}
	function LoadFromDatabase($MessageId)
	{
	global $Errors;

	$sql = sprintf("SELECT * FROM ".$this->tablename." WHERE ".$this->IdField()." = '%s'",$MessageId);
	$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);
	return TRUE;
	}

	function EditTemplate()
	{
	}

	/* read the template, split into peices */
	function ReadTemplate()
	{
	if(!$this->TemplateParsed)
	{
	$this->headers = array();
	$lines = explode("\n",$this->Get("Template"));
	$header_end = FALSE;
	$i = 0;
	while(!$header_end && $i<count($lines))
	{
	$h = $lines[$i];
	if(strlen(trim($h))==0 \|\| ($h=="."))
	{
	$header_end = TRUE;
	}
	else
	{
	$parts = explode(":",$h,2);

	if(strtolower($parts[0])=="subject")
	{
	$this->subject = $h;
	}
	else
	$this->headers[] = $h;
	}
	$i++;
	}
	while($i<count($lines))
	{
	$this->body .= $lines[$i++];
	}
	$this->TemplateParsed=TRUE;
	}
	}

	function ParseSection($text, $parser=null)
	{
	global $objUsers, $objTemplate;

	$res = $this->ParseTemplateText($text);

	/* parse email class tags */
	if(!is_object($this->fromuser))
	{
	$this->fromuser = $objUsers->GetItem($this->Get("FromUserId"));
	$this->fromuser->TagPrefix = "fromuser";
	}

	/* parse from user object */
	if(is_object($this->fromuser))
	{
	$res = $this->fromuser->ParseTemplateText($res);
	}

	/* parse recipient user object */
	if(is_object($this->recipient))
	{
	$res = $this->recipient->ParseTemplateText($res);
	}

	//print_pre($this->Item);
	if(is_object($this->Item))
	{
	$res = $this->Item->ParseTemplateText($res);
	}
	else
	{

	if(!is_object($objTemplate))
	$objTemplate = new clsTemplateList(" ");
	$res = $objTemplate->ParseTemplateText($res);
	}

	return $res;
	}

	function SendToGroup($GroupId)
	{
	global $objUsers;

	$users = $objUsers->Query_GroupPortalUser("GroupId=$GroupId");
	if(is_array($users))
	{
	foreach($users as $u)
	{
	$this->SendToUser($u->Get("PortalUserId"));
	}
	}
	}

	function SendToAddress($EmailAddress,$name="")
	{
	global $objUsers, $objEmailQueue,$objConfig;

	$conn = &GetADODBConnection();
	//$this->recipient = $objUsers->GetUser($UserId);
	//$this->recipient->TagPrefix="touser";
	if(strlen($EmailAddress))
	{
	$to_addr = $EmailAddress;
	$this->ReadTemplate();

	$subject = $this->ParseSection($this->subject);
	$body = $this->ParseSection($this->body);

	if(is_object($this->fromuser))
	{
	$FromAddr = $this->fromuser->Get("Email");
	$FromName = trim($this->fromuser->Get("FirstName")." ".$this->fromuser->Get("LastName"));
	}
	if(!strlen($FromAddr))
	{
	$FromName = $objConfig->Get("Site_Name");
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	}

	$charset = "ascii-us";
	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset, $this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body = nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/*$time = time();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To', '$subject', $time, '')";
	$conn->Execute($sql); */

	return TRUE;
	}
	return FALSE;
	}


	function SendToUser($UserId)
	{
	global $objUsers, $objEmailQueue, $objConfig;

	$conn = &GetADODBConnection();
	//echo "Handling Event ".$this->Get("Event")." for user $UserId <br>\n";
	$this->recipient = new clsPortalUser($UserId); // $objUsers->GetItem($UserId);
	//echo "<PRE>";print_r($this->recipient); echo "</PRE>";
	$this->recipient->TagPrefix="touser";
	if($this->recipient->Get("PortalUserId")==$UserId)
	{
	$to_addr = $this->recipient->Get("Email");
	$To = trim($this->recipient->Get("FirstName")." ".$this->recipient->Get("LastName"));

	$this->ReadTemplate();

	$subject = $this->ParseSection($this->subject, $this->recipient);
	$body = $this->ParseSection($this->body);

	if(!is_object($this->fromuser))
	{
	$this->fromuser = $objUsers->GetItem($this->Get("FromUserId"));
	}
	if(is_object($this->fromuser))
	{
	$FromAddr = $this->fromuser->Get("Email");
	$FromName = trim($this->fromuser->Get("FirstName")." ".$this->fromuser->Get("LastName"));

	$charset = "ascii-us";
	}

	if(!strlen($FromAddr))
	{
	$FromName = $objConfig->Get("Site_Name");
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	}
	echo $this->Event;

	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset, $this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body = nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/*$time = time();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To ($to_addr)', '$subject', $time, '')";
	$conn->Execute($sql); */

	return TRUE;
	}
	return FALSE;
	}

	function SendAdmin()
	{
	global $objUsers, $objConfig, $objEmailQueue;

	$conn = &GetADODBConnection();

	$this->recipient = $objUsers->GetUser($this->Get("FromUserId"));
	$this->recipient->TagPrefix="touser";
	if($this->recipient->Get("PortalUserId")==$this->Get("FromUserId"))
	{
	$to_addr = $this->recipient->Get("Email");
	$To = trim($this->recipient->Get("FirstName")." ".$this->recipient->Get("LastName"));
	$this->ReadTemplate();

	$subject = $this->ParseSection($this->subject);
	$body = $this->ParseSection($this->body);
	$FromName = "System Event";
	$FromAddr = $objConfig->Get("Smtp_AdminMailFrom");
	if(strlen($FromAddr))
	{
	$charset = "ascii-us";
	if($this->Get("MessageType")=="html")
	{
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,"",$body,$charset,$this->Get("Event"),NULL,$this->headers);
	}
	else
	{
	$body=nl2br($body);
	$body = str_replace("<br />","\n",$body);
	$objEmailQueue->SendMail($FromAddr,$FromName,$to_addr,$To,$subject,$body,"",$charset, $this->Get("Event"),NULL,$this->headers);
	}

	/* $time = time();

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$To ($to_addr)', '$subject', $time, '')";
	$conn->Execute($sql);
	*/
	return TRUE;
	}
	}
	return FALSE;
	}

	function ParseTemplateText($text)
	{
	$html = $text;
	$search = "<inp:";
	//$search = "<inp:".$this->TagPrefix;
	//$next_tag = strpos($html,"<inp:");
	$next_tag = strpos($html,$search);

	while($next_tag)
	{
	$closer = strpos(strtolower($html),">",$next_tag);
	$end_tag = strpos($html,"/>",$next_tag);
	if($end_tag < $closer \|\| $closer == 0)
	{
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+2);
	$pre = substr($html,0,$next_tag);
	$post = substr($html,$end_tag+2);
	$inner = $this->ParseElement($tagtext);
	$html = $pre.$inner.$post;
	}
	else
	{

	$OldTagStyle = "</inp>";

	## Try to find end of TagName
	$TagNameEnd = strpos($html, " ", $next_tag);

	## Support Old version
	// $closer = strpos(strtolower($html),"</inp>",$next_tag);
	if ($TagNameEnd)
	{
	$Tag = strtolower(substr($html, $next_tag, $TagNameEnd-$next_tag));
	$TagName = explode(":", $Tag);
	if (strlen($TagName[1]))
	$CloserTag = "</inp:".$TagName[1].">";
	}
	else
	{
	$CloserTag = $OldTagStyle;
	}

	$closer = strpos(strtolower($html), $CloserTag, $next_tag);

	## Try to find old tag closer
	if (!$closer && ($CloserTag != $OldTagStyle))
	{
	$CloserTag = $OldTagStyle;
	$closer = strpos(strtolower($html), $CloserTag, $next_tag);
	}

	$end_tag = strpos($html,">",$next_tag);
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+1);
	$pre = substr($html,0,$next_tag);
	$inner = substr($html,$end_tag+1,$closer-($end_tag+1));
	$post = substr($html,$end_tag+1+strlen($inner) + strlen($CloserTag));
	//echo "PRE:". htmlentities($pre,ENT_NOQUOTES);
	//echo "INNER:". htmlentities($inner,ENT_NOQUOTES);
	//echo "POST:". htmlentities($post,ENT_NOQUOTES);

	$parsed = $this->ParseElement($tagtext);
	if(strlen($parsed))
	{
	$html = $pre.$this->ParseTemplateText($inner).$post;
	}
	else
	$html = $pre.$post;
	}
	$next_tag = strpos($html,$search);
	}
	return $html;
	}

	function ParseElement($raw, $inner_html ="")
	{
	$tag = new clsHtmlTag($raw);
	$tag->inner_html = $inner_html;

	if($tag->parsed)
	{
	if($tag->name=="include" \|\| $tag->name=="perm_include" \|\| $tag->name=="lang_include")
	{
	$output = $this->Parser->IncludeTemplate($tag);
	}
	else
	{
	if (is_object($this->Item)) {
	$this->Item->TagPrefix = $tag->name;
	$output = $this->Item->ParseObject($tag);
	}
	else {
	$output = $this->ParseObject($tag);
	}
	//echo $output."<br>";
	if(substr($output,0,9)=="Undefined")
	{
	$output = $tag->Execute();
	// if(substr($output,0,8)="{Unknown")
	// $output = $raw;
	} return $output;
	}
	}
	else
	return "";
	}
	}

	class clsEmailMessageList extends clsItemCollection
	{
	function clsEmailMessageList()
	{
	$this->clsItemCollection();
	$this->classname = "clsEmailMessage";
	$this->SourceTable = GetTablePrefix()."EmailMessage";
	$this->PerPageVar = "Perpage_EmailEvents";
	$this->AdminSearchFields = array("Template","Description", "Module","Event");
	}

	function LoadLanguage($LangId=NULL)
	{
	global $objLanguages;

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

	$sql = "SELECT * FROM ".$this->SourceTable." WHERE LanguageId=$LangId";
	$this->Clear();
	return $this->Query_Item($sql);
	}
	+
	+ function &AddEmailEvent($Template, $Type, $LangId, $EventId)
	+ {
	+ $e = new clsEmailMessage();
	+ $e->tablename = $this->SourceTable;
	+ $e->Set(array("Template","MessageType","LanguageId","EventId"),
	+ array($Template,$Type,$LangId,$EventId));
	+ $e->Dirty();
	+ $e->Create();
	+
	+ return $e;
	+ }
	+
	+ function DeleteLanguage($LangId)
	+ {
	+ $sql = "DELETE FROM ".$this->SourceTable." WHERE LanguageId=$LangId OR LanguageId = 0";
	+ if( $GLOBALS['debuglevel'] ) echo $sql."<br>\n";
	+
	+ $this->adodbConnection->Execute($sql);
	+ }

	function &GetMessage($EventId,$LangId,$LoadFromDB=TRUE)
	{
	$found=FALSE;

	if(is_array($this->Items))
	{
	for($x=0;$x<count($this->Items);$x++)
	{
	$i =& $this->GetItemRefByIndex($x);
	if(is_object($i))
	{
	if($i->Get("EventId")==$EventId && $i->Get("LanguageId")==$LangId)
	{
	$found=TRUE;
	break;
	}
	}
	}
	}
	if(!$found)
	{
	if($LoadFromDB)
	{
	$n = NULL;
	$n = new $this->classname();
	$n->tablename = $this->SourceTable;
	if($n->LoadEvent($EventId,$LangId))
	{
	array_push($this->Items, $n);
	$i =& $this->Items[count($this->Items)-1];
	}
	else
	$i = FALSE;
	}
	else
	$i = FALSE;
	}
	return $i;
	}

	- function CreateEmptyEditTable($IdList)
	+ function CreateEmptyEditTable($IdList, $use_parent = false)
	{
	global $objSession;

	- $edit_table = $objSession->GetEditTable($this->SourceTable);
	- @$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	- $query = "SELECT * FROM ".$this->SourceTable." WHERE $idfield = -1";
	- $insert = "CREATE TABLE ".$edit_table." ".$query;
	- if($objSession->HasSystemPermission("DEBUG.LIST"))
	- echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	- $this->adodbConnection->Execute($insert);
	- $this->LoadLanguage();
	- $idvalue = -1;
	- for($i=0;$i<$this->NumItems();$i++)
	- {
	- $e =& $this->Items[$i];
	- $e->SourceTable = $edit_table;
	- if(is_array($IdList))
	- {
	- foreach($IdList as $id)
	- {
	- $e->UnsetIdField();
	- $e->Set("EmailMessageId",$idvalue--);
	- $e->Set("LanguageId",$id);
	- $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$id));
	- $e->Create();
	- }
	- }
	- else
	- {
	- $e->UnsetIdField();
	- $e->Set("EmailMessageId",$idvalue--);
	- $e->Set("LanguageId",$IdList);
	- $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$LangId));
	- $e->Create();
	- }
	+ if (!$use_parent) {
	+ $edit_table = $objSession->GetEditTable($this->SourceTable);
	+ @$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	+ $query = "SELECT * FROM ".$this->SourceTable." WHERE $idfield = -1";
	+ $insert = "CREATE TABLE ".$edit_table." ".$query;
	+ if($objSession->HasSystemPermission("DEBUG.LIST"))
	+ echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	+ $this->adodbConnection->Execute($insert);
	+ $this->LoadLanguage();
	+ $idvalue = -1;
	+ for($i=0;$i<$this->NumItems();$i++)
	+ {
	+ $e =& $this->Items[$i];
	+ $e->SourceTable = $edit_table;
	+ if(is_array($IdList))
	+ {
	+ foreach($IdList as $id)
	+ {
	+ $e->UnsetIdField();
	+ $e->Set("EmailMessageId",$idvalue--);
	+ $e->Set("LanguageId",$id);
	+ $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$id));
	+ $e->Create();
	+ }
	+ }
	+ else
	+ {
	+ $e->UnsetIdField();
	+ $e->Set("EmailMessageId",$idvalue--);
	+ $e->Set("LanguageId",$IdList);
	+ $e->Set("Description",admin_language("la_desc_emailevent_".$e->Get("Event"),$LangId));
	+ $e->Create();
	+ }
	+ }
	+ $this->Clear();
	+ }
	+ else {
	+ parent::CreateEmptyEditTable($IdList);
	}
	- $this->Clear();
	}

	function CopyFromEditTable()
	{
	global $objSession;

	$idfield = "EmailMessageId";
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	- $sql = "SELECT * FROM $edit_table";
	+ $sql = "SELECT * FROM $edit_table WHERE LanguageId <> 0";
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = new $this->classname;
	$c->SetFromArray($data);
	//$c->idfield = $idfield;
	if($c->Get($idfield)<1)
	{
	$old_id = $c->Get($idfield);
	$c->Dirty();
	$c->UnsetIdField();
	$c->Create();
	}
	else
	{
	$c->Dirty();
	$c->Update();
	}
	$rs->MoveNext();
	}
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	function PurgeEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	function &GetEmailEventObject($EventName,$Type=0,$LangId=NULL)
	{
	global $objLanguages;

	if(!$LangId)
	$LangId = $objLanguages->GetPrimary();
	$EmailTable = $this->SourceTable;
	$EventTable = GetTablePrefix()."Events";
	$sql = "SELECT * FROM $EventTable INNER JOIN $EmailTable ON ($EventTable.EventId = $EmailTable.EventId) ";
	$sql .="WHERE Event='$EventName' AND LanguageId=$LangId AND Type=$Type";
	$result = $this->adodbConnection->Execute($sql);

	if ($result === FALSE)
	{
	//$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"","clsEvent","GetEmailEventObject");
	return FALSE;
	}
	$data = $result->fields;
	$e = new clsEmailMessage();
	$e->SetFromArray($data);
	$e->Clean();
	return $e;
	}

	function ReadImportTable($TableName,$Overwrite=FALSE, $MaxInserts=100,$Offset=0)
	{
	$eml = new clsEmailMessageList();
	$this->Clear();
	$Inserts = 0;
	$sql = "SELECT * FROM $TableName LIMIT $Offset,$MaxInserts";
	$this->Query_Item($sql);
	if($this->NumItems()>0)
	{
	foreach($this->Items as $i)
	{
	$e = $eml->GetMessage($i->Get("EventId"),$i->Get("LanguageId"));
	if(is_object($e))
	{
	if($Overwrite)
	{
	$e->Set("MessageType",$i->Get("MessageType"));
	$e->Set("Template",$i->Get("Template"));
	$e->Update();
	}
	}
	else
	{
	$i->Create();
	}
	$Inserts++;
	}
	}
	$Offset = $Offset + $Inserts;
	return $Offset;
	}
	}

	function EventEnabled($e)
	{
	global $objConfig;

	$var = "Email_".$e."_Enabled";

	return ($objConfig->Get($var)=="1");
	}

	class clsEmailQueue
	{
	var $SourceTable;
	var $MessagesAtOnce;
	var $MessagesSent=0;
	var $LogLevel = 0;

	function clsEmailQueue($SourceTable=NULL,$MessagesAtOnce=NULL)
	{
	global $objConfig;

	if($SourceTable)
	{
	$this->SourceTable=$SourceTable;
	}
	else
	$this->SourceTable = GetTablePrefix()."EmailQueue";
	if(!$MessagesAtOnce)
	$MessagesAtOnce = (int)$objConfig->Get("Email_MaxSend");
	if($MessagesAtOnce<1)
	$MessagesAtOnce=1;
	$this->MessagesAtOnce = $MessagesAtOnce;
	$this->LogLevel = (int)$objConfig->Get("Smtp_LogLevel");
	}

	function WriteToMailLog($text)
	{
	global $pathtoroot,$admin;
	//echo htmlentities($text)."<br>\n";
	if($this->LogLevel>0)
	{
	$Logfile = $pathtoroot.$admin."/email/log.txt";
	if(is_writable($Logfile))
	{
	$fp = fopen($Logfile,"a");
	if($fp)
	{
	fputs($fp,$text."\n");
	fclose($fp);
	}
	}
	}
	}

	function AllowSockets()
	{
	$minver = explode(".", "4.3.0");
	$curver = explode(".", phpversion());
	if (($curver[0] < $minver[0])
	\|\| (($curver[0] == $minver[0])
	&& ($curver[1] < $minver[1]))
	\|\| (($curver[0] == $minver[0]) && ($curver[1] == $minver[1])
	&& ($curver[2][0] < $minver[2][0])))
	return false;
	else
	return true;
	}

	function DeliverMail($To,$From,$Subject,$Msg,$headers, $ForceSend=0)
	{
	global $MessagesSent,$objConfig;

	if(($this->MessagesSent >$this->MessagesAtOnce) && !$ForceSend)
	{
	$this->EnqueueMail($To,$From,$Subject,$Msg,$headers);
	return TRUE;
	}
	else
	{

	$this->MessagesSent++;

	$time = time();
	$conn = &GetADODBConnection();

	/* $sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '".htmlspecialchars($From)."', '".htmlspecialchars($To)."', '$Subject', $time, '')";
	$conn->Execute($sql);*/
	/* ensure headers are using \r\n instead of \n */
	//$headers = str_replace("\r\n","\n",$headers);
	//$headers = str_replace("\n","\r\n",$headers);

	$headers = "Date: ".date("r")."\n".$headers;
	$headers = "Return-Path: ".$objConfig->Get("Smtp_AdminMailFrom")."\n".$headers;

	if (strtoupper(substr(PHP_OS, 0, 3) == 'WIN')) {
	$Msg = str_replace("\r\n","\n",$Msg);
	$Msg = str_replace("\n","\r\n",$Msg);
	}

	//echo "<PRE>"; print_r(htmlentities($headers)); echo "</PRE>";
	//echo "<PRE>"; print_r(htmlentities($Msg)); echo "</PRE>";
	$ver = phpversion();
	if(substr($Subject,0,9)=="Subject: ")
	$Subject = substr($Subject,9);
	if(!strlen($objConfig->Get("Smtp_Server")) \|\| !$this->AllowSockets())
	{
	return mail($To,trim($Subject),$Msg, $headers);
	}

	$headers = "Subject: ".trim($Subject)."\r\n".$headers;

	$send_params['recipients'] = array($To); // The recipients (can be multiple)
	$send_params['from'] = $From; // This is used as in the MAIL FROM: cmd
	$send_params['headers'] = explode("\r\n",$headers);
	// It should end up as the Return-Path: header
	$send_params['body'] = $Msg; // The body of the email

	$params['host'] = $objConfig->Get("Smtp_Server"); // The smtp server host/ip

	$params['port'] = 25; // The smtp server port
	$params['hello'] = 'INPORTAL'; // What to use when sending the helo command. Typically, your domain/hostname
	if($objConfig->Get("Smtp_Authenticate")) // Whether to use basic authentication or not
	{
	$params['auth'] = TRUE;
	$params['user'] = $objConfig->Get("Smtp_User");
	$params['pass'] = $objConfig->get("Smtp_Pass");
	}
	else
	$params['auth'] = FALSE;
	$this->LogLevel=0;
	$SmtpServer = new smtp($params);
	if($this->LogLevel>0)
	{
	$SmtpServer->debug=1;
	foreach($params as $key=>$value)
	{
	$this->WriteToMailLog($key."=".$value);
	}
	}
	else
	$SmtpServer->debug = 1;
	$connected = $SmtpServer->connect();

	if($connected)
	{
	if($this->LogLevel>1)
	{
	$this->WriteToMailLog("Connected to ".$params['host']);
	}
	$res = $SmtpServer->send($send_params);
	}
	$SmtpServer->disconnect();
	if($this->LogLevel>1)
	{
	foreach($SmtpServer->buffer as $l)
	{
	$this->WriteToMailLog($l);
	}
	}

	if($this->LogLevel>0)
	{
	if(count($SmtpServer->errors)>0)
	{
	foreach($SmtpServer->errors as $e)
	{
	$this->WriteToMailLog($e);
	}
	}
	else
	$this->WriteToMailLog("Message to $From Delivered Successfully");
	}
	unset($SmtpServer);
	return $res;
	}
	}

	function EnqueueMail($To,$From,$Subject,$Msg,$headers)
	{
	global $objSession;

	$ado = &GetADODBConnection();
	$To = mysql_escape_string($To);
	$From = mysql_escape_string($From);
	$Msg = mysql_escape_string($Msg);
	$headers = mysql_escape_string($headers);
	$Subject = mysql_escape_string($Subject);
	$sql = "INSERT INTO ".$this->SourceTable." (toaddr,fromaddr,subject,message,headers) VALUES ('$To','$From','$Subject','$Msg','$headers')";
	$ado->Execute($sql);
	}

	function SendMailQeue()
	{
	global $objConfig, $objSession, $TotalMessagesSent;

	$ado = &GetADODBConnection();
	$MaxAllowed = $this->MessagesAtOnce;

	$del_sql = array();

	$NumToSend = $MaxAllowed - $this->MessagesSent;
	$sql = "SELECT * FROM ".$this->SourceTable." ORDER BY queued ASC LIMIT $NumToSend";
	$rs = $ado->Execute($sql);

	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$this->DeliverMail($data["toaddr"],$data["fromaddr"],$data["Subject"],$data["headers"],$data["message"],1);

	$del_sql[] = "DELETE FROM ".$this->SourceTable." WHERE queued=".$data["queued"];
	$rs->MoveNext();
	}

	$numdel = count($del_sql);
	for($i=0;$i<$numdel;$i++)
	{
	$sql = $del_sql[$i];
	if(strlen($sql))
	$ado->Execute($sql);
	if($objSession->HasSystemPermission("DEBUG.ITEM"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	}
	}

	function SendMail($From, $FromName, $ToAddr, $ToName, $Subject, $Text, $Html, $charset, $SendEvent,
	$FileName="",$FileLoc="",$QueueOnly=0,$extra_headers = array())
	{
	$HasFile = FALSE;
	$HasFile = (strlen($FileName)>0);
	$OB="----=_OuterBoundary_000";
	$boundary = "-----=".md5( uniqid (rand()));
	$f = "\"$FromName\" <".$From.">";
	$headers = "From: $f\n";
	$headers .= "MIME-Version: 1.0\n";

	$conn = &GetADODBConnection();
	$time = time();

	$sendTo = $ToName;

	if (strlen($sendTo) > 0) {
	$sendTo .= "($ToAddr)";
	}
	else {
	$sendTo = $ToAddr;
	}

	$sql = "INSERT INTO ".GetTablePrefix()."EmailLog VALUES ('', '$FromName', '$sendTo', '".str_replace("Subject:", "", $Subject)."', $time, '$SendEvent')";
	$conn->Execute($sql);

	if($HasFile)
	{
	//Messages start with text/html alternatives in OB
	$headers.="Content-Type: multipart/mixed;\n\tboundary=\"".$OB."\"\n\n";
	$msg.="--".$OB."\n";
	$msg.="Content-Type: multipart/alternative; boundary=\"$boundary\"\n\n";
	}
	else
	$headers .= "Content-Type: multipart/alternative; boundary=\"$boundary\"";
	if(is_array($extra_headers))
	{
	for($i=0;$i<count($extra_headers);$i++);
	{
	$headers .= $extra_headers[$i]."\n";
	}
	}

	$msg .="This is a multi-part message in MIME format.\n\n";

	$msg .= "--" . $boundary . "\n";
	$msg .= "Content-Type: text/plain; charset=\"$charset\"\r\n";
	$msg .= "Content-Transfer-Encoding: 8bit\r\n\r\n";
	$msg .= stripslashes($Text);
	$msg .= "\r\n\r\n";
	if(strlen($Html)>0)
	{
	$msg .= "--" . $boundary . "\n";
	$msg .= "Content-Type: text/html; charset=\"iso-8859-1\"\n";
	$msg .= "Content-Transfer-Encoding: 8bit\r\n\r\n";
	$msg .= stripslashes($Html);
	$msg .= "\r\n\r\n";
	}
	$msg .= "--" . $boundary . "--\n";
	if($HasFile)
	{
	if(!strlen($FileLoc))
	$FileLoc = $FileName;
	$FileName = basename($FileName);
	$msg .= "\n--".$OB."\n";
	$msg.="Content-Type: application/octetstream;\n\tname=\"".$FileName."\"\r\n";
	$msg.="Content-Transfer-Encoding: base64\n";
	$msg.="Content-Disposition: attachment;\n\tfilename=\"".$FileName."\"\r\n\r\n";

	//file goes here
	$fd=fopen ($FileLoc, "r");
	if($fd)
	{
	$FileContent=fread($fd,filesize($FileLoc));
	fclose ($fd);
	}
	$FileContent=chunk_split(base64_encode($FileContent));
	$msg.=$FileContent;
	$msg .= "--".$OB."\n";
	}

	if(strlen($ToName)>0)
	{
	$To = "\"$ToName\" <$ToAddr>";
	}
	else {
	$To = "<".$ToAddr.">";
	}

	//$headers.="To: $To\r\n";
	if($this->MessagesSent>$this->MessagesAtOnce \|\| $QueueOnly==1)
	{
	$this->EnqueueMail($ToAddr,$From,$Subject,$msg,$headers);
	}
	else
	{
	$this->DeliverMail($ToAddr,$From,$Subject,$msg,$headers);
	}
	}

	}
	?>

	Property changes on: trunk/kernel/include/emailmessage.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.35
	\ No newline at end of property
	+1.36
	\ No newline at end of property
	Index: trunk/kernel/include/parseditem.php
	===================================================================
	--- trunk/kernel/include/parseditem.php (revision 560)
	+++ trunk/kernel/include/parseditem.php (revision 561)
	@@ -1,2944 +1,2945 @@
	<?php
	global $ItemTypePrefixes;

	$ItemTypePrefixes = array();
	$ItemTagFiles = array();

	function RegisterPrefix($class,$prefix,$file)
	{
	global $ItemTypePrefixes, $ItemTagFiles;

	$ItemTypePrefixes[$class] = $prefix;
	$ItemTagFiles[$prefix] = $file;
	}

	class clsParsedItem extends clsItemDB
	{
	var $TagPrefix;
	var $Parser;
	var $AdminParser;

	function clsParsedItem($id=NULL)
	{
	global $TemplateRoot;

	$this->clsItemDB();
	$this->Parser = new clsTemplateList($TemplateRoot);
	$this->AdminParser = new clsAdminTemplateList();
	}

	/* function ParseObject($element)
	{
	$extra_attribs = ExtraAttributes($element->attributes);
	if(strtolower($element->name)==$this->TagPrefix)
	{
	$field = strtolower($element->attributes["_field"]);
	$tag = $this->TagPrefix."_".$field;
	$ret = $this->parsetag($tag);
	}
	return $ret;
	}
	*/
	function ParseTimeStamp($d,$attribs=array())
	{
	if( isset($attribs["_tz"]) )
	{
	$d = GetLocalTime($d,$objSession->Get("tz"));
	}
	$part = isset($attribs["_part"]) ? strtolower($attribs["_part"]) : '';
	if(strlen($part))
	{
	$ret = ExtractDatePart($part,$d);
	}
	else
	{
	if($d<=0)
	{
	$ret = "";
	}
	else
	$ret = LangDate($d);
	}
	return $ret;
	}

	function ParseObject($element)
	{
	global $objConfig, $objCatList, $var_list_update, $var_list, $n_var_list_update, $m_var_list_update;

	$extra_attribs = ExtraAttributes($element->attributes);
	$ret = "";

	if ($this->TagPrefix == "email" && strtolower($element->name) == "touser") {
	$this->TagPrefix = "touser";
	}

	if(strtolower($element->name)==$this->TagPrefix)
	{
	$field = strtolower($element->attributes["_field"]);
	switch($field)
	{
	case "id":
	$ret = $this->Get($this->id_field);
	break;
	case "resourceid":
	if(!$this->NoResourceId)
	$ret = $this->Get("ResourceId");
	break;
	case "category":
	$c = $objCatList->GetItem($this->Get("CategoryId"));
	if(is_object($c))
	{
	$ret = $c->parsetag($element->attributes["_cattag"]);
	}
	break;
	case "priority":
	if($this->Get("Priority")!=0)
	{
	$ret = (int)$this->Get("Priority");
	}
	else
	$ret = "";
	break;
	case "link":
	if(method_exists($this,"ItemURL"))
	{
	$ret = $this->ItemURL($element->attributes["_template"],FALSE,"");
	}
	break;
	case "cat_link":
	if(method_exists($this,"ItemURL"))
	{
	$ret = $this->ItemURL($element->attributes["_template"],TRUE,"");
	}
	break;
	case "fullpath":
	$ret = $this->Get("CachedNavbar");
	if(!strlen($ret))
	{
	if(is_numeric($this->Get("CategoryId")))
	{
	$c = $objCatList->GetItem($this->Get("CategoryId"));
	if(is_object($c))
	$ret = $c->Get("CachedNavbar");
	}
	else
	{
	if(method_exists($this,"GetPrimaryCategory"))
	{
	$cat = $this->GetPrimaryCategory();
	$c = $objCatList->GetItem($cat);
	if(is_object($c))
	$ret = $c->Get("CachedNavbar");
	}
	}
	}
	// $ret = $this->HighlightText($ret);
	break;

	case "relevance":
	$style = $element->attributes["_displaymode"];
	if(!strlen($style))
	$style = "numerical";
	switch ($style)
	{
	case "numerical":
	$ret = (100 * LangNumber($this->Get("Relevance"),1))."%";
	break;
	case "bar":
	$OffColor = $element->attributes["_offbackgroundcolor"];
	$OnColor = $element->attributes["_onbackgroundcolor"];
	$percentsOff = (int)(100 - (100 * $this->Get("Relevance"))); if ($percentsOff)
	{
	$percentsOn = 100 - $percentsOff;
	$ret = "<td width=\"$percentsOn%\" bgcolor=\"$OnColor\"><img src=\"img/s.gif\"></td><td width=\"$percentsOff%\" bgcolor=\"$OffColor\"><img src=\"img/s.gif\"></td>";
	}
	else
	$ret = "<td width=\"100%\" bgcolor=\"$OnColor\"><img src=\"img/s.gif\"></td>";
	break;
	case "graphical":
	$OnImage = $element->attributes["_onimage"];
	if (!strlen($OnImage))
	break;
	// Get image extension
	$image_data = explode(".", $OnImage);
	$image_ext = $image_data[count($image_data)-1];
	unset($image_data[count($image_data)-1]);
	$rel = (10 * LangNumber($this->Get("Relevance"),1));
	$OnImage1 = join(".", $image_data);

	if ($rel)
	$img_src = $OnImage1."_".$rel.".".$image_ext;
	else
	$img_src = $OnImage;

	$ret = "<img src=\"$img_src\" border=\"0\" alt=\"".(10*$rel)."\">";
	break;
	}

	break;

	case "rating":
	$style = $element->GetAttributeByName("_displaymode");
	if(!strlen($style))
	$style = "numerical";
	switch($style)
	{
	case "numerical":
	$ret = LangNumber($this->Get("CachedRating"),1);
	break;
	case "text":
	$ret = RatingText($this->Get("CachedRating"));
	break;
	case "graphical":
	$OnImage = $element->attributes["_onimage"];
	$OffImage = $element->attributes["_offimage"];
	$images = RatingTickImage($this->Get("CachedRating"),$OnImage,$OffImage);

	for($i=1;$i<=count($images);$i++)
	{
	$url = $images[$i];
	if(strlen($url))
	{
	$ret .= "<IMG src=\"$url\" $extra_attribs >";
	$ret .= $element->attributes["_separator"];
	}
	}
	break;
	}
	break;
	case "reviews":
	$today = FALSE;

	if(method_exists($this,"ReviewCount"))
	{
	if($element->GetAttributeByName("_today"))
	$today = TRUE;
	$ret = $this->ReviewCount($today);
	}
	else
	$ret = "";

	break;
	case "votes":
	$ret = (int)$this->Get("CachedVotesQty");
	break;

	case "favorite":
	if(method_exists($this,"IsFavorite"))
	{
	if($this->IsFavorite())
	{
	$ret = $element->attributes["_label"];
	if(!strlen($ret))
	$ret = "lu_favorite";
	$ret = language($ret);
	}
	else
	$ret = "";
	}
	break;
	case "new":
	if(method_exists($this,"IsNewItem"))
	{
	if($this->IsNewItem())
	{
	$ret = $element->GetAttributeByName('_label');
	if(!strlen($ret))
	$ret = "lu_new";
	$ret = language($ret);
	}
	else
	$ret = "";
	}
	break;
	case "pop":
	if(method_exists($this,"IsPopItem"))
	{
	if($this->IsPopItem())
	{
	$ret = $element->attributes["_label"];
	if(!strlen($ret))
	$ret = "lu_pop";
	$ret = language($ret);
	}
	else
	$ret = "";
	}
	break;
	case "hot":
	if(method_exists($this,"IsHotItem"))
	{
	if($this->IsHotItem())
	{
	$ret = $element->GetAttributeByName("_label");
	if(!strlen($ret))
	$ret = "lu_hot";
	$ret = language($ret);
	}
	else
	$ret = "";
	}
	break;
	case "pick":
	if($this->Get("EditorsPick")==1)
	{
	$ret = $element->GetAttributeByName('_label');
	if(!strlen($ret))
	$ret = "lu_pick";
	$ret = language($ret);
	}
	else
	$ret = "";
	break;
	case "admin_icon":
	if(method_exists($this,"StatusIcon"))
	{
	if($element->GetAttributeByName("fulltag"))
	{
	$ret = "<IMG $extra_attribs SRC=\"".$this->StatusIcon()."\">";
	}
	else
	$ret = $this->StatusIcon();
	}
	break;
	case "custom":
	if(method_exists($this,"GetCustomFieldValue"))
	{
	$field = $element->attributes["_customfield"];
	$default = $element->attributes["_default"];
	if (strlen($field))
	$ret = $this->GetCustomFieldValue($field,$default);
	}
	break;
	case "image":
	$default = $element->attributes["_primary"];
	$name = $element->attributes["_name"];

	if(strlen($name))
	{
	$img = $this->GetImageByName($name);
	}
	else
	{
	if($default)
	$img = $this->GetDefaultImage();
	}

	if(is_object($img))
	{

	if(strlen($element->attributes["_imagetemplate"]))
	{
	$ret = $img->ParseTemplate($element->attributes["_imagetemplate"]);
	break;
	}
	else
	{
	if($element->attributes["_thumbnail"])
	{
	$url = $img->parsetag("thumb_url");
	}
	else
	{

	if(!$element->attributes["_nothumbnail"])
	{
	$url = $img->parsetag("image_url");
	}
	else
	{
	$url = $img->FullURL(TRUE,"");
	}
	}
	}
	}
	else
	{
	$url = $element->attributes["_defaulturl"];

	}

	if($element->attributes["_imagetag"])
	{
	if(strlen($url))
	{
	$ret = "<IMG src=\"$url\" $extra_attribs >";
	}
	else
	$ret = "";
	}
	else
	$ret = $url;
	break;
	default:
	$ret = "Undefined:".$element->name;
	break;
	}

	}
	else if ($this->TagPrefix == 'email'){
	$ret = "Undefined:".$element->name;
	}
	return $ret;
	}

	function ParseString($name)
	{
	$el = new clsHtmlTag();
	$el->Clear();
	$el->prefix = "inp";
	$el->name = $name;

	$numargs = func_num_args();
	$arg_list = func_get_args();
	for ($i = 1; $i < $numargs; $i++)
	{
	$attr = $arg_list[$i];
	$parts = explode("=",$attr,2);
	$name = $parts[0];
	$val = $parts[1];
	$el->attributes[$name] = $val;
	}
	return $this->ParseObject($el);
	}

	/* pass attributes as strings
	ie: ParseStringEcho('tagname','_field="something" _data="somethingelse"');
	*/
	function ParseStringEcho($name)
	{
	$el = new clsHtmlTag();
	$el->Clear();
	$el->prefix = "inp";
	$el->name = $name;

	$numargs = func_num_args();
	$arg_list = func_get_args();
	for ($i = 1; $i < $numargs; $i++)
	{
	$attr = $arg_list[$i];
	$parts = explode("=",$attr,2);
	$name = $parts[0];
	$val = $parts[1];
	$el->attributes[$name] = $val;
	}
	echo $this->ParseObject($el);
	}

	function ParseElement($raw, $inner_html ="")
	{
	$tag = new clsHtmlTag($raw);
	$tag->inner_html = $inner_html;

	if($tag->parsed)
	{
	if($tag->name=="include" \|\| $tag->name=="perm_include" \|\| $tag->name=="lang_include")
	{
	$output = $this->Parser->IncludeTemplate($tag);
	}
	else
	{
	$output = $this->ParseObject($tag);
	//echo $output."<br>";
	if(substr($output,0,9)=="Undefined")
	{
	$output = $tag->Execute();
	// if(substr($output,0,8)="{Unknown")
	// $output = $raw;
	} return $output;
	}
	}
	else
	return "";
	}

	function AdminParseTemplate($file)
	{
	$html = "";
	$t = $this->AdminParser->GetTemplate($file);

	if(is_object($t))
	{
	array_push($this->AdminParser->stack,$file);
	$html = $t->source;
	$next_tag = strpos($html,"<inp:");
	while($next_tag)
	{
	$end_tag = strpos($html,"/>",$next_tag);
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+2);
	$pre = substr($html,0,$next_tag);
	$post = substr($html,$end_tag+2);
	$inner = $this->ParseElement($tagtext);
	$html = $pre.$inner.$post;
	$next_tag = strpos($html,"<inp:");
	}
	array_pop($this->AdminParser->stack);
	}
	return $html;
	}

	function ParseTemplateText($text)
	{
	$html = $text;
	$search = "<inp:".$this->TagPrefix;
	//$next_tag = strpos($html,"<inp:");
	$next_tag = strpos($html,$search);


	while($next_tag)
	{
	$closer = strpos(strtolower($html),">",$next_tag);
	$end_tag = strpos($html,"/>",$next_tag);
	if($end_tag < $closer \|\| $closer == 0)
	{
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+2);
	$pre = substr($html,0,$next_tag);
	$post = substr($html,$end_tag+2);
	$inner = $this->ParseElement($tagtext);
	$html = $pre.$inner.$post;
	}
	else
	{

	$OldTagStyle = "</inp>";

	## Try to find end of TagName
	$TagNameEnd = strpos($html, " ", $next_tag);

	## Support Old version
	// $closer = strpos(strtolower($html),"</inp>",$next_tag);
	if ($TagNameEnd)
	{
	$Tag = strtolower(substr($html, $next_tag, $TagNameEnd-$next_tag));
	$TagName = explode(":", $Tag);
	if (strlen($TagName[1]))
	$CloserTag = "</inp:".$TagName[1].">";
	}
	else
	{
	$CloserTag = $OldTagStyle;
	}

	$closer = strpos(strtolower($html), $CloserTag, $next_tag);

	## Try to find old tag closer
	if (!$closer && ($CloserTag != $OldTagStyle))
	{
	$CloserTag = $OldTagStyle;
	$closer = strpos(strtolower($html), $CloserTag, $next_tag);
	}

	$end_tag = strpos($html,">",$next_tag);
	$tagtext = substr($html,$next_tag,($end_tag - $next_tag)+1);
	$pre = substr($html,0,$next_tag);
	$inner = substr($html,$end_tag+1,$closer-($end_tag+1));
	$post = substr($html,$end_tag+1+strlen($inner) + strlen($CloserTag));
	//echo "PRE:". htmlentities($pre,ENT_NOQUOTES);
	//echo "INNER:". htmlentities($inner,ENT_NOQUOTES);
	//echo "POST:". htmlentities($post,ENT_NOQUOTES);

	$parsed = $this->ParseElement($tagtext);
	if(strlen($parsed))
	{
	$html = $pre.$this->ParseTemplateText($inner).$post;
	}
	else
	$html = $pre.$post;
	}
	$next_tag = strpos($html,$search);
	}
	return $html;
	}

	function ParseTemplate($tname)
	{
	global $objTemplate, $LogLevel,$ptime,$timestart;

	//echo 'Saving ID'.$this->UniqueId().' in Main parseTempalate<br>';
	//$GLOBALS[$this->TagPrefix.'_ID'] = $this->UniqueId();
	LogEntry("Parsing $tname\n");
	$LogLevel++;
	$html = "";
	$t = $objTemplate->GetTemplate($tname);
	//$t = $this->Parser->GetTemplate($tname);
	if( is_array($this->Parser->stack) ) $this->Parser->stack = Array();
	if(is_object($t))
	{
	array_push($this->Parser->stack,$tname);
	$html = $t->source;

	$html = $this->ParseTemplateText($html);
	array_pop($this->Parser->stack);
	}
	$LogLevel--;
	LogEntry("Finished Parsing $tname\n");
	$ptime = round(getmicrotime() - $timestart,6);
	$xf = 867530; //Download ID
	if($xf != 0)
	{
	$x2 = substr($ptime,-6);
	$ptime .= $xf ^ $x2; //(1/1000);
	}
	return $html;
	}

	function SendUserEventMail($EventName,$ToUserId,$LangId=NULL,$RecptName=NULL)
	{
	global $objMessageList,$FrontEnd;

	$Event =& $objMessageList->GetEmailEventObject($EventName,0,$LangId);

	if(is_object($Event))
	{
	if($Event->Get("Enabled")=="1" \|\| ($Event->Get("Enabled")==2 && $FrontEnd))
	{
	$Event->Item = $this;
	if(is_numeric($ToUserId))
	{
	return $Event->SendToUser($ToUserId);
	}
	else
	return $Event->SendToAddress($ToUserId,$RecptName);
	}
	}
	}

	function SendAdminEventMail($EventName,$LangId=NULL)
	{
	global $objMessageList,$FrontEnd;

	//echo "Firing Admin Event $EventName <br>\n";
	$Event =& $objMessageList->GetEmailEventObject($EventName,1,$LangId);
	if(is_object($Event))
	{
	if($Event->Get("Enabled")=="1" \|\| ($Event->Get("Enabled")==2 && $FrontEnd))
	{
	$Event->Item = $this;
	//echo "Admin Event $EventName Enabled <br>\n";
	return $Event->SendAdmin($ToUserId);
	}
	}
	}

	function parse_template($t)
	{
	}

	}

	class clsItemCollection
	{
	var $Items;
	var $CurrentItem;
	var $adodbConnection;
	var $classname;
	var $SourceTable;
	var $LiveTable;
	var $QueryItemCount;
	var $AdminSearchFields = array();
	var $SortField;
	var $debuglevel;
	var $id_field = null; // id field for list item
	var $BasePermission;
	var $Dummy = null;

	function SetTable($action, $table_name = null) // new by Alex
	{
	// $action = {'live', 'restore','edit'}
	switch($action)
	{
	case 'live':
	$this->LiveTable = $table_name;
	$this->SourceTable = $this->LiveTable;
	break;
	case 'restore':
	$this->SourceTable = $this->LiveTable;
	break;
	case 'edit':
	global $objSession;
	$this->SourceTable = $objSession->GetEditTable($this->LiveTable);
	break;
	}
	}

	function &GetDummy() // new by Alex
	{
	if( !isset($this->Dummy) )
	$this->Dummy =& new $this->classname();
	$this->Dummy->tablename = $this->SourceTable;
	return $this->Dummy;
	}

	function clsItemCollection()
	{

	$this->adodbConnection = &GetADODBConnection();

	$this->Clear();
	$this->BasePermission="";
	}

	function GetIDField() // new by Alex
	{
	// returns id field for list item
	if( !isset($this->id_field) )
	{
	$dummy =& $this->GetDummy();
	$this->id_field = $dummy->IdField();
	}
	return $this->id_field;
	}

	function &GetNewItemClass()
	{
	return new $this->classname();
	}

	function Clear()
	{
	unset($this->Items);
	$this->Items = array();
	$this->CurrentItem=0;
	}

	function &SetCurrentItem($id)
	{
	$this->CurrentItem=$id;
	return $this->GetItem($id);
	}

	function &GetCurrentItem()
	{
	if($this->CurrentItem>0)
	{
	return $this->GetItem($this->CurrentItem);
	}
	else
	return FALSE;
	}

	function NumItems()
	{
	if(is_array($this->Items))
	{
	// echo "TEST COUNT: ".count($this->Items)."<BR>";
	return count($this->Items);
	}
	else
	return 0;
	}

	function ItemLike($index, $string)
	{
	// check if any of the item field
	// even partially matches $string
	$found = false;
	$string = strtolower($string);
	$item_data = $this->Items[$index]->GetData();
	foreach($item_data as $field => $value)
	if( in_array($field, $this->AdminSearchFields) )
	if( strpos(strtolower($value), $string) !== false)
	{
	$found = true;
	break;
	}
	return $found;
	}

	function DeleteItem($index) // by Alex
	{
	// deletes item with specific index from list
	$i = $index; $item_count = $this->NumItems();
	while($i < $item_count - 1)
	{
	$this->Items[$i] = $this->Items[$i + 1];
	$i++;
	}
	unset($this->Items[$i]);
	}

	function ShowItems()
	{
	$i = 0; $item_count = $this->NumItems();
	while($i < $item_count)
	{
	echo "Item No <b>$i</b>:<br>";
	$this->Items[$i]->PrintVars();
	$i++;
	}
	}

	function SwapItems($Index,$Index2)
	{
	$temp = $this->Items[$Index]->GetData();
	$this->Items[$Index]->SetData($this->Items[$Index2]->GetData());
	$this->Items[$Index2]->SetData($temp);

	}

	function CopyResource($OldId,$NewId)
	{
	$this->Clear();

	$sql = "SELECT * FROM ".$this->SourceTable." WHERE ResourceId=$OldId";
	$this->Query_Item($sql);
	// echo $sql."<br>\n";
	if($this->NumItems()>0)
	{
	foreach($this->Items as $item)
	{
	$item->UnsetIdField();
	$item->Set("ResourceId",$NewId);
	$item->Create();
	}
	}
	}
	function ItemsOnClipboard()
	{
	global $objSession;
	$clip = $objSession->GetPersistantVariable("ClipBoard");
	$count = 0;
	$table = $this->SourceTable;
	$prefix = GetTablePrefix();


	if(substr($table,0,strlen($prefix))==$prefix)
	$table = substr($table,strlen($prefix));


	if(strlen($clip))
	{
	$clipboard = ParseClipboard($clip);
	if($clipboard["table"] == $table)
	{
	$count = count(explode(",",$clipboard["ids"]));
	}
	else
	$count = 0;
	}
	else
	$count = 0;

	return $count;
	}

	function CopyToClipboard($command,$idfield, $idlist)
	{
	global $objSession,$objCatList;

	if(is_array($idlist))
	{
	$list = implode(",",$idlist);
	}
	else
	$list = $idlist;
	$clip = $command."-".$objCatList->CurrentCategoryID().".".$this->SourceTable.".$idfield=".$list;

	$objSession->SetVariable("ClipBoard",$clip);
	}

	function SortItems($asc=TRUE)
	{
	$done = FALSE;

	$field = $this->SortField;
	$ItemCount = $this->NumItems();
	while(!$done)
	{
	$done=TRUE;
	for($i=1;$i<$this->NumItems();$i++)
	{
	$doswap = FALSE;
	if($asc)
	{
	$val1 = $this->Items[$i-1]->Get($field);
	$val2 = $this->Items[$i]->Get($field);
	$doswap = ($val1 > $val2);
	}
	else
	{
	$val1 = $this->Items[$i-1]->Get($field);
	$val2 = $this->Items[$i]->Get($field);
	$doswap = ($val1 < $val2);
	}
	if($doswap)
	{
	$this->SwapItems($i-1,$i);
	$done = FALSE;
	}

	}
	}
	}

	function &GetItem($ID,$LoadFromDB=TRUE)
	{
	$found=FALSE;

	if(is_array($this->Items) && count($this->Items) )
	{
	for($x=0;$x<count($this->Items);$x++)
	{
	$i =& $this->GetItemRefByIndex($x);
	if($i->UniqueID()==$ID)
	{
	$found=TRUE;
	break;
	}
	}
	}

	if(!$found)
	{
	if($LoadFromDB)
	{
	$n = NULL;
	$n = new $this->classname();
	$n->tablename = $this->SourceTable;
	$n->LoadFromDatabase($ID);
	$index = array_push($this->Items, $n);
	$i =& $this->Items[count($this->Items)-1];
	}
	else
	$i = FALSE;
	}
	return $i;
	}

	function GetItemByIndex($index)
	{
	return $this->Items[$index];
	}

	function &GetItemRefByIndex($index)
	{
	return $this->Items[$index];
	}

	function &GetItemByField($Field,$Value,$LoadFromDB=TRUE)
	{
	$found=FALSE;

	if(is_array($this->Items))
	{
	foreach($this->Items as $i)
	{
	if($i->Get($Field)==$Value)
	{
	$found = TRUE;
	break;
	}
	}
	}
	if(!$found && $LoadFromDB==TRUE)
	{
	$sql = "SELECT * FROM ".$this->SourceTable." WHERE $Field = '$Value'";
	//echo $sql;
	$res = $this->adodbConnection->Execute($sql);

	if($res && !$res->EOF)
	{
	$i = $this->AddItemFromArray($res->fields);
	$i->tablename = $this->SourceTable;
	$i->Clean();
	}
	else
	$i = FALSE;
	}

	return $i;
	}

	function GetPage($Page, $ItemsPerPage)
	{
	$result = array_slice($this->Items, ($Page * $ItemsPerPage) - $ItemsPerPage, $ItemsPerPage);
	return $result;
	}

	function GetNumPages($ItemsPerPage)
	{
	if( isset($_GET['reset']) && $_GET['reset'] == 1) $this->Page = 1;
	return GetPageCount($ItemsPerPage,$this->QueryItemCount);
	}

	function &AddItemFromArray($data, $clean=FALSE)
	{
	$class = new $this->classname;
	$class->SetFromArray($data);
	$class->tablename = $this->SourceTable;
	if($clean==TRUE)
	$class->Clean();
	//array_push($this->Items,$class);
	$this->Items[] =& $class;
	return $class;
	}

	function Query_Item($sql, $offset=-1,$rows=-1)
	{
	global $Errors;
	//echo "Method QItem [<b>".get_class($this).'</b>], sql: ['.$sql.']<br>';
	//if( get_class($this) == 'clsthemefilelist') trace();
	$dummy =& $this->GetDummy();
	if( !$dummy->TableExists() )
	{
	if($this->debuglevel) echo "ERROR: table <b>".$dummy->tablename."</b> missing.<br>";
	$this->Clear();
	return false;
	}

	if($rows>-1 && $offset>-1)
	{
	//echo "<b>Executing SelectLimit</b> $sql <b>Offset:</b> $offset,$rows<br>\n";
	$result = $this->adodbConnection->SelectLimit($sql, $rows,$offset);
	}
	else {
	$result = $this->adodbConnection->Execute($sql);
	}

	if ($result === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Query_Item");
	if($this->debuglevel) {
	echo '<br><br>'.$sql.'<br><br>';
	echo "Error: ".$this->adodbConnection->ErrorMsg()."<br>";
	}
	$this->Clear();
	return false;
	}

	$this->Clear();

	if($this->debuglevel > 0)
	{
	echo "This SQL: $sql<br>";
	if( ($this->debuglevel > 1) && ($result->RecordCount() > 0) )
	{
	echo '<pre>'.print_r($result->GetRows(), true).'</pre>';
	$result->MoveFirst();
	}
	}
	LogEntry("SQL Loop Start\n");
	$count = 0;

	while ($result && !$result->EOF)
	{
	$count++;
	$data = $result->fields;
	$this->AddItemFromArray($data,TRUE);
	if( defined('ADODB_EXTENSION') && constant('ADODB_EXTENSION') > 0 )
	adodb_movenext($result);
	else
	$result->MoveNext();
	}

	LogEntry("SQL Loop End ($count iterations)\n");
	$result->Free();
	return $this->Items;
	}

	function GetOrderClause($FieldVar,$OrderVar,$DefaultField,$DefaultVar,$Priority=TRUE,$UseTableName=FALSE)
	{
	global $objConfig, $objSession;

	if($UseTableName)
	{
	$TableName = $this->SourceTable.".";
	}
	else
	$TableName = "";

	$PriorityClause = $TableName."EditorsPick DESC, ".$TableName."Priority DESC";

	if(strlen(trim($FieldVar))>0)
	{
	if(is_object($objSession))
	{
	if(strlen($objSession->GetPersistantVariable($FieldVar))>0)
	{
	$OrderBy = trim($TableName.$objSession->GetPersistantVariable($FieldVar) . " ".
	$objSession->GetPersistantVariable($OrderVar));
	$FieldUsed = $objSession->GetPersistantVariable($FieldVar);
	}
	}
	$OrderBy = trim($OrderBy);
	if (strlen(trim($OrderBy))==0)
	{
	if(!$UseTableName)
	{
	$OrderBy = trim($DefaultField." ".$DefaultVar);
	}
	else
	{
	if(strlen(trim($DefaultField))>0)
	{
	$OrderBy = $this->SourceTable.".".$DefaultField.".".$DefaultVar;
	}
	$FieldUsed=$DefaultField;
	}
	}
	}
	if(($FieldUsed != "Priority" \|\| strlen($OrderBy)==0) && $Priority==TRUE)
	{
	if(strlen($OrderBy)==0)
	{
	$OrderBy = $PriorityClause;
	}
	else
	$OrderBy = $PriorityClause.", ".$OrderBy;
	}
	return $OrderBy;
	}

	function GetResourceIDList()
	{
	$ret = array();
	foreach($this->Items as $i)
	array_push($ret,$i->Get("ResourceId"));
	return $ret;
	}

	function GetFieldList($field)
	{
	$ret = array();
	foreach($this->Items as $i)
	array_push($ret,$i->Get($field));
	return $ret;
	}

	function SetCommonField($FieldName,$FieldValue)
	{
	for($i=0;$i<$this->NumItems();$i++)
	{
	$this->Items[$i]->Set($FieldName,$fieldValue);
	$this->Items[$i]->Update();
	}
	}

	function ClearCategoryItems($CatId,$CatTable = "CategoryItems")
	{
	$CatTable = AddTablePrefix($CatTable);
	$sql = "SELECT * FROM ".$this->SourceTable." INNER JOIN $CatTable ".
	" ON (".$this->SourceTable.".ResourceId=$CatTable.ItemResourceId) WHERE CategoryId=$CatId";
	$this->Clear();
	$this->Query_Item($sql);
	if($this->NumItems()>0)
	{
	foreach($this->Items as $i)
	{
	$i->DeleteCategoryItems($CatId,$CatTable);
	}
	}
	}

	function CopyToEditTable($idfield = null, $idlist = 0)
	{
	global $objSession;

	if($idfield == null) $idfield = $this->GetIDField();
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	if(is_array($idlist))
	{
	$list = implode(",",$idlist);
	}
	else
	$list = $idlist;
	$query = "SELECT * FROM ".$this->SourceTable." WHERE $idfield IN ($list)";
	$insert = "CREATE TABLE ".$edit_table." ".$query;
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	$this->adodbConnection->Execute($insert);
	}

	function CreateEmptyEditTable($idfield = null)
	- {
	+ {
	global $objSession;
	if($idfield == null) $idfield = $this->GetIDField();

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	$query = "SELECT * FROM ".$this->SourceTable." WHERE $idfield = -1";
	$insert = "CREATE TABLE ".$edit_table." ".$query;
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	$this->adodbConnection->Execute($insert);
	+ //echo $insert."<br>";
	}

	function CopyFromEditTable($idfield = null)
	{
	global $objSession;

	$dropRelTableFlag = false;
	if($idfield == null) $idfield = $this->GetIDField();
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	$sql = "SELECT * FROM $edit_table";
	$rs = $this->adodbConnection->Execute($sql);

	//echo "In Main <b>CopyFromEditTable</b> in class <b>".get_class($this).'</b><br>';
	//echo $sql."<BR>";

	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = new $this->classname;
	$c->SetFromArray($data);
	$c->idfield = $idfield;
	$c->Dirty();
	if($c->Get($idfield) < 1)
	{
	$old_id = $c->Get($idfield);
	$c->UnsetIdField();
	if(!is_numeric($c->Get("OrgId")) \|\| $c->Get("OrgId")==0)
	{
	$c->Clean(array("OrgId"));
	}
	else
	{
	if($c->Get("Status") != -2)
	{
	$org = new $this->classname();
	$org->LoadFromDatabase($c->Get("OrgId"));
	$org->DeleteCustomData();
	$org->Delete(TRUE);
	$c->Set("OrgId",0);
	}
	}
	$c->Create();
	}
	if(is_numeric($c->Get("ResourceId")))
	{
	if( isset($c->Related) && is_object($c->Related) )
	{
	$r = $c->Related;
	$r->CopyFromEditTable($c->Get("ResourceId"));
	$dropRelTableFlag = true;
	}

	unset($r);

	if( isset($c->Reviews) && is_object($c->Reviews) )
	{
	$r = $c->Reviews;
	$r->CopyFromEditTable($c->Get("ResourceId"));
	}
	}
	if(!is_numeric($c->Get("OrgId")) \|\| $c->Get("OrgId")==0)
	{
	$c->Clean(array("OrgId"));
	}
	else
	{
	if($c->Get("Status") != -2)
	{
	$org = new $this->classname();
	$org->LoadFromDatabase($c->Get("OrgId"));
	$org->DeleteCustomData();
	$org->Delete(TRUE);
	$c->Set("OrgId",0);
	}
	}

	if(method_exists($c,"CategoryMemberList"))
	{
	$cats = $c->CategoryMemberList($objSession->GetEditTable("CategoryItems"));
	$ci_table = $objSession->GetEditTable('CategoryItems');
	$primary_cat = $c->GetPrimaryCategory($ci_table);
	$c->Update();
	UpdateCategoryItems($c,$cats,$primary_cat);
	}
	else
	$c->Update();

	unset($c);
	unset($r);

	$rs->MoveNext();
	}

	if ($dropRelTableFlag)
	{
	$objRelGlobal = new clsRelationshipList();
	$objRelGlobal->PurgeEditTable();
	}

	if($edit_table) @$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS ".$objSession->GetEditTable("CategoryItems"));
	}

	function GetNextTempID()
	{
	// get next temporary id (lower then zero) from temp table
	$db =& $this->adodbConnection;
	$sql = 'SELECT MIN(%s) AS MinValue FROM %s';
	return $db->GetOne( sprintf($sql, $this->GetIDField(), $this->SourceTable) ) - 1;
	}

	function PurgeEditTable($idfield = null)
	{
	global $objSession;

	if($idfield == null) $idfield = $this->GetIDField();
	$edit_table = $objSession->GetEditTable($this->SourceTable);
	/* $rs = $this->adodbConnection->Execute("SELECT * FROM $edit_table");
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = new $this->classname;
	$c->SetFromArray($data);
	$c->id_field = $idfield;
	$c->tablename = $edit_table;
	$c->Delete();
	$rs->MoveNext();
	}*/
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS ".$objSession->Get("CategoryItems"));
	}

	function CopyCatListToEditTable($idfield, $idlist)
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable("CategoryItems");
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	if(is_array($idlist))
	{
	$list = implode(",",$idlist);
	}
	else
	$list = $idlist;
	$query = "SELECT * FROM ".GetTablePrefix()."CategoryItems WHERE $idfield IN ($list)";

	$insert = "CREATE TABLE ".$edit_table." ".$query;
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	$this->adodbConnection->Execute($insert);
	}

	function CreateEmptyCatListTable($idfield)
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable("CategoryItems");
	@$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	$query = "SELECT * FROM ".GetTablePrefix()."CategoryItems WHERE $idfield = -1";
	$insert = "CREATE TABLE ".$edit_table." ".$query;
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($insert,ENT_NOQUOTES)."<br>\n";
	$this->adodbConnection->Execute($insert);
	}


	function PurgeCatListEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable("CategoryItems");
	$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	function AdminSearchWhereClause($SearchList)
	{
	$sql = "";
	if( !is_array($SearchList) ) $SearchList = explode(",",$SearchList);
	if( !count($SearchList) \|\| !count($this->AdminSearchFields) ) return '';

	for($f = 0; $f < count($SearchList); $f++)
	{
	$value = $SearchList[$f];
	if( strlen($value) )
	{
	$inner_sql = "";
	for($i = 0; $i < count($this->AdminSearchFields); $i++)
	{
	$field = $this->AdminSearchFields[$i];
	if( strlen( trim($value) ) )
	{
	if( strlen($inner_sql) ) $inner_sql .= " OR ";
	$inner_sql .= $field." LIKE '%".$value."%'";
	}
	}
	if( strlen($inner_sql) )
	{
	$sql .= '('.$inner_sql.') ';
	if($f < count($SearchList) - 1) $sql .= " AND ";
	}
	}
	}
	return $sql;
	}

	function BackupData($OutFileName,$Start,$Limit)
	{
	$fp=fopen($Outfile,"a");
	if($fp)
	{
	if($Start==1)
	{
	$sql = "DELETE FROM ".$this->SourceTable;
	fputs($fp,$sql);
	}
	$this->Query_Item("SELECT * FROM ".$this->SourceTable." LIMIT $Start, $Limit");
	foreach($this->Items as $i)
	{
	$sql = $i->CreateSQL();
	fputs($fp,$sql);
	}
	fclose($fp);
	$this->Clear();
	}
	}

	function RestoreData($InFileName,$Start,$Limit)
	{
	$res = -1;
	$fp=fopen($InFileName,"r");
	if($fp)
	{
	fseek($fp,$Start);
	$Line = 0;
	while($Line < $Limit)
	{
	$sql = fgets($fp,16384);
	$this->adodbConnection->Execute($sql);
	$Line++;
	}
	$res = ftell($fp);
	fclose($fp);
	}
	return $res;
	}

	function Delete_Item($Id)
	{
	global $objCatList;

	$l =& $this->GetItem($Id);
	$l->BasePermission=$this->BasePermission;
	$l->DeleteCategoryItems($objCatList->CurrentCategoryID());
	}

	function Move_Item($Id, $OldCat, $ParentTo)
	{
	global $objCatList;

	$l = $this->GetItem($Id);
	$l->BasePermission=$this->BasePermission;
	$l->AddtoCategory($ParentTo);
	$l->RemoveFromCategory($OldCat);
	}

	function Copy_Item($Id, $ParentTo)
	{
	$l = $this->GetItem($Id);
	$l->BasePermission=$this->BasePermission;
	$l->AddtoCategory($ParentTo);
	}

	}/* clsItemCollection */

	class clsItemList extends clsItemCollection
	{
	var $Page;
	var $PerPageVar;
	var $DefaultPerPage; // use this perpage value in case if no found in config
	var $EnablePaging;
	var $MaxListCount = 0;
	var $PageEnvar;
	var $PageEnvarIndex;
	var $ListType;

	function clsItemList()
	{
	$this->clsItemCollection();
	$this->EnablePaging = TRUE;
	$this->PageEnvarIndex = "p";
	}

	function GetPageLimitSQL()
	{
	global $objConfig;
	$limit = NULL;
	if($this->EnablePaging)
	{
	if($this->Page<1)
	$this->Page=1;
	//echo "Limited to ".$objConfig->Get($this->PerPageVar)." items per page<br>\n";
	if(is_numeric($objConfig->Get($this->PerPageVar)))
	{
	$Start = ($this->Page-1)*$objConfig->Get($this->PerPageVar);
	$limit = "LIMIT ".$Start.",".$objConfig->Get($this->PerPageVar);
	}
	else
	$limit = NULL;
	}
	else
	{
	if($this->MaxListCount)
	{
	$limit = "LIMIT 0, $MaxListCount";
	}
	}
	return $limit;
	}

	function GetPageOffset()
	{
	$Start = 0;
	if($this->EnablePaging)
	{
	if($this->Page < 1) $this->Page = 1;
	$PerPage = $this->GetPerPage();
	$Start = ($this->Page - 1) * $PerPage;
	}
	else
	{
	if((int)$this->MaxListCount == 0) $Start = -1;
	}
	return $Start;
	}

	function GetPageRowCount()
	{
	if($this->EnablePaging)
	{
	if($this->Page < 1) $this->Page = 1;
	return $this->GetPerPage();
	}
	else
	return (int)$this->MaxListCount;
	}

	function Query_Item($sql,$limit = null, $fix_method = 'set_first')
	{
	// query itemlist (module items) using $sql specified
	// apply direct limit clause ($limit) or calculate it if not specified
	// fix invalid page in case if needed by method specified in $fix_method
	if(strlen($limit))
	{
	$sql .= " ".$limit;
	return parent::Query_Item($sql);
	}
	else
	{
	//echo "page fix pre (class: ".get_class($this).")<br>";
	$this->QueryItemCount = QueryCount($sql); // must get total item count before fixing
	$this->FixInvalidPage($fix_method);

	// specially made for cats delete
	if ( GetVar('Action', true) != 'm_cat_delete') {
	return parent::Query_Item($sql,$this->GetPageOffset(),$this->GetPageRowCount());
	}
	else {
	return parent::Query_Item($sql);
	}
	}
	}

	function Query_List($whereClause,$orderByClause=NULL,$JoinCats=TRUE,$fix_method='set_first')
	{
	global $objSession, $Errors;

	if($JoinCats)
	{
	$cattable = GetTablePrefix()."CategoryItems";
	$t = $this->SourceTable;
	$sql = "SELECT *,CategoryId FROM $t INNER JOIN $cattable ON $cattable.ItemResourceId=$t.ResourceId";
	}
	else
	$sql = "SELECT * FROM ". $this->SourceTable;
	if(trim($whereClause)!="")
	{
	if(isset($whereClause))
	$sql = sprintf('%s WHERE %s',$sql,$whereClause);
	}
	if(strlen($orderByClause)>0)
	{
	if(substr($orderByClause,0,8)=="ORDER BY")
	{
	$sql .= " ".$orderByClause;
	}
	else
	{
	$sql .= " ORDER BY $orderByClause";
	}
	}

	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo $sql."<br>\n";

	return $this->Query_Item($sql, null, $fix_method);
	}

	function GetPerPage()
	{
	// return category perpage
	global $objConfig;
	$PerPage = $objConfig->Get( $this->PerPageVar );
	if( !is_numeric($PerPage) ) $PerPage = $this->DefaultPerPage ? $this->DefaultPerPage : 10;
	return $PerPage;
	}

	function FixInvalidPage($fix_method = 'set_first')
	{
	// in case if current page > total page count,
	// then set current page to last possible "set_last"
	// or first possible "set_first"
	$PerPage = $this->GetPerPage();
	$NumPages = ceil( $this->GetNumPages($PerPage) );
	/*
	echo "=====<br>";
	echo "Class <b>".get_class($this)."</b>: Page ".$this->Page." of $NumPages<br>";
	echo "PerPage: $PerPage<br>";
	echo "Items Queries: ".$this->QueryItemCount."<br>";
	echo "=====<br>";
	*/
	if($this->Page > $NumPages)
	{
	switch($fix_method)
	{
	case 'set_first':
	$this->Page = 1;
	//echo "Move 2 First (class <b>".get_class($this)."</b>)<br>";
	break;
	case 'set_last':
	$this->Page = $NumPages;
	//echo "Move 2 Last (class <b>".get_class($this)."</b>)<br>";
	break;
	}
	$this->SaveNewPage();
	}
	}

	function SaveNewPage()
	{
	// redefine in each list, should save to env array new page value

	}

	function GetPageLinkList($dest_template=NULL,$page = "",$PagesToList=10, $HideEmpty=TRUE)
	{
	global $objConfig, $var_list_update, $var_list;


	$v= $this->PageEnvar;

	global ${$v};

	if(!strlen($page))
	$page = GetIndexURL();

	$PerPage = $objConfig->Get($this->PerPageVar);
	if($PerPage<1)
	$PerPage=20;
	$NumPages = ceil($this->GetNumPages($PerPage));
	if($NumPages==1 && $HideEmpty)
	return "";

	if(strlen($dest_template))
	{
	$var_list_update["t"] = $dest_template;
	}
	else
	$var_list_update["t"] = $var_list["t"];

	$o = "";
	if($this->Page==0 \|\| !is_numeric($this->Page))
	$this->Page=1;
	if($this->Page>$NumPages)
	$this->Page=$NumPages;

	$StartPage = (int)$this->Page - ($PagesToList/2);
	if($StartPage<1)
	$StartPage=1;

	$EndPage = $StartPage+($PagesToList-1);
	if($EndPage>$NumPages)
	{
	$EndPage = $NumPages;
	$StartPage = $EndPage-($PagesToList-1);
	if($StartPage<1)
	$StartPage=1;
	}

	$o = "";
	if($StartPage>1)
	{
	${$v}[$this->PageEnvarIndex] = $this->Page-$PagesToList;

	$prev_url = $page."?env=".BuildEnv();
	$o .= "<A HREF=\"$prev_url\"><<</A>";
	}

	for($p=$StartPage;$p<=$EndPage;$p++)
	{
	if($p!=$this->Page)
	{
	${$v}[$this->PageEnvarIndex]=$p;
	$href = $page."?env=".BuildEnv();
	$o .= " <A HREF=\"$href\">$p</A> ";
	}
	else
	{
	$o .= " <SPAN class=\"current-page\">$p</SPAN>";
	}
	}
	if($EndPage<$NumPages && $EndPage>0)
	{
	${$v}[$this->PageEnvarIndex]=$this->Page+$PagesToList;

	$next_url = $page."?env=".BuildEnv();
	$o .= "<A HREF=\"$next_url\"> >></A>";
	}
	unset(${$v}[$this->PageEnvarIndex],$var_list_update["t"] );
	return $o;
	}

	function GetAdminPageLinkList($url)
	{
	global $objConfig;

	$update =& $GLOBALS[$this->PageEnvar]; // env_var_update

	// insteresting stuff :)
	if(!$this->PerPageVar) $this->PerPageVar = "Perpage_Links";

	$PerPage = $objConfig->Get($this->PerPageVar);
	if($PerPage < 1) $PerPage = 20;

	$NumPages = ceil($this->GetNumPages($PerPage));

	//echo $this->CurrentPage." of ".$NumPages." Pages";

	if($this->Page > $NumPages) $this->Page = $NumPages;

	$StartPage = $this->Page - 5;
	if($StartPage < 1) $StartPage = 1;
	$EndPage = $StartPage + 9;
	if($EndPage > $NumPages)
	{
	$EndPage = $NumPages;
	$StartPage = $EndPage-9;
	if($StartPage < 1) $StartPage = 1;
	}

	$o = '';

	if($StartPage > 1)
	{
	$update[$this->PageEnvarIndex]= $this->Page - 10;
	$prev_url = $url.'?env='.BuildEnv();
	$o .= '<a href="'.$prev_url.'"><<</a>';
	}


	for($p = $StartPage; $p <= $EndPage; $p++)
	{
	if($p != $this->Page)
	{
	$update[$this->PageEnvarIndex] = $p;
	$href = $url.'?env='.BuildEnv();
	$o .= ' <a href="'.$href.'" class="NAV_URL">'.$p.'</a> ';
	}
	else
	{
	$o .= '<SPAN class="CURRENT_PAGE">'.$p.'</SPAN>';
	}
	}
	if($EndPage < $NumPages)
	{
	$update[$this->PageEnvarIndex] = $this->Page + 10;
	$next_url = $url.'?env='.BuildEnv();
	$o .= '<a href="'.$next_url.'"> >></a>';
	}
	unset( $update[$this->PageEnvarIndex] );
	return $o;
	}
	}

	function ParseClipboard($clip)
	{
	$ret = array();

	$parts = explode(".",$clip,3);
	$command = $parts[0];
	$table = $parts[1];
	$prefix = GetTablePrefix();
	if(substr($table,0,strlen($prefix))==$prefix)
	$table = substr($table,strlen($prefix));

	$subparts = explode("=",$parts[2],2);
	$idfield = $subparts[0];
	$idlist = $subparts[1];
	$cmd = explode("-",$command);
	$ret["command"] = $cmd[0];
	$ret["source"] = $cmd[1];
	$ret["table"] = $table;
	$ret["idfield"] = $idfield;
	$ret["ids"] = $idlist;
	//print_pre($ret);
	return $ret;
	}

	function UpdateCategoryItems($item,$NewCatList,$PrimaryCatId = false)
	{
	global $objCatList;

	$CurrentList = explode(",",$item->CategoryMemberList());
	$del_list = array();
	$ins_list = array();


	if(!is_array($NewCatList))
	{
	if(strlen(trim($NewCatList))==0)
	$NewCatList = $objCatList->CurrentCategoryID();

	$NewCatList = explode(",",$NewCatList);
	}
	//print_r($NewCatList);

	for($i=0;$i<count($NewCatList);$i++)
	{
	$cat = $NewCatList[$i];
	if(!in_array($cat,$CurrentList))
	$ins_list[] = $cat;
	}
	for($i=0;$i<count($CurrentList);$i++)
	{
	$cat = $CurrentList[$i];
	if(!in_array($cat,$NewCatList))
	$del_list[] = $cat;
	}
	for($i=0;$i<count($ins_list);$i++)
	{
	$cat = $ins_list[$i];
	$item->AddToCategory($cat);
	}
	for($i=0;$i<count($del_list);$i++)
	{
	$cat = $del_list[$i];
	$item->RemoveFromCategory($cat);
	}
	if($PrimaryCatId !== false) $item->SetPrimaryCategory($PrimaryCatId);
	}

	class clsCatItemList extends clsItemList
	{
	var $PerPageVarLong;
	var $PerPageShortVar;
	var $Query_SortField;
	var $Query_SortOrder;
	var $ItemType;

	function clsCatItemList()
	{
	$this->ClsItemList();
	$this->Query_SortField = array();
	$this->Query_SortOrder = array();
	}

	function QueryOrderByClause($EditorsPick=FALSE,$Priority=FALSE,$UseTableName=FALSE)
	{
	global $objSession;

	if($UseTableName)
	{
	$TableName = $this->SourceTable.".";
	}
	else {
	$TableName = "";
	}

	$Orders = array();

	if($EditorsPick)
	{
	$Orders[] = $TableName."EditorsPick DESC";
	}
	if($Priority)
	{
	$Orders[] = $TableName."Priority DESC";
	}

	if(count($this->Query_SortField)>0)
	{
	for($x=0; $x<count($this->Query_SortField); $x++)
	{
	$FieldVar = $this->Query_SortField[$x];
	$OrderVar = $this->Query_SortOrder[$x];

	if(is_object($objSession))
	{
	$FieldVarData = $objSession->GetPersistantVariable($FieldVar);
	if(strlen($FieldVarData)>0)
	{
	$Orders[] = trim($TableName.$objSession->GetPersistantVariable($FieldVar) . " ".
	$objSession->GetPersistantVariable($OrderVar));
	}
	}
	}
	}

	if(count($Orders)>0)
	{
	$OrderBy = "ORDER BY ".implode(", ",$Orders);
	}
	else
	$OrderBy="";

	return $OrderBy;
	}

	function AddSortField($SortField, $SortOrder)
	{
	if(strlen($SortField))
	{
	$this->Query_SortField[] = $SortField;
	$this->Query_SortOrder[] = $SortOrder;
	}
	}

	function ClearSortFields()
	{
	$this->Query_SortField = array();
	$this->Query_SortOrder = array();
	}

	/* skeletons in this closet */

	function GetNewValue($CatId=NULL)
	{
	return 0;
	}

	function GetPopValue($CategoryId=NULL)
	{
	return 0;
	}

	/* end of skeletons */

	function GetCountSQL($PermName,$CatId=NULL, $GroupId=NULL, $AdditonalWhere="")
	{
	global $objSession, $objPermissions, $objCatList;

	$ltable = $this->SourceTable;
	$acl = $objSession->GetACLClause();
	$cattable = GetTablePrefix()."CategoryItems";
	$CategoryTable = GetTablePrefix()."Category";
	$ptable = GetTablePrefix()."PermCache";
	$VIEW = $objPermissions->GetPermId($PermName);

	$sql = "SELECT count(*) as CacheVal FROM $ltable ";
	$sql .="INNER JOIN $cattable ON ($cattable.ItemResourceId=$ltable.ResourceId) ";
	$sql .="INNER JOIN $CategoryTable ON ($CategoryTable.CategoryId=$cattable.CategoryId) ";
	$sql .="INNER JOIN $ptable ON ($cattable.CategoryId=$ptable.CategoryId) ";
	$sql .="WHERE ($acl AND PermId=$VIEW AND $cattable.PrimaryCat=1 AND $CategoryTable.Status=1) ";

	if(strlen($AdditonalWhere)>0)
	{
	$sql .= "AND (".$AdditonalWhere.")";
	}

	return $sql;
	}

	function SqlCategoryList($attribs = array())
	{
	$CatTable = GetTablePrefix()."CategoryItems";
	$t = $this->SourceTable;

	$sql = "SELECT *,$CatTable.CategoryId FROM $t INNER JOIN $CatTable ON $CatTable.ItemResourceId=$t.ResourceId ";
	$sql .="WHERE ($CatTable.CategoryId=".$catid." AND $t.Status=1)";

	return $sql;
	}


	function CategoryCount($attribs=array())
	{
	global $objCatList, $objCountCache;

	$cat = $attribs["_catid"];
	if(!is_numeric($cat))
	{
	$cat = $objCatList->CurrentCategoryID();
	}
	if((int)$cat>0)
	$c = $objCatList->GetCategory($cat);

	$CatTable = GetTablePrefix()."CategoryItems";
	$t = $this->SourceTable;

	$sql = "SELECT count(*) as MyCount FROM $t INNER JOIN $CatTable ON ($CatTable.ItemResourceId=$t.ResourceId) ";
	if($attribs["_subcats"])
	{
	$ctable = $objCatList->SourceTable;
	$sql .= "INNER JOIN $ctable ON ($CatTable.CategoryId=$ctable.CategoryId) ";
	$sql .= "WHERE (ParentPath LIKE '".$c->Get("ParentPath")."%' ";
	if(!$attribs["_countcurrent"])
	{
	$sql .=" AND $ctable.CategoryId != $cat) ";
	}
	else
	$sql .=") ";
	}
	else
	$sql .="WHERE ($CatTable.CategoryId=".$cat." AND $t.Status=1) ";

	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$sql .= "AND ($t.CreatedOn>=$today) ";
	}
	//echo $sql."<br><br>\n";
	$rs = $this->adodbConnection->Execute($sql);
	$ret = "";
	if($rs && !$rs->EOF)
	$ret = (int)$rs->fields["MyCount"];
	return $ret;
	}

	function SqlGlobalCount($attribs=array())
	{
	global $objSession;

	$p = $this->BasePermission.".VIEW";
	$t = $this->SourceTable;
	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where = "($t.CreatedOn>=$today)";
	}

	if($attribs["_grouponly"])
	{
	$GroupList = $objSession->Get("GroupList");
	}
	else
	$GroupList = NULL;

	$sql = $this->GetCountSQL($p,NULL,$GroupList,$where);
	return $sql;
	}

	function DoGlobalCount($attribs)
	{
	global $objCountCache;

	$cc = $objCountCache->GetValue($this->CacheListType("_"),$this->ItemType,$this->CacheListExtraId("_"),(int)$attribs["_today"], 3600);
	if(!is_numeric($cc))
	{
	$sql = $this->SqlGlobalCount($attribs);
	$ret = QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("_"),$this->ItemType,$this->CacheListExtraId("_"),(int)$attribs["_today"],$ret);
	}
	else
	$ret = $cc;
	return $ret;
	}


	function CacheListExtraId($ListType)
	{
	global $objSession;

	if(!strlen($ListType))
	$ListType="_";
	switch($ListType)
	{
	case "_":
	$ExtraId = $objSession->Get("GroupList");
	break;
	case "category":
	$ExtraId = $objSession->Get("GroupList");
	break;
	case "myitems":
	$ExtraId = $objSession->Get("PortalUserId");
	break;
	case "hot":
	$ExtraId = $objSession->Get("GroupList");
	break;
	case "pop":
	$ExtraId = $objSession->Get("GroupList");
	break;
	case "pick":
	$ExtraId = $objSession->Get("GroupList");
	break;
	case "favorites":
	$ExtraId = $objSession->Get("PortalUserId");
	break;
	case "new":
	$ExtraId = $objSession->Get("GroupList");
	break;
	}
	return $ExtraId;
	}

	function CacheListType($ListType)
	{
	if(!strlen($ListType))
	$ListType="_";
	switch($ListType)
	{
	case "_":
	$ListTypeId = 0;
	break;
	case "category":
	$ListTypeId = 1;
	break;
	case "myitems":
	$ListTypeId = 2;
	break;
	case "hot":
	$ListTypeId = 3;
	break;
	case "pop":
	$ListTypeId = 4;
	break;
	case "pick":
	$ListTypeId = 5;
	break;
	case "favorites":
	$ListTypeId = 6;
	break;
	case "new":
	$ListTypeId = 8;
	break;
	}
	return $ListTypeId;
	}

	function PerformItemCount($attribs=array())
	{
	global $objCountCache, $objSession;

	$ret = "";
	$ListType = $attribs["_listtype"];
	if(!strlen($ListType))
	$ListType="_";

	$ListTypeId = $this->CacheListType($ListType);
	//echo "ListType: $ListType ($ListTypeId)<br>\n";
	$ExtraId = $this->CacheListExtraId($ListType);
	switch($ListType)
	{
	case "_":
	$ret = $this->DoGlobalCount($attribs);
	break;
	case "category":
	$ret = $this->CategoryCount($attribs);
	break;
	case "myitems":
	$sql = $this->SqlMyItems($attribs);
	break;
	case "hot":
	$sql = $this->SqlHotItems($attribs);
	break;
	case "pop":
	$sql = $this->SqlPopItems($attribs);
	break;
	case "pick":
	$sql = $this->SqlPickItems($attribs);
	break;
	case "favorites":
	$sql = $this->SqlFavorites($attribs);
	break;
	case "search":
	$sql = $this->SqlSearchItems($attribs);
	break;
	case "new":
	$sql = $this->SqlNewItems($attribs);
	break;
	}
	//echo "SQL: $sql<br>";
	if(strlen($sql))
	{
	if(is_numeric($ListTypeId))
	{
	$cc = $objCountCache->GetValue($ListTypeId,$this->ItemType,$ExtraId,(int)$attribs["_today"], 3600);

	if(!is_numeric($cc) \|\| $attribs['_nocache'] == 1)
	{
	$ret = QueryCount($sql);
	$objCountCache->SetValue($ListTypeId,$this->ItemType,$ExtraId,(int)$attribs["_today"],$ret);
	}
	else
	$ret = $cc;
	}
	else
	$ret = QueryCount($sql);
	}

	return $ret;
	}

	function GetJoinedSQL($PermName, $CatId=NULL, $AdditionalWhere="")
	{
	global $objSession, $objPermissions;

	$ltable = $this->SourceTable;
	$acl = $objSession->GetACLClause();
	$cattable = GetTablePrefix()."CategoryItems";
	$CategoryTable = GetTablePrefix()."Category";
	$ptable = GetTablePrefix()."PermCache";
	$VIEW = $objPermissions->GetPermId($PermName);
	$sql ="INNER JOIN $cattable ON ($cattable.ItemResourceId=$ltable.ResourceId) ";
	$sql .="INNER JOIN $CategoryTable ON ($CategoryTable.CategoryId=$cattable.CategoryId) ";
	$sql .= "INNER JOIN $ptable ON ($cattable.CategoryId=$ptable.CategoryId) ";
	$sql .="WHERE ($acl AND PermId=$VIEW AND PrimaryCat=1 AND $CategoryTable.Status=1) ";

	if(is_numeric($CatId))
	{
	$sql .= " AND ($CategoryTable.CategoryId=$CatId) ";
	}
	if(strlen($AdditionalWhere)>0)
	{
	$sql .= "AND (".$AdditionalWhere.")";
	}
	return $sql;
	}

	function CountFavorites($attribs)
	{
	if($attribs["_today"])
	{
	global $objSession, $objConfig, $objPermissions;

	$acl = $objSession->GetACLClause();
	$favtable = GetTablePrefix()."Favorites";
	$ltable = $this->SourceTable;
	$cattable = GetTablePrefix()."CategoryItems";
	$CategoryTable = GetTablePrefix()."Category";
	$ptable = GetTablePrefix()."PermCache";
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));

	$where = "PortalUserId=".$objSession->Get("PortalUserId")." AND $ltable.Status=1";
	$where .= " AND $favtable.Modified >= $today AND ItemTypeId=".$this->ItemType;
	$p = $this->BasePermission.".VIEW";

	$sql = "SELECT $ltable.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $favtable INNER JOIN $ltable ON ($favtable.ResourceId=$ltable.ResourceId) ";
	$sql .= $this->GetJoinedSQL($p,NULL,$where);
	$ret = QueryCount($sql);
	}
	else
	{
	if (!$this->ListType == "favorites")
	{
	$this->ListType = "favorites";
	$this->LoadFavorites($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;
	}
	return $ret;
	}



	function CountPickItems($attribs)
	{
	if (!$this->ListType == "pick")
	{
	$this->ListType = "pick";
	$this->LoadPickItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}

	function CountMyItems($attribs)
	{
	if (!$this->ListType == "myitems")
	{
	$this->ListType = "myitems";
	$this->LoadMyItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}

	function CountHotItems($attribs)
	{
	if (!$this->ListType == "hotitems")
	{
	$this->ListType = "hotitems";
	$this->LoadHotItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}

	function CountNewItems($attribs)
	{
	if (!$this->ListType == "newitems")
	{
	$this->ListType = "newitems";
	$this->LoadNewItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}

	function CountPopItems($attribs)
	{
	if (!$this->ListType == "popitems")
	{
	$this->ListType = "popitems";
	$this->LoadPopItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}


	function CountSearchItems($attribs)
	{
	if (!$this->ListType == "search")
	{
	$this->ListType = "search";
	$this->LoadSearchItems($attribs);
	$ret = $this->QueryItemCount;
	}
	else
	$ret = $this->QueryItemCount;

	return $ret;
	}

	function SqlFavorites($attribs)
	{
	global $objSession, $objConfig, $objPermissions;

	$acl = $objSession->GetACLClause();
	$favtable = GetTablePrefix()."Favorites";
	$ltable = $this->SourceTable;
	$cattable = GetTablePrefix()."CategoryItems";
	$CategoryTable = GetTablePrefix()."Category";
	$ptable = GetTablePrefix()."PermCache";

	$where = "PortalUserId=".$objSession->Get("PortalUserId")." AND $ltable.Status=1";
	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where .= " AND $favtable.Modified >= $today AND ItemTypeId=".$this->ItemType;
	}
	$p = $this->BasePermission.".VIEW";

	$sql = "SELECT $ltable.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $favtable INNER JOIN $ltable ON ($favtable.ResourceId=$ltable.ResourceId) ";
	$sql .= $this->GetJoinedSQL($p,NULL,$where);


	$OrderBy = $this->QueryOrderByClause(TRUE,TRUE,TRUE);
	$sql .= " ".$OrderBy;
	return $sql;
	}

	function LoadFavorites($attribs)
	{
	global $objSession, $objCountCache;

	$sql = $this->SqlFavorites($attribs);

	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("favorites"),$this->ItemType,$this->CacheListExtraId("favorites"),(int)$attribs["_today"],3600);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount = QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("favorites"),$this->ItemType,$this->CacheListExtraId("favorites"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount = (int)$CachedCount;

	return $this->Query_Item($sql);
	}

	function SqlPickItems($attribs)
	{
	global $objSession, $objCatList;

	$catid = (int)$attribs["_catid"];
	$scope = (int)$attribs["_scope"];
	//$JoinCats = (int)$attribs["_catinfo"] \|\| $scope;

	$TableName = $this->SourceTable;
	if($scope)
	{
	if (!$catid)
	{
	$catid = $objCatList->CurrentCategoryID();
	}
	$where = "CategoryId =".$catid." AND ".$TableName.".EditorsPick=1 AND ".$TableName.".Status=1";
	}
	else
	{
	$where = $TableName.".EditorsPick=1 AND ".$TableName.".Status=1 ";
	$catid=NULL;
	}
	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where .= " AND ($TableName.CreatedOn>=$today)";
	}
	$CategoryTable = GetTablePrefix()."Category";
	$sql = "SELECT $TableName.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $TableName ";
	$p = $this->BasePermission.".VIEW";
	$sql .= $this->GetJoinedSQL($p,$CatUd,$where);

	$OrderBy = $this->QueryOrderByClause(TRUE,TRUE,TRUE);
	$sql .= " ".$OrderBy;
	return $sql;
	}

	function LoadPickItems($attribs)
	{
	global $objSession, $objCountCache;

	$sql = $this->SqlPickItems($attribs);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";

	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("pick"),$this->ItemType,$this->CacheListExtraId("pick"),(int)$attribs["_today"],3600);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount= QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("pick"),$this->ItemType,$this->CacheListExtraId("pick"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount=$CachedCount;

	return $this->Query_Item($sql);
	}

	function SqlMyItems($attribs= array())
	{
	global $objSession;

	$TableName = $this->SourceTable;
	$where = " ".$TableName.".Status>-1 AND ".$TableName.".CreatedById=".$objSession->Get("PortalUserId");
	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where .= " AND ($TableName.CreatedOn>=$today)";
	}
	$CategoryTable = GetTablePrefix()."Category";
	$sql = "SELECT $TableName.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $TableName ";
	$p = $this->BasePermission.".VIEW";
	$sql .= $this->GetJoinedSQL($p,$CatUd,$where);

	$OrderBy = $this->QueryOrderByClause(TRUE,TRUE,TRUE);
	$sql .= " ".$OrderBy;

	return $sql;
	}

	function LoadMyItems($attribs=array())
	{
	global $objSession,$objCountCache;
	$sql = $this->SqlMyItems($attribs);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("myitems"),$this->ItemType,$this->CacheListExtraId("myitems"),(int)$attribs["_today"],3600);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount= QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("myitems"),$this->ItemType,$this->CacheListExtraId("myitems"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount=$CachedCount;

	return $this->Query_Item($sql);
	}

	function SqlNewItems($attribs = array())
	{
	global $objSession, $objCatList;

	$catid = (int)$attribs["_catid"];
	$scope = (int)$attribs["_scope"];
	//$JoinCats = (int)$attribs["_catinfo"] \|\| $scope;

	$TableName = $this->SourceTable;
	if($attribs["_today"])
	{
	$cutoff = mktime(0,0,0,date("m"),date("d"),date("Y"));
	}
	else
	{
	if($scope)
	{
	if (!$catid)
	{
	$catid = $objCatList->CurrentCategoryID();
	}
	$cutoff = $this->GetNewValue($catid);
	}
	else
	$cutoff = $this->GetNewValue();
	}
	if($scope)
	{
	if (!$catid)
	{
	$catid = $objCatList->CurrentCategoryID();
	}

	$where = "CategoryId =".$catid." AND ((".$TableName.".CreatedOn >=".$cutoff." AND ".$TableName.".NewItem != 0) OR ".$TableName.".NewItem=1 ) AND ".$TableName.".Status=1 ";
	}
	else
	{
	$where = "((".$TableName.".CreatedOn >=".$this->GetNewValue()." AND ".$TableName.".NewItem != 0) OR ".$TableName.".NewItem=1 ) AND ".$TableName.".Status=1 ";
	}

	$CategoryTable = GetTablePrefix()."Category";
	$sql = "SELECT $TableName.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $TableName ";
	$p = $this->BasePermission.".VIEW";
	$sql .= $this->GetJoinedSQL($p,$CatUd,$where);

	$OrderBy = $this->QueryOrderByClause(TRUE,TRUE,TRUE);
	$sql .= " ".$OrderBy;
	return $sql;
	}

	function LoadNewItems($attribs)
	{
	global $objSession,$objCountCache;

	$sql = $this->SqlNewItems($attribs);

	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("new"),$this->ItemType,$this->CacheListExtraId("new"),(int)$attribs["_today"],3600);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount= QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("new"),$this->ItemType,$this->CacheListExtraId("new"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount=$CachedCount;


	return $this->Query_Item($sql);
	}

	function SqlPopItems($attribs)
	{
	global $objSession, $objCatList;

	$catid = (int)$attribs["_catid"];
	$scope = (int)$attribs["_scope"];
	//$JoinCats = (int)$attribs["_catinfo"] \|\| $scope;

	$TableName = $this->SourceTable;

	if($scope)
	{
	if (!$catid)
	{
	$catid = $objCatList->CurrentCategoryID();
	}
	$where = "CategoryId =".$catid." AND ((".$TableName.".Hits >=".$this->GetLinkPopValue()." AND ".$TableName.".PopItem !=0) OR ".$TableName.".PopItem=1) AND ".$TableName.".Status=1";
	}
	else
	{
	$where = "((".$TableName.".CachedRating >=".$this->GetPopValue()." AND ".$TableName.".PopItem !=0 ) OR ".$TableName.".PopItem=1) AND ".$TableName.".Status=1 ";

	$where = "((".$TableName.".Hits >=".$this->GetPopValue()." AND ".$TableName.".PopItem !=0) OR ".$TableName.".PopItem=1) AND ".$TableName.".Status=1 ";
	}
	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where .= " AND ($TableName.CreatedOn>=$today)";
	}
	$CategoryTable = GetTablePrefix()."Category";
	$sql = "SELECT $TableName.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $TableName ";
	$p = $this->BasePermission.".VIEW";
	$sql .= $this->GetJoinedSQL($p,$catid,$where);

	$OrderBy = $this->QueryOrderByClause(TRUE,TRUE,TRUE);
	$sql .= " ".$OrderBy;

	return $sql;
	}

	function LoadPopItems($attribs)
	{
	global $objSession,$objCountCache;
	$sql = $this->SqlPopItems($attribs);

	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";
	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("pop"),$this->ItemType,$this->CacheListExtraId("pop"),(int)$attribs["_today"],3600);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount= QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("pop"),$this->ItemType,$this->CacheListExtraId("pop"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount=$CachedCount;

	return $this->Query_Item($sql);
	}

	function SqlHotItems($attribs)
	{
	global $objSession, $objCatList;

	$catid = (int)$attribs["_catid"];
	$scope = (int)$attribs["_scope"];

	// $JoinCats = (int)$attribs["_catinfo"] \|\| $scope;

	$TableName = $this->SourceTable;

	$OrderBy = $TableName.".CachedRating DESC";

	if($scope)
	{
	if (!$catid)
	{
	$catid = $objCatList->CurrentCategoryID();
	}
	$where = "CategoryId =".$catid." AND ((".$TableName.".CachedRating >=".$this->GetHotValue()." AND ".$TableName.".PopItem !=0) OR ".$TableName.".PopItem=1) AND ".$TableName.".Status=1";
	}
	else
	{
	$where = "((".$TableName.".CachedRating >=".$this->GetPopValue()." AND ".$TableName.".PopItem !=0 ) OR ".$TableName.".PopItem=1) AND ".$TableName.".Status=1 ";
	}

	if($attribs["_today"])
	{
	$today = mktime(0,0,0,date("m"),date("d"),date("Y"));
	$where .= " AND ($TableName.CreatedOn>=$today)";
	}
	$CategoryTable = GetTablePrefix()."Category";
	$sql = "SELECT $TableName.*,$CategoryTable.CategoryId,$CategoryTable.CachedNavBar FROM $TableName ";
	$p = $this->BasePermission.".VIEW";
	$CatId = !$scope? NULL : $catid;
	$sql .= $this->GetJoinedSQL($p,$CatId,$where);

	if(strlen($OrderBy))
	$sql .= " ORDER BY $OrderBy ";

	return $sql;
	}

	function LoadHotItems($attribs)
	{
	global $objSession,$objCountCache;

	$sql = $this->SqlHotItems($attribs);
	if($objSession->HasSystemPermission("DEBUG.LIST"))
	echo htmlentities($sql,ENT_NOQUOTES)."<br>\n";

	if($attribs["_shortlist"])
	{
	$this->PerPageVar = $this->PerPageShortVar;
	}
	else
	$this->PerPageVar = $this->PerPageVarLong;

	$CachedCount = $objCountCache->GetValue($this->CacheListType("hot"),$this->ItemType,$this->CacheListExtraId("hot"),(int)$attribs["_today"], 0);
	if(!is_numeric($CachedCount))
	{
	$this->QueryItemCount= QueryCount($sql);
	$objCountCache->SetValue($this->CacheListType("hot"),$this->ItemType,$this->CacheListExtraId("hot"),(int)$attribs["_today"],$this->QueryItemCount);
	}
	else
	$this->QueryItemCount=$CachedCount;

	return $this->Query_Item($sql);
	}

	function SqlSearchItems($attribs = array())
	{
	global $objConfig, $objItemTypes, $objSession, $objPermissions, $CountVal;

	$acl = $objSession->GetACLClause();
	$this->Clear();
	//$stable = "ses_".$objSession->GetSessionKey()."_Search";
	$stable = $objSession->GetSearchTable();
	$ltable = $this->SourceTable;
	$catitems = GetTablePrefix()."CategoryItems";
	$cattable = GetTablePrefix()."Category";
	$ptable = GetTablePrefix()."PermCache";
	$p = $this->BasePermission.".VIEW";
	$i = new $this->classname();

	$sql = "SELECT $cattable.CategoryId,$cattable.CachedNavbar,$ltable.*, Relevance FROM $stable ";
	$sql .= "INNER JOIN $ltable ON ($stable.ItemId=$ltable.".$i->id_field.") ";

	$where = "ItemType=".$this->ItemType." AND $ltable.Status=1";

	$sql .= $this->GetJoinedSQL($p,NULL,$where);
	$sql .= " ORDER BY EdPick DESC,Relevance DESC ";

	$tmp = $this->QueryOrderByClause(FALSE,TRUE,TRUE);
	$tmp = substr($tmp,9);
	if(strlen($tmp))
	{
	$sql .= ", ".$tmp." ";
	}
	return $sql;
	}

	function LoadSearchItems($attribs = array())
	{
	global $CountVal, $objSession;
	//echo "Loading <b>".get_class($this)."</b> Search Items<br>";
	$sql = $this->SqlSearchItems($attribs);
	//echo "$sql<br>";
	$this->Query_Item($sql);
	$Keywords = GetKeywords($objSession->GetVariable("Search_Keywords"));
	//echo "SQL Loaded ItemCount (<b>".get_class($this).'</b>): '.$this->NumItems().'<br>';
	for($i = 0; $i < $this->NumItems(); $i++)
	{
	$this->Items[$i]->Keywords = $Keywords;
	}
	if(is_numeric($CountVal[$this->ItemType]))
	{
	$this->QueryItemCount = $CountVal[$this->ItemType];
	//echo "CACHE: <pre>"; print_r($CountVal); echo "</pre><BR>";
	}
	else
	{
	$this->QueryItemCount = QueryCount($sql);
	//echo "<b>SQL</b>: ".$sql."<br><br>";
	$CountVal[$this->ItemType] = $this->QueryItemCount;
	}

	}

	function PasteFromClipboard($TargetCat,$NameField="")
	{
	global $objSession,$objCatList;

	$clip = $objSession->GetVariable("ClipBoard");
	if(strlen($clip))
	{
	$ClipBoard = ParseClipboard($clip);
	$IsCopy = (substr($ClipBoard["command"],0,4)=="COPY") \|\| ($ClipBoard["source"] == $TargetCat);

	$item_ids = explode(",",$ClipBoard["ids"]);
	for($i=0;$i<count($item_ids);$i++)
	{
	$item = $this->GetItem($item_ids[$i]);
	if(!$IsCopy) // paste to other category then current
	{
	$item->MoveToCategory($ClipBoard["source"],$TargetCat);
	$clip = str_replace("CUT","COPY",$clip);
	$objSession->SetVariable("ClipBoard",$clip);
	}
	else
	{
	$item->CopyToNewResource($TargetCat,$NameField); // create item copy, but with new ResourceId
	$item->AddToCategory($TargetCat);
	UpdateCategoryCount($item->type,$TargetCat);

	}
	}
	}
	}

	function AdminPrintItems($template)
	{
	// prints item listing for admin (browse/advanced view) tabs
	$o = '<table border="0" cellspacing="2" width="100%"><tbody><tr>';

	$i = 1;

	$topleft = 0;
	$topright = 0;
	$rightcount = 0;
	$total_items = $this->NumItems();
	$topleft = ceil($total_items / 2);
	$topright = $total_items - $topleft;

	for($x = 0; $x < $topleft; $x++)
	{
	//printingleft
	$item = $this->Items[$x];
	if ($i > 2)
	{
	$o .= "</tr>\n<tr>";
	$i = 1;
	}
	$o .= $item->AdminParseTemplate($template);
	$i++;

	//printingright
	if ($rightcount < $topright && ( ($x + $topleft) < $total_items) )
	{
	$item = $this->Items[ $x + $topleft ];
	if ($i > 2)
	{
	$o.="</tr>\n<tr>";
	$i = 1;
	}
	$o .= $item->AdminParseTemplate($template);
	$i++;
	$rightcount++;
	}
	}
	$o .= "\n</tr></tbody></table>\n";

	return $o;
	}

	}

	// -------------- NEW CLASSES -----------------------

	class DBList {

	// table related attributes
	var $db = null;
	var $table_name = '';
	var $LiveTable = '';
	var $EditTable = '';


	// record related attributes
	var $records = Array();
	var $record_count = 0;
	var $cur_rec = -1; // "-1" means no records, or record index otherwise

	// query related attributes
	var $SelectSQL = "SELECT * FROM %s";

	function DBList()
	{
	// use $this->SetTable('live', 'table name');
	// in inherited constructors to set table for list
	$this->db =&GetADODBConnection();
	}

	function SetTable($action, $table_name = null)
	{
	// $action = {'live', 'restore','edit'}
	switch($action)
	{
	case 'live':
	$this->LiveTable = $table_name;
	$this->table_name = $this->LiveTable;
	break;
	case 'restore':
	$this->table_name = $this->LiveTable;
	break;
	case 'edit':
	global $objSession;
	$this->table_name = $objSession->GetEditTable($this->LiveTable);
	break;
	}
	}

	function Clear()
	{
	// no use of this method at a time :)
	$this->records = Array();
	$this->record_count = 0;
	$this->cur_rec = -1;
	}

	function Query()
	{
	// query list
	$sql = sprintf($this->SelectSQL, $this->table_name);
	echo "SQL: $sql<br>";
	$rs =& $this->db->Execute($sql);

	if( $this->db->ErrorNo() == 0 )
	{
	$this->records = $rs->GetRows();
	$this->record_count = count($this->records);
	//$this->cur_rec = $this->record_count ? 0 : -1;
	}
	else
	return false;
	}

	function ProcessList($callback_method)
	{
	// process list using user-defined method called
	// with one parameter - current record fields
	// (associative array)
	if($this->record_count > 0)
	{
	$this->cur_rec = 0;
	while($this->cur_rec < $this->record_count)
	{
	if( method_exists($this, $callback_method) )
	$this->$callback_method( $this->GetCurrent() );
	$this->cur_rec++;
	}
	}
	}

	function &GetCurrent()
	{
	// return currently processed record (with change ability)
	return ($this->cur_rec != -1) ? $this->records[$this->cur_rec] : false;
	}

	function GetDBField($field_name)
	{
	$rec =& $this->GetCurrent();
	return is_array($rec) && isset($rec[$field_name]) ? $rec[$field_name] : false;
	}
	}


	?>

	Property changes on: trunk/kernel/include/parseditem.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.31
	\ No newline at end of property
	+1.32
	\ No newline at end of property
	Index: trunk/kernel/include/itemdb.php
	===================================================================
	--- trunk/kernel/include/itemdb.php (revision 560)
	+++ trunk/kernel/include/itemdb.php (revision 561)
	@@ -1,555 +1,555 @@
	<?php

	define('FT_OPTION', 1); // option formatter

	class clsItemDB
	{
	var $Formatters = Array(); // by Alex
	var $m_dirtyFieldsMap = array();
	var $Data = array();
	var $adodbConnection;
	var $tablename;
	var $BasePermission;
	var $id_field;
	var $NoResourceId;
	var $debuglevel;

	function clsItemDB()
	{
	$this->adodbConnection = &GetADODBConnection();
	$this->tablename="";
	$this->NoResourceId=0;
	$this->debuglevel=0;
	}

	// ============================================================================================
	function GetFormatter($field)
	{
	return $this->HasFormatter($field) ? $this->Formatters[$field] : false;
	}

	function SetFormatter($field, $type, $params)
	{
	// by Alex
	// all params after 2nd are formmater type specific
	$this->Formatters[$field]['type'] = $type;
	switch($type)
	{
	case FT_OPTION:
	$this->Formatters[$field]['options'] = $params;
	break;
	}
	}
	/*
	function FormatFields()
	{
	// format item in list data before printing

	foreach($this->Formatters as $field => $formatter)
	$this->Data[$field] = $this->FormatField($field);
	}
	*/
	function FormatField($field)
	{
	// formats single field if it has formatter
	if( $this->HasFormatter($field) )
	{
	$fmt = $this->Formatters[$field];
	switch($fmt['type'])
	{
	case FT_OPTION:
	return $fmt['options'][ $this->Data[$field] ];
	break;
	}
	}
	else
	return $this->Get($field);
	}

	function HasFormatter($field)
	{
	// checks if formatter is set for field
	return isset($this->Formatters[$field]) ? 1 : 0;
	}
	// ============================================================================================

	function UnsetIdField()
	{
	$f = $this->IdField();
	unset($this->Data[$f]);
	unset($this->m_dirtyFieldsMap[$f]);
	}

	function UnsetField($field)
	{
	unset($this->Data[$field]);
	unset($this->m_dirtyFieldsMap[$field]);
	}

	function IdField()
	{
	if(!strlen($this->id_field))
	{
	return $this->tablename."Id";
	}
	else
	return $this->id_field;
	}

	function UniqueId()
	{
	return $this->Get($this->IdField());
	}

	function SetUniqueId($value)
	{
	$var = $this->IdField();
	$this->Set($var, $value);
	}

	function SetModified($UserId=NULL)
	{
	global $objSession;

	$keys = array_keys($this->Data);
	if(in_array("Modified",$keys))
	{
	$this->Set("Modified",adodb_date("U"));
	}
	if(in_array("ModifiedById",$keys))
	{
	if(!$UserId)
	$UserId = $objSession->Get("PortalUserId");
	$this->Set("ModifiedById",$UserId);
	}
	}

	function PrintVars()
	{
	echo '<pre>'.print_r($this->Data, true).'</pre>';
	}

	// =================================================================
	function GetFormatted($name)
	{
	// get formatted field value
	return $this->FormatField($name);
	}

	function Get($name)
	{
	// get un-formatted field value
	//if( !isset($this->Data[$name]) ) print_pre( debug_backtrace() );
	return $this->HasField($name) ? $this->Data[$name] : '';
	}
	// =================================================================

	function HasField($name)
	{
	// checks if field exists in item
	return isset($this->Data[$name]) ? 1 : 0;
	}

	function Set($name, $value)
	{
	//echo "Setting Field <b>$name</b>: = [$value]<br>";
	if( is_array($name) )
	{
	for ($i=0; $i < sizeof($name); $i++)
	{
	$var = "m_" . $name[$i];
	if( !$this->HasField($name[$i]) \|\| ($this->Data[$name[$i]] != $value[$i]))
	{
	$this->Data[$name[$i]] = $value[$i];
	$this->m_dirtyFieldsMap[$name[$i]] = $value[$i];
	}
	}
	}
	else
	{
	$var = "m_" . $name;
	if( !$this->HasField($name) \|\| $this->Data[$name] != $value )
	{
	$this->Data[$name] = $value;
	$this->m_dirtyFieldsMap[$name] = $value;
	}
	}
	}

	function Dirty($list=NULL)
	{
	if($list==NULL)
	{
	foreach($this->Data as $field => $value)
	{
	$this->m_dirtyFieldsMap[$field] = $value;
	}
	}
	else
	{
	foreach($list as $field)
	{
	$this->m_dirtyFieldsMap[$field] = $this->Data[$field];
	}
	}
	}

	function Clean($list=NULL)
	{
	if($list == NULL)
	{
	unset($this->m_dirtyFieldsMap);
	$this->m_dirtyFieldsMap=array();
	}
	else
	{
	foreach($list as $value)
	{
	$varname = "m_" . $value;
	unset($this->m_dirtyFieldsMap[$value]);
	}
	}
	}

	function SetDebugLevel($value)
	{
	$this->debuglevel = $value;
	}

	function SetFromArray($data, $dirty = false)
	{
	if(is_array($data))
	{
	$this->Data = $data;
	if($dirty) $this->m_dirtyFieldsMap = $data;
	}
	}

	function GetData()
	{
	return $this->Data;
	}

	function SetData($data, $dirty = false)
	{
	$this->SetFromArray($data, $dirty);
	}

	function Delete()
	{
	global $Errors;

	if($this->Get($this->IdField())==0)
	{
	$Errors->AddError("error.AppError",NULL,'Internal error: Delete requires set id',"",get_class($this),"Delete");
	return false;
	}

	$sql = sprintf('DELETE FROM %s WHERE %s = %s', $this->tablename, $this->IdField(),
	$this->UniqueId());
	if($this->debuglevel>0)
	echo $sql."<br>";
	if ($this->adodbConnection->Execute($sql) === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Delete");
	return false;
	}
	return true;
	}

	function Update($UpdatedBy=NULL)
	{
	global $Errors, $objSession;

	if(count($this->m_dirtyFieldsMap) == 0)
	return true;

	$this->SetModified($UpdatedBy);
	$sql = "UPDATE ".$this->tablename ." SET ";
	$first = 1;

	foreach ($this->m_dirtyFieldsMap as $key => $value)
	{
	if(!is_numeric($key) && $key != $this->IdField())
	{
	if($first)
	{
	$sql = sprintf("%s %s=%s",$sql,$key,$this->adodbConnection->qstr(stripslashes($value)));
	$first = 0;
	}
	else
	{
	$sql = sprintf("%s, %s=%s",$sql,$key,$this->adodbConnection->qstr(stripslashes($value)));
	}
	}
	if (!(($value == '' \|\| $value == 0) && ($this->Data[$key] == 'NULL' \|\| $this->Data[$key] == '0' \|\| $this->Data[$key] == ''))) {
	if (!strstr($key, 'Modif') && $key != 'CreatedOn') {
	$objSession->SetVariable("HasChanges", 1);
	}
	}
	}

	$sql = sprintf("%s WHERE %s = '%s'",$sql, $this->IdField(), $this->UniqueId());

	if($this->debuglevel>0)
	echo $sql."<br>";
	if ($this->adodbConnection->Execute($sql) === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Update");
	return false;
	}

	/* if ($this->adodbConnection->Affected_Rows() > 0) {
	$objSession->SetVariable("HasChanges", 1);
	}*/

	return true;
	}

	function ReplaceID($new_id)
	{
	// replace item's id, because Update method
	// is too dummy to do this autommatically
	// USED in temporary table editing stuff
	$db =& $this->adodbConnection;
	$sql = "UPDATE %1\$s SET `%2\$s` = %3\$s WHERE `%2\$s` = %4\$s";
	$sql = sprintf($sql, $this->tablename, $this->IdField(), $new_id, (int)$this->UniqueId() );
	if($this->debuglevel > 0) echo $sql.'<br>';
	$db->Execute($sql);
	}

	function CreateSQL()
	{
	global $Errors;

	$sql = "INSERT INTO ".$this->tablename." (";
	$first = 1;
	foreach ($this->Data as $key => $value)
	{
	if($first)
	{
	$sql = sprintf("%s %s",$sql,$key);
	$first = 0;
	}
	else
	{
	$sql = sprintf("%s, %s",$sql,$key);
	}
	}
	$sql = sprintf('%s ) VALUES (',$sql);
	$first = 1;
	foreach ($this->Data as $key => $value)
	{
	if( is_array($value) )
	{
	echo "Invalid Value: ";
	print_pre($value);
	echo "Tracing:<br>";
	trace();
	die();
	}
	if($first)
	{
	$sql = sprintf("%s %s",$sql,$this->adodbConnection->qstr(stripslashes($value)));
	$first = 0;
	}
	else
	{
	$sql = sprintf("%s, %s",$sql,$this->adodbConnection->qstr(stripslashes($value)));
	}
	}
	$sql = sprintf('%s)',$sql);

	return $sql;
	}

	function Create()
	{
	global $Errors, $objSession;

	if($this->debuglevel) echo "Creating Item: ".get_class($this)."<br>";
	if($this->NoResourceId!=1 && (int)$this->Get("ResourceId")==0)
	{
	$this->Set("ResourceId", GetNextResourceId());
	}
	$sql = $this->CreateSql();

	if($this->debuglevel>0)
	echo $sql."<br>\n";

	if ($this->adodbConnection->Execute($sql) === false)
	- {
	+ {
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Create");
	return false;
	}

	$this->SetUniqueId($this->adodbConnection->Insert_ID());


	if ($this->adodbConnection->Affected_Rows() > 0) {
	$objSession->SetVariable("HasChanges", 1);
	}

	return true;
	}

	function Increment($field)
	{
	global $Errors;

	$sql = "Update ".$this->tablename." set $field=$field+1 where ".$this->IdField()."=" . $this->UniqueId();
	if($this->debuglevel>0)
	echo $sql."<br>";
	$result = $this->adodbConnection->Execute($sql);
	if ($result === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Increment");
	return false;
	}
	$this->Set($field,$this->Get($field)+1);
	}

	function Decrement($field)
	{
	global $Errors;

	$sql = "Update ".$this->tablename." set $field=$field-1 where ".$this->IdField()."=" . $this->UniqueId();
	if($this->debuglevel>0)
	echo $sql;
	$result = $this->adodbConnection->Execute($sql);
	if ($result === false)
	{
	$Errors->AddError("error.DatabaseError",NULL,$this->adodbConnection->ErrorMsg(),"",get_class($this),"Decrement");
	return false;
	}
	$this->Set($field,$this->Get($field)-1);
	}

	function GetFieldList($UseLoadedData=FALSE)
	{
	if(count($this->Data) && $UseLoadedData==TRUE)
	{
	$res = array_keys($this->Data);
	}
	else
	{
	$res = $this->adodbConnection->MetaColumnNames($this->tablename);
	}
	return $res;
	}

	function UsingTempTable()
	{
	global $objSession;

	$temp = $objSession->GetEditTable($this->tablename);
	$p = GetTablePrefix()."ses";
	$t = substr($temp,0,strlen($p));
	$ThisTable = substr($this->tablename,0,strlen($p));
	if($t==$ThisTable)
	{
	return TRUE;
	}
	else
	return FALSE;
	}

	function LoadFromDatabase($Id, $IdField = null) // custom IdField by Alex
	{
	global $objSession,$Errors;

	if(!isset($Id))
	{
	$Errors->AddError("error.AppError",NULL,'Internal error: LoadFromDatabase id',"",get_class($this),"LoadFromDatabase");
	return false;
	}

	// --------- multiple ids allowed: begin -----------------
	$id_field = isset($IdField) ? $IdField : $this->IdField();
	if( !is_array($id_field) ) $id_field = Array($id_field);
	if( !is_array($Id) ) $Id = Array($Id);

	$i = 0; $id_count = count($id_field);
	$conditions = Array();
	while($i < $id_count)
	{
	$conditions[] = "(`".$id_field[$i]."` = '".$Id[$i]."')";
	$i++;
	}
	$sql = sprintf('SELECT * FROM %s WHERE %s', $this->tablename, implode(' AND ', $conditions) );
	// --------- multiple ids allowed: end --------------------
	if($this->debuglevel) echo "Load SQL: $sql<br>";
	$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;
	if($this->debuglevel) print_pre($data);
	if(is_array($data))
	$this->SetFromArray($data);
	$this->Clean();
	return TRUE;
	}

	function FieldExists($field)
	{
	$res = array_key_exists($field,$this->Data);
	return $res;
	}

	function ValueExists($Field,$Value)
	{
	$sql = "SELECT $Field FROM ".$this->tablename." WHERE $Field='$Value'";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	return TRUE;
	}
	else
	return FALSE;
	}

	function FieldMax($Field)
	{
	$sql = "SELECT Max($Field) as m FROM ".$this->tablename;
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$ret = $rs->fields["m"];
	}
	else
	$ret = 0;
	}

	function FieldMin($Field)
	{
	$sql = "SELECT Min($Field) as m FROM ".$this->tablename;
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$ret = $rs->fields["m"];
	}
	else
	$ret = 0;
	}

	function TableExists($table = null)
	{
	// checks if table specified in item exists in db
	$db =& $this->adodbConnection;
	$sql = "SHOW TABLES LIKE '%s'";
	if($table == null) $table = $this->tablename;
	$rs = $db->Execute( sprintf($sql, $table) );

	if( $rs->RecordCount() == 1 ) // table exists in normal case
	return 1;
	else // check if table exists in lowercase
	$rs = $db->Execute( sprintf($sql, strtolower($table) ) );

	return ($rs->RecordCount() == 1) ? 1 : 0;
	}

	}
	?>

	Property changes on: trunk/kernel/include/itemdb.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/include/language.php
	===================================================================
	--- trunk/kernel/include/language.php (revision 560)
	+++ trunk/kernel/include/language.php (revision 561)
	@@ -1,744 +1,747 @@
	<?php

	class clsPhrase extends clsItemDB
	{

	function clsPhrase($id=NULL)
	{
	$this->clsItemDB();
	$this->tablename = GetTablePrefix()."Phrase";
	$this->id_field = "PhraseId";
	$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;
	}
	if($Id)
	{
	$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;
	}
	else
	return FALSE;
	}

	function AdminIcon()
	{
	global $imagesURL;

	return $imagesURL."/itemicons/icon16_language_var.gif";
	}

	}

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

	function clsPhraseList()
	{
	$this->clsItemCollection();
	$this->SourceTable = GetTablePrefix()."Phrase";
	$this->classname = "clsPhrase";
	$this->PerPageVar = "Perpage_Phrase";
	$this->AdminSearchFields = array("p.Phrase","p.Translation");

	}

	function &AddPhrase($Phrase,$LangId,$Translation,$Type)
	{
	$tmpphrase = $this->GetPhrase($Phrase, $LangId);
	if (!$tmpphrase) {
	$p = new clsPhrase();
	$p->tablename = $this->SourceTable;
	$p->Set(array("Phrase","LanguageId","Translation","PhraseType"),
	array($Phrase,$LangId,$Translation,$Type));
	$p->Dirty();
	$p->Create();
	return $p;
	}
	else {
	$add_error = "Error";
	return $add_error;
	/* $tmpphrase->Set(array("Phrase","LanguageId","Translation","PhraseType"),
	array($Phrase,$LangId,$Translation,$Type));
	$tmpphrase->Dirty();
	$tmpphrase->Update();
	return $tmpphrase;*/
	}
	}

	function &EditPhrase($id,$Phrase,$LangId,$Translation,$Type)
	{
	$p = $this->GetItem($id);
	$p->Set(array("Phrase","LanguageId","Translation","PhraseType"),
	array($Phrase,$LangId,$Translation,$Type));
	$p->Dirty();
	$p->Update();
	return $p;
	}

	function DeletePhrase($id)
	{
	$p = $this->GetItem($id);
	$p->Delete();
	}

	function DeleteLanguage($LangId)
	{
	$sql = "DELETE FROM ".$this->SourceTable." WHERE LanguageId=$LangId";
	if( $GLOBALS['debuglevel'] ) echo $sql."<br>\n";

	$this->adodbConnection->Execute($sql);
	}

	function CopyFromEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);

	//$idlist = array();
	$sql = "SELECT * FROM $edit_table";
	//echo "performing mass create/update<br>";
	flush();
	$this->Clear();
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = $this->AddItemFromArray($data);
	$c->Dirty();
	if($data["PhraseId"]>0)
	{
	$c->Update();
	}
	else
	{
	$c->debuglevel=0;
	$c->UnsetIdField();
	$c->Create();
	}

	$rs->MoveNext();
	}

	// Phrases deleted from temporary table are marked with LanguageId = 0, when saving we need to actually delete them all
	// The idea was taken from Images edit by Kostja
	$sql = "DELETE FROM ".$this->SourceTable." WHERE LanguageId = 0";
	$this->adodbConnection->Execute($sql);

	if( $GLOBALS['debuglevel'] ) echo $sql."<br>\n";
	$this->adodbConnection->Execute($sql);
	}

	function PurgeEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	function GetPhrase($Phrase,$Lang, $no_db=FALSE)
	{
	$found = FALSE;

	foreach($this->Items as $i)
	{
	if($i->Get("Phrase")==$Phrase && $i->Get("LanguageId")==$Lang)
	{
	$found = TRUE;
	break;
	}
	}
	if(!$found && !$no_db)
	{
	$sql = "SELECT * FROM ".$this->SourceTable." WHERE Phrase='$Phrase' AND LanguageId='$Lang'";
	//echo $sql."<br>\n";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$i = $this->AddItemFromArray($data);
	}
	else
	$i = FALSE;
	}
	return $i;
	}
	}

	RegisterPrefix("clsLanguage","lang","kernel/include/language.php");

	class clsLanguage extends clsParsedItem
	{
	function clsLanguage($id=NULL)
	{
	$this->clsParsedItem();
	$this->tablename = GetTablePrefix()."Language";
	$this->id_field = "LanguageId";
	$this->NoResourceId=1;
	$this->TagPrefix="lang";

	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;
	}

	function Delete()
	{
	$p = new clsPhraseList();
	//$id = $this->Get("LanguageId");
	//$p->DeleteLanguage($id);
	parent::Delete();
	}

	function ParseObject($element)
	{
	global $m_var_list,$m_var_list_update, $var_list,$var_list_update, $TemplateRoot;

	//echo "<PRE>"; print_r($element); echo "</PRE>";
	$extra_attribs = ExtraAttributes($element->attributes);
	if(strtolower($element->name)==$this->TagPrefix)
	{
	$field = strtolower($element->attributes["_field"]);
	switch($field)
	{
	case "id":
	$ret = $this->Get("LanguageId");
	break;
	case "packname":
	$ret = $this->Get("PackName");
	break;
	case "localname":
	$ret = $this->Get("LocalName");
	break;
	case "link":
	$t = $element->attributes["_template"];
	if(strlen($t))
	{
	$var_list_update["t"] = $t;
	}
	else
	$var_list_update["t"] = $var_list["t"];
	$m_var_list_update["lang"] = $this->Get("LanguageId");
	$ret = GetIndexURL()."?env=".BuildEnv();
	unset($var_list_update["t"],$m_var_list_update["lang"]);
	break;
	case "primary":
	$ret = "";
	if($this->Get("PrimaryLang")==1)
	$ret = "1";
	break;
	case "icon":
	$ret = "";
	$icon = $this->Get("IconUrl");

	if(strlen($icon)>0)
	{
	$file = $TemplateRoot."/".$icon;
	//echo "File:$file <br>\n";
	if(file_exists($file))
	$ret = $icon;
	}
	if(!strlen($ret))
	$ret = $element->attributes["_default"];
	//echo $ret;
	break;
	}//switch
	}//if
	return $ret;
	}

	function AdminIcon()
	{
	global $imagesURL;

	$file = $imagesURL."/itemicons/icon16_language";
	if($this->Get("PrimaryLang")==1)
	{
	$file .= "_primary.gif";
	}
	else
	{
	if($this->Get("Enabled")==0)
	{
	$file .= "_disabled";
	}
	$file .= ".gif";
	}
	return $file;

	}
	}

	class clsLanguageList extends clsItemCollection
	{
	var $m_Primary;

	function clsLanguageList()
	{
	$this->clsItemCollection();
	$this->SourceTable = GetTablePrefix()."Language";
	$this->classname = "clsLanguage";
	$this->AdminSearchFields = array("PackName","LocalName");
	}

	function SetPrimary($lang_id)
	{
	$sql = "UPDATE ".$this->SourceTable." SET PrimaryLang=0 ";
	$this->adodbConnection->Execute($sql);
	$l = $this->GetItem($lang_id);
	$l->Set("PrimaryLang","1");
	$l->Update();
	$this->m_Primary =$lang_id;
	}

	function GetPrimary($Field="LanguageId")
	{
	if(!$this->m_Primary)
	{
	$sql = "SELECT * FROM ".$this->SourceTable." WHERE PrimaryLang=1";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$l = $rs->fields[$Field];
	}
	else
	$l = 0;
	$this->m_Primary=$l;
	}
	else
	$l = $this->m_Primary;
	return $l;
	}

	function LoadAllLanguages()
	{
	$sql = "SELECT * FROM ".$this->SourceTable;
	$this->Query_Item($sql);
	}

	function &AddLanguage($PackName,$LocalName,$Enabled,$Primary, $IconUrl="",$Datefmt,$TimeFmt,$Dec,$Thousand)
	{
	$l = new clsLanguage();
	$l->tablename = $this->SourceTable;
	$l->Set(array("PackName","LocalName","Enabled","PrimaryLang","IconUrl","DateFormat","TimeFormat",
	"DecimalPoint","ThousandSep"),
	array($PackName,$LocalName,$Enabled,$Primary,$IconUrl,$Datefmt,$TimeFmt,$Dec,$Thousand));
	$l->Dirty();
	$l->Create();
	return $l;
	}

	function EditLanguage($id,$PackName,$LocalName,$Enabled,$Primary, $IconUrl="",$Datefmt,$TimeFmt,$Dec,$Thousand)
	{
	$l = $this->GetItem($id);
	$l->Set(array("PackName","LocalName","Enabled","PrimaryLang","IconUrl","DateFormat","TimeFormat",
	"DecimalPoint","ThousandSep"),
	array($PackName,$LocalName,$Enabled,$Primary,$IconUrl,$Datefmt,$TimeFmt,$Dec,$Thousand));
	$l->Update();
	return $l;
	}

	function DeleteLanguage($id)
	{
	$l = $this->GetItem($id);
	$l->Delete();
	}

	function CopyFromEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	$idlist = array();
	$sql = "SELECT * FROM $edit_table";
	$this->Clear();
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$data = $rs->fields;
	$c = $this->AddItemFromArray($data);
	$c->Dirty();

	if($data["LanguageId"]>0)
	{
	$c->Update();
	}
	else
	{
	$oldid = $c->Get("LanguageId");
	$c->UnsetIdField();
	$c->Create();
	$id = $c->Get("LanguageId");
	$phrase_table = $objSession->GetEditTable("Phrase");
	+ $message_table = $objSession->GetEditTable("EmailMessage");
	$sql = "UPDATE $phrase_table SET LanguageId=$id WHERE LanguageId=$oldid";
	$this->adodbConnection->Execute($sql);
	+ $sql = "UPDATE $message_table SET LanguageId=$id WHERE LanguageId=$oldid";
	+ $this->adodbConnection->Execute($sql);
	}
	$rs->MoveNext();
	}
	}

	function ExportPhrases($file,$LangIds=NULL,$PhraseTypes=null)
	{
	$output = array();
	$this->Clear();
	$where_parts = Array();
	if( isset($LangIds) ) $where_parts[] = 'LanguageId IN ('.$LangIds.')';
	$where = count($where_parts) ? ' WHERE '.implode(' AND ', $where_parts) : '';
	$this->Query_Item($sql = 'SELECT * FROM '.$this->SourceTable.$where);

	$objXML = new xml_doc();

	$RootNode =& $objXML->getTagByID($objXML->createTag("LANGUAGES"));

	$ret = 0;
	if($this->NumItems()>0)
	{
	$phrase_where = isset($PhraseTypes) ? ' AND PhraseType IN ('.$PhraseTypes.')' : '';
	$event_where = isset($PhraseTypes) ? ' AND Type+1 IN ('.$PhraseTypes.')' : '';
	foreach($this->Items as $l)
	{
	$LangRoot =& $objXML->getTagByID($RootNode->addChild($objXML,"LANGUAGE",array("PackName"=>$l->Get("PackName")),""));
	$LangRoot->addChild($objXML,"DATEFORMAT",array(),$l->Get("DateFormat"));
	$LangRoot->addChild($objXML,"TIMEFORMAT",array(),$l->Get("TimeFormat"));
	$LangRoot->addChild($objXML,"DECIMAL",array(),$l->Get("DecimalPoint"));
	$LangRoot->addChild($objXML,"THOUSANDS",array(),$l->Get("ThousandSep"));
	$PhraseRoot =& $objXML->getTagByID($LangRoot->addChild($objXML,"PHRASES"));

	$sql = "SELECT * FROM ".GetTablePrefix()."Phrase WHERE LanguageId=".$l->Get("LanguageId").$phrase_where;
	$rs=$this->adodbConnection->Execute($sql);
	while($rs && ! $rs->EOF)
	{
	$PhraseRoot->addChild($objXML,"PHRASE",array("Label"=>$rs->fields["Phrase"],"Type"=>$rs->fields["PhraseType"]),base64_encode($rs->fields["Translation"]));
	$rs->MoveNext();
	}

	$EventRoot =& $objXML->getTagByID($LangRoot->addChild($objXML,"EVENTS"));

	$ev = GetTablePrefix()."Events";
	$em = GetTablePrefix()."EmailMessage";
	$sql = "SELECT $em.*,$ev.Event,$ev.Type FROM $em INNER JOIN $ev ON ($em.EventId=$ev.EventId) WHERE LanguageId=".$l->Get("LanguageId").$event_where;
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$EventRoot->AddChild($objXML,"EVENT",array("MessageType"=>$rs->fields["MessageType"],"Event"=>$rs->fields["Event"],"Type"=>$rs->fields["Type"]),base64_encode($rs->fields["Template"]));
	$rs->MoveNext();
	}
	}
	$objXML->generate();
	$objXML->xml = str_replace("&","&",$objXML->xml);
	$fp = @fopen($file,"w");
	@fputs($fp,$objXML->xml);
	@fclose($fp);
	}
	return file_exists($file);
	}

	function ReadImportTable($TableName,$SetEnabled=0,$Types="0,1",$OverwitePhrases=FALSE,
	$MaxInserts=100,$Offset=0)
	{
	global $objPhraseList;

	if(!is_object($objPhraseList))
	$objPhraseList = new clsPhraseList();

	$PhraseList = new clsPhraseList();
	$TypeArray = explode(",",$Types);
	$Inserts = 0;
	$sql = "SELECT * FROM $TableName WHERE PhraseType IN ($Types) LIMIT $Offset,$MaxInserts";
	//echo $sql;
	//$PhraseList->EnablePaging = false;
	$PhraseList->Query_Item($sql);
	if($PhraseList->NumItems()>0)
	{
	foreach($PhraseList->Items as $i)
	{
	$p = $objPhraseList->GetPhrase($i->Get("Phrase"),$i->Get("LanguageId"));
	//echo "<pre>"; print_r($p); echo "</pre>";
	if(is_object($p))
	{
	if($OverwitePhrases)
	{
	//$p->debuglevel=1;
	$p->Set("Translation",$i->Get("Translation"));
	//echo $i->Get("Translation")."<br>";
	$p->Set("PhraseType",$i->Get("PhraseType"));
	$p->Dirty();
	$p->Update();
	}
	}
	else {
	//$i->debuglevel=1;
	$i->Create();
	}
	$Inserts++;
	}
	}
	$Offset = $Offset + $Inserts;
	return $Offset;
	}

	function PurgeEditTable()
	{
	global $objSession;

	$edit_table = $objSession->GetEditTable($this->SourceTable);
	$this->adodbConnection->Execute("DROP TABLE IF EXISTS $edit_table");
	}

	}

	class clsLanguageCache
	{
	var $m_CachedLanguage;
	var $FullLoad = FALSE;
	var $cache;
	var $adodbConnection;
	var $TemplateName;
	var $TemplateCache;
	var $TemplateDate;
	var $ThemeId;

	function clsLanguageCache($LangId=NULL)
	{
	global $objConfig;

	$this->m_CachedLanguage = $LangId;
	$this->adodbConnection =&GetADODBConnection();
	$this->Clear();
	}

	function Clear()
	{
	unset($this->cache);
	$this->cache = array();
	$this->TemplateCache = array();
	}

	function LoadLanguage($LangId,$Type)
	{
	$this->Clear();
	$this->m_CachedLanguage = $LangId;
	$this->FullLoad = TRUE;
	$sql = "SELECT Phrase,Translation FROM ".GetTablePrefix()."Phrase WHERE LanguageId=$LangId AND PhraseType=$Type";
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$this->cache[$rs->fields["Phrase"]] = $rs->fields["Translation"];
	if(ADODB_EXTENSION>0)
	{
	adodb_movenext($rs);
	}
	else
	$rs->MoveNext();
	}

	return (count($this->cache)>0);
	}

	function GetPhrase($Phrase,$Lang)
	{
	$t = "";
	$sql = "SELECT PhraseId,Phrase,Translation FROM ".GetTablePrefix()."Phrase WHERE Phrase='$Phrase' AND LanguageId='$Lang'";

	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$t = $rs->fields["Translation"];
	$this->TemplateCache[] = $rs->fields["PhraseId"];
	}

	return $t;
	}

	function LoadTemplateCache($t, $timeout, $ThemeId)
	{

	$this->TemplateName = $t;
	$this->TemplateDate = 0;
	$this->ThemeId = $ThemeId;
	if($timeout > 0)
	{
	$sql = "SELECT * FROM ".GetTablePrefix()."PhraseCache WHERE Template='$t' AND ThemeId=$ThemeId";
	$rs = $this->adodbConnection->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$this->TemplateCache = explode(',', $rs->fields['PhraseList']);
	$t_length = strlen($rs->fields['PhraseList']) ? 1 : 0;

	$this->TemplateDate = $rs->fields["CacheDate"];
	if(date("U") < $this->TemplateDate + $timeout \|\| !$t_length)
	{
	$this->TemplateCache = Array();
	$this->TemplateDate=0;
	}
	}
	else
	$this->TemplateDate = -1;
	}
	else
	$this->TemplateDate=-2;
	}

	function LoadCachedVars($LangId)
	{
	if(count($this->TemplateCache))
	{
	$values = implode(",",$this->TemplateCache);
	$this->FullLoad = FALSE;
	$this->m_CachedLanguage = $LangId;
	$sql = "SELECT Phrase,Translation FROM ".GetTablePrefix()."Phrase WHERE LanguageId=$LangId AND PhraseId IN ($values)";
	$rs = $this->adodbConnection->Execute($sql);
	while($rs && !$rs->EOF)
	{
	$this->cache[$rs->fields["Phrase"]] = $rs->fields["Translation"];
	if( defined('ADODB_EXTENSION') && constant('ADODB_EXTENSION') > 0 )
	adodb_movenext($rs);
	else
	$rs->MoveNext();
	}
	}
	}

	function SaveTemplateCache()
	{
	if($this->TemplateDate==0 \|\| $this->TemplateDate==-1)
	{
	$value = implode(",",$this->TemplateCache);
	if($this->TemplateDate==0)
	{
	$sql = "UPDATE ".GetTablePrefix()."PhraseCache SET PhraseList='$value',CacheDate=".date("U");
	$sql .=" WHERE Template='".$this->TemplateName."' AND ThemeId=".$this->ThemeId;
	}
	else
	{
	$sql = "INSERT INTO ".GetTablePrefix()."PhraseCache (Template,PhraseList,CacheDate,ThemeId) VALUES ('";
	$sql .= $this->TemplateName."','$value',".date("U").",".$this->ThemeId.")";
	}
	$this->adodbConnection->Execute($sql);
	}
	}

	//This function returns a translation for a particular phrase
	//if translation is not found then !phrase! is returned.
	function GetTranslation($phrase,$language)
	{
	global $objSession, $LogPhraseLookups,$LangList, $MissingList;

	$missing = FALSE;
	if(!$this->FullLoad)
	{
	$this->RefreshCacheStatus($language);
	if(!isset($this->cache[$phrase]))
	{
	$this->cache[$phrase] = $this->GetPhrase($phrase,$language);
	$translation = $this->cache[$phrase];
	//$translation = "";
	}
	else
	$translation = $this->cache[$phrase];
	}
	else
	{
	$translation = $this->cache[$phrase];
	}
	if(!strlen($translation))
	{
	$missing = TRUE;

	if($language != 1)
	{
	$translation=$this->GetTranslation($phrase,1);
	}
	else
	{
	$translation = "!".$phrase."!";
	}
	}

	if($LogPhraseLookups==TRUE)
	{
	//if(!is_array($LangList))
	// $LangList = array();
	//$LangList[$phrase] = $LangList;
	if($missing)
	{
	if(!is_array($MissingList))
	{
	$MissingList = array();
	}
	if(!in_array($phrase,$MissingList))
	$MissingList[] = $phrase;
	}
	}

	return $translation;
	}

	//This function checks if cache is current for current language
	//if not clear it out
	function RefreshCacheStatus($language)
	{
	//First remember what language we are caching
	// if(!isset($this->m_CachedLanguage))
	// $this->m_CachedLanguage = $language;


	//If this is the different language, then clear the cache
	// if($this->m_CachedLanguage != $language)
	// {
	// $this->Clear();
	// $this->m_CachedLanguage = $language;
	// }
	}

	}
	?>

	Property changes on: trunk/kernel/include/language.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.8
	\ No newline at end of property
	+1.9
	\ No newline at end of property
	Index: trunk/admin/category/addcategory_custom.php
	===================================================================
	--- trunk/admin/category/addcategory_custom.php (revision 560)
	+++ trunk/admin/category/addcategory_custom.php (revision 561)
	@@ -1,258 +1,253 @@
	<?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(__FILE__));
	if(strlen($path))
	{
	/* determine the OS type for path parsing */
	$pos = strpos($path,":");
	if ($pos === false)
	{
	$gOS_TYPE="unix";
	$pathchar = "/";
	}
	else
	{
	$gOS_TYPE="win";
	$pathchar="\\";
	}
	$p = $path.$pathchar;
	/Start looking for the root flag file /
	while(!strlen($pathtoroot) && strlen($p))
	{
	$sub = substr($p,strlen($pathchar)*-1);
	if($sub==$pathchar)
	{
	$filename = $p."root.flg";
	}
	else
	$filename = $p.$pathchar."root.flg";
	if(file_exists($filename))
	{
	$pathtoroot = $p;
	}
	else
	{
	$parent = realpath($p.$pathchar."..".$pathchar);
	if($parent!=$p)
	{
	$p = $parent;
	}
	else
	$p = "";
	}
	}
	if(!strlen($pathtoroot))
	$pathtoroot = ".".$pathchar;
	}
	else
	{
	$pathtoroot = ".".$pathchar;
	}
	}

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

	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");

	$m = GetModuleArray();
	foreach($m as $key=>$value)

	{
	$path = $pathtoroot. $value."admin/include/parser.php";
	if(file_exists($path))
	{
	include_once($path);
	}
	}
	unset($objEditItems);

	$objEditItems = new clsCatList();
	$objEditItems->SourceTable = $objSession->GetEditTable("Category");

	//Multiedit init
	$en = (int)$_GET["en"];
	$objEditItems->Query_Item("SELECT * FROM ".$objEditItems->SourceTable);
	$itemcount=$objEditItems->NumItems();

	$c = $objEditItems->GetItemByIndex($en);

	if($itemcount>1)
	{
	if ($en+1 == $itemcount)
	$en_next = -1;
	else
	$en_next = $en+1;

	if ($en == 0)
	$en_prev = -1;
	else
	$en_prev = $en-1;
	}
	$action = "m_edit_category";

	$envar = "env=" . BuildEnv() . "&en=$en";

	$section = 'in-portal:editcategory_custom';

	$title = admin_language("la_Text_Editing")." ".admin_language("la_Text_Category")." '".$c->Get("Name")."' - ".admin_language("la_tab_Custom");

	$formaction = $rootURL.$admin."/category/addcategory_custom.php?".$envar;

	//echo $envar."<br>\n";

	//Display header
	$sec = $objSections->GetSection($section);
	$objCatToolBar = new clsToolBar();

	$ListForm = "permlistform";
	$CheckClass = "PermChecks";
	$objCatToolBar->Set("CheckClass",$CheckClass);
	$objCatToolBar->Set("CheckForm",$ListForm);

	$saveURL = $admin."/category/category_maint.php";
	$cancelURL = $admin."/".$objSession->GetVariable('ReturnScript');
	$objCatToolBar->Add("img_save", "la_Save","#","swap('img_save','toolbar/tool_select_f2.gif');", "swap('img_save', 'toolbar/tool_select.gif');","do_edit_save('category','CatEditStatus','$saveURL',1);","tool_select.gif");
	$objCatToolBar->Add("img_cancel", "la_Cancel","#","swap('img_cancel','toolbar/tool_cancel_f2.gif');", "swap('img_cancel', 'toolbar/tool_cancel.gif');","do_edit_save('category','CatEditStatus','".$cancelURL."',2);","tool_cancel.gif");

	if ( isset($en_prev) \|\| isset($en_next) )
	{
	$url = $RootUrl.$admin."/category/addcategory_custom.php";
	$StatusField = "CatEditStatus";
	$form = "category";
	MultiEditButtons($objCatToolBar,$en_next,$en_prev,$form,$StatusField,$url,$sec->Get("OnClick"),'','la_PrevCategory','la_NextCategory');
	}

	int_header($objCatToolBar,NULL,$title);

	if ($objSession->GetVariable("HasChanges") == 1) {
	?>
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class="toolbar">
	<tr>
	<td valign="top">
	<?php int_hint_red(admin_language("la_Warning_Save_Item")); ?>
	</td>
	</tr>
	</table>
	<?php } ?>
	<form id="category" name="category" action="" method=POST>
	<?php

	$objCustomFields = new clsCustomFieldList(1);

	$objCustomDataList->SourceTable = $objSession->GetEditTable("CustomMetaData");
	$objCustomDataList->LoadResource($c->Get("ResourceId"));

	for($i=0;$i<$objCustomFields->NumItems(); $i++)
	{
	$field =& $objCustomFields->GetItemRefByIndex($i);
	$fieldid = $field->Get("CustomFieldId");

	$f = $objCustomDataList->GetDataItem($fieldid);
	$fieldname = "CustomData[$fieldid]";
	if(is_object($f))
	{
	$val_field = "<input type=\"text\" tabindex=\"".($i+1)."\" VALUE=\"".$f->Get("Value")."\" name=\"$fieldname\">";
	$field->Set("Value", $val_field);
	$field->Set("FieldLabel", admin_language($field->Get('Prompt')));
	$field->Set("DataId",$f->Get("CustomDataId"));
	}
	else
	{
	$val_field = "<input type=text tabindex=\"".($i+1)."\" VALUE=\"\" name=\"$fieldname\">";
	$field->Set("Value", $val_field);
	$field->Set("FieldLabel", admin_language($field->Get('Prompt')));
	$field->Set("DataId",0);
	}
	}
	$objCustomFields->SortField = $objConfig->Get("CustomData_LV_Sortfield");;
	$objCustomFields->SortItems($objConfig->Get("CustomData_LV_Sortorder")!="desc");

	$objListView = new clsListView($objCatToolBar,$objCustomFields);
	$objListView->IdField = "DataId";

	$order = $objConfig->Get("CustomData_LV_Sortfield");
	$SortOrder=0;
	if($objConfig->Get("CustomData_LV_Sortorder")=="asc")
	$SortOrder=1;

	$objListView->ColumnHeaders->Add("FieldName",admin_language("la_ColHeader_FieldName"),1,0,$order,"width=\"30%\"","CustomData_LV_Sortfield","CustomData_LV_Sortorder","FieldName");
	$objListView->ColumnHeaders->Add("FieldLabel",admin_language("la_ColHeader_FieldLabel"),1,0,$order,"width=\"30%\"","CustomData_LV_Sortfield","CustomData_LV_Sortorder","FieldLabel");
	$objListView->ColumnHeaders->Add("Value",admin_language("la_ColHeader_Value"),1,0,$order,"width=\"40%\"","CustomData_LV_Sortfield","CustomData_LV_Sortorder","Value");

	$objListView->ColumnHeaders->SetSort($objConfig->Get("CustomData_LV_Sortfield"), $objConfig->Get("CustomData_LV_Sortorder"));

	$objListView->PrintToolBar = FALSE;
	$objListView->checkboxes = FALSE;

	$objListView->CurrentPageVar = "Page_CustomData";
	$objListView->PerPageVar = "Perpage_CustomData";
	//$objListView->CheckboxName = "itemlist[]";

	for($i=0;$i<count($objCustomFields->Items);$i++)
	{
	$objListView->RowIcons[] = $imagesURL."/itemicons/icon16_custom.gif";
	}
	$objListView->PageLinks = $objListView->PrintPageLinks();

	$objListView->SliceItems();
	print $objListView->PrintList();
	?>
	<input type="hidden" name="ItemId" value="<?php echo $c->Get("ResourceId"); ?>">
	<input type="hidden" name="Action" value="m_edit_custom_data">
	<input type="hidden" name="CatEditStatus" VALUE="0">
	</FORM>


	<FORM id="save_edit" method="POST" NAME="save_edit" ID="save_edit">
	- <input type="hidden" name="CatEditStatus" VALUE="0">
	+ <input type="hidden" name="CatEditStatus" VALUE="0">
	</FORM>
	<!-- CODE FOR VIEW MENU -->
	<form ID="viewmenu" method="post" action="<?php echo $_SERVER["PHP_SELF"]."?".$envar; ?>" name="viewmenu">
	<input type="hidden" name="fieldname" value="">
	<input type="hidden" name="varvalue" value="">
	<input type="hidden" name="varvalue2" value="">
	<input type="hidden" name="Action" value="">
	</form>
	-<script src="<?php echo $adminURL; ?>/listview/listview.js"></script>
	-<script>
	-initSelectiorContainers();
	-<?php //echo $objCatToolBar->Get("CheckClass").".setImages();"; ?>
	- MarkAsRequired(document.getElementById("category"));
	-</script>
	+
	<?php int_footer(); ?>

	Property changes on: trunk/admin/category/addcategory_custom.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.4
	\ No newline at end of property
	+1.5
	\ No newline at end of property
	Index: trunk/admin/install.php
	===================================================================
	--- trunk/admin/install.php (revision 560)
	+++ trunk/admin/install.php (revision 561)
	@@ -1,1923 +1,1926 @@
	<?php
	error_reporting(0);

	-define("GET_LICENSE_URL", "http://www.intechnic.com/myaccount/license.php");
	define('BACKUP_NAME', 'dump(.*).txt'); // how backup dump files are named
	$general_error = '';

	$pathtoroot = "";
	if(!strlen($pathtoroot))
	{
	$path=dirname(realpath(__FILE__));
	//$path=dirname(realpath(__FILE__));
	if(strlen($path))
	{
	/* determine the OS type for path parsing */
	$pos = strpos($path,":");
	if ($pos === false)
	{
	$gOS_TYPE="unix";
	$pathchar = "/";
	}
	else
	{
	$gOS_TYPE="win";
	$pathchar="\\";
	}
	$p = $path.$pathchar;
	/Start looking for the root flag file /
	while(!strlen($pathtoroot) && strlen($p))
	{
	$sub = substr($p,strlen($pathchar)*-1);
	if($sub==$pathchar)
	{
	$filename = $p."root.flg";
	}
	else
	$filename = $p.$pathchar."root.flg";
	if(file_exists($filename))
	{
	$pathtoroot = $p;
	}
	else
	{
	$parent = realpath($p.$pathchar."..".$pathchar);
	if($parent!=$p)
	{
	$p = $parent;
	}
	else
	$p = "";
	}
	}
	if(!strlen($pathtoroot))
	$pathtoroot = ".".$pathchar;
	}
	else
	{
	$pathtoroot = ".".$pathchar;
	}
	}

	$path_char = GetPathChar();
	//phpinfo(INFO_VARIABLES);

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

	ini_set('include_path', '.');

	if( file_exists($pathtoroot.'debug.php') && !defined('DEBUG_MODE') ) include_once($pathtoroot.'debug.php');
	if(!defined('IS_INSTALL'))define('IS_INSTALL',1);
	$admin = substr($path,strlen($pathtoroot));
	$state = isset($_GET["state"]) ? $_GET["state"] : '';
	if(!strlen($state))
	{
	$state = isset($_POST['state']) ? $_POST['state'] : '';
	}

	+if (!defined("GET_LICENSE_URL")) {
	+ define("GET_LICENSE_URL", "http://www.intechnic.com/myaccount/license.php");
	+}
	+
	include($pathtoroot.$admin."/install/install_lib.php");

	$install_type = GetVar('install_type', true);
	$force_finish = isset($_REQUEST['ff']) ? true : false;

	$ini_file = $pathtoroot."config.php";
	if(file_exists($ini_file))
	{
	$write_access = is_writable($ini_file);
	$ini_vars = inst_parse_portal_ini($ini_file,TRUE);

	foreach($ini_vars as $secname => $section)
	{
	foreach($section as $key => $value)
	{
	$key = "g_".str_replace('-', '', $key);
	global $$key;
	$$key = $value;
	}
	}
	}
	else
	{
	$state="";
	$write_access = is_writable($pathtoroot);
	if($write_access)
	{
	set_ini_value("Database", "DBType", "");
	set_ini_value("Database", "DBHost", "");
	set_ini_value("Database", "DBUser", "");
	set_ini_value("Database", "DBUserPassword", "");
	set_ini_value("Database", "DBName", "");
	set_ini_value("Module Versions", "In-Portal", "");
	save_values();
	}
	}

	$titles[1] = "General Site Setup";
	$configs[1] = "in-portal:configure_general";
	$mods[1] = "In-Portal";

	$titles[2] = "User Setup";
	$configs[2] = "in-portal:configure_users";
	$mods[2] = "In-Portal:Users";

	$titles[3] = "Category Display Setup";
	$configs[3] = "in-portal:configure_categories";
	$mods[3] = "In-Portal";

	// simulate rootURL variable: begin
	$rootURL = 'http://'.dirname($_SERVER['HTTP_HOST'].$_SERVER['SCRIPT_NAME']);
	$tmp = explode('/', $rootURL);
	if( $tmp[ count($tmp) - 1 ] == $admin) unset( $tmp[ count($tmp) - 1 ] );
	$rootURL = implode('/', $tmp).'/';
	unset($tmp);
	//echo "RU: $rootURL<br>";
	// simulate rootURL variable: end

	$db_savings = Array('dbinfo', 'db_config_save', 'db_reconfig_save'); //, 'reinstall_process'
	if( isset($g_DBType) && $g_DBType && strlen($state)>0 && !in_array($state, $db_savings) )
	{
	require_once($pathtoroot."kernel/startup.php");
	$localURL=$rootURL."kernel/";
	$adminURL = $rootURL.$admin;
	$imagesURL = $adminURL."/images";

	//admin only util

	$pathtolocal = $pathtoroot."kernel/";
	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");
	}

	function GetPathChar($path = null)
	{
	if( !isset($path) ) $path = $GLOBALS['pathtoroot'];
	$pos = strpos($path, ':');
	return ($pos === false) ? "/" : "\\";
	}

	function SuperStrip($str, $inverse = false)
	{
	$str = $inverse ? str_replace("%5C","\\",$str) : str_replace("\\","%5C",$str);
	return stripslashes($str);
	}

	require_once($pathtoroot.$admin."/install/inst_ado.php");
	$helpURL = $rootURL.$admin.'/help/install_help.php?destform=popup&help_usage=install';
	?>
	<html>
	<head>
	<title>In-Portal Installation</title>
	<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
	<meta name="generator" content="Notepad">
	<link rel="stylesheet" type="text/css" href="include/style.css">
	<LINK REL="stylesheet" TYPE="text/css" href="install/2col.css">
	<SCRIPT LANGUAGE="JavaScript1.2">
	function MM_preloadImages() { //v3.0
	var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
	var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
	if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
	}

	function swap(imgid, src){
	var ob = document.getElementById(imgid);
	ob.src = 'images/' + src;
	}

	function Continue() {
	document.iform1.submit();
	}

	function CreatePopup(window_name, url, width, height)
	{
	// creates a popup window & returns it
	if(url == null && typeof(url) == 'undefined' ) url = '';
	if(width == null && typeof(width) == 'undefined' ) width = 750;
	if(height == null && typeof(height) == 'undefined' ) height = 400;


	return window.open(url,window_name,'width='+width+',height='+height+',status=yes,resizable=yes,menubar=no,scrollbars=yes,toolbar=no');
	}

	function ShowHelp(section)
	{
	var frm = document.getElementById('help_form');

	frm.section.value = section;
	frm.method = 'POST';
	CreatePopup('HelpPopup','<?php echo $rootURL.$admin; ?>/help/blank.html'); // , null, 600);
	frm.target = 'HelpPopup';
	frm.submit();
	}

	</SCRIPT>
	</head>

	<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" style="height: 100%">
	<form name="help_form" id="help_form" action="<?php echo $helpURL; ?>" method="post"><input type="hidden" id="section" name="section" value=""></form>
	<form enctype="multipart/form-data" name="iform1" id="iform1" method="post" action="<?php echo $_SERVER["PHP_SELF"]; ?>">
	<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%">
	<tr>
	<td height="90">
	<table cellpadding="0" cellspacing="0" border="0" width="100%" height="90">
	<tr>
	<td rowspan="3" valign="top"><a href="http://www.in-portal.net" target="_top"><img alt="In-portal" src="images/globe.gif" width="84" height="91" border="0"></a></td>
	<td rowspan="3" valign="top"><a href="http://www.in-portal.net" target="_top"><img alt="In-portal" src="images/logo.gif" width="150" height="91" border="0"></a></td>
	<td rowspan="3" width="100000" align="right"> </td>
	<td width="400"><img alt="" src="images/blocks.gif" width="400" height="73"></td>
	</tr>
	<tr><td align="right" background="images/version_bg.gif" class="head_version" valign="top"><img alt="" src="images/spacer.gif" width="1" height="14">In-Portal Version <?php echo GetMaxPortalVersion($pathtoroot.$admin)?>: English US</td></tr>
	<tr><td><img alt="" src="images/blocks2.gif" width="400" height="2"><br></td></tr>
	<tr><td bgcolor="black" colspan="4"><img alt="" src="images/spacer.gif" width="1" height="1"><br></td></tr>
	</table>
	</td>
	</tr>

	<?php
	require_once($pathtoroot."kernel/include/adodb/adodb.inc.php");

	if(!strlen($state))
	$state = @$_POST["state"];
	//echo $state;

	if(strlen($state)==0)
	{
	$ado =& inst_GetADODBConnection();
	$installed = $ado ? TableExists($ado,"ConfigurationAdmin,Category,Permissions") : false;

	if(!minimum_php_version("4.1.2"))
	{
	$general_error = "You have version ".phpversion()." - please upgrade!";
	//die();
	}

	if(!$write_access)
	{
	if ($general_error != '') {
	$general_error .= '<br /><br />';
	}
	$general_error .= "Install cannot write to config.php in the root directory of your in-portal installation ($pathtoroot).";
	//die();
	}

	if(!is_writable($pathtoroot."themes/"))
	{
	if ($general_error != '') {
	$general_error .= '<br /><br />';
	}
	$general_error .= "In-portal's Theme directory must be writable (".$pathtoroot."themes/).";
	//die();
	}

	if(!is_writable($pathtoroot."kernel/images/"))
	{
	if ($general_error != '') {
	$general_error .= '<br /><br />';
	}
	$general_error .= "In-portal's Image Upload directory must be writable (".$pathtoroot."kernel/images/).";
	//die();
	}

	if(!is_writable($pathtoroot."admin/backupdata/"))
	{
	if ($general_error != '') {
	$general_error .= '<br /><br />';
	}
	$general_error .= "In-portal's Backup directory must be writable (".$pathtoroot."admin/backupdata/).";
	//die();
	}

	if(!is_writable($pathtoroot."admin/export/"))
	{
	if ($general_error != '') {
	$general_error .= '<br /><br />';
	}
	$general_error .= "In-portal's Exportd directory must be writable (".$pathtoroot."admin/export/).";
	//die();
	}

	if($installed)
	{
	$state="reinstall";
	}
	else {
	$state="dbinfo";
	}

	}

	if($state=="reinstall_process")
	{
	$login_err_mesg = ''; // always init vars before use
	if( !isset($g_License) ) $g_License = '';
	$lic = base64_decode($g_License);
	if(strlen($lic))
	{
	inst_ParseLicense($lic);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	}

	$LoggedIn = FALSE;
	if($_POST["UserName"]=="root")
	{
	$ado =& inst_GetADODBConnection();
	$sql = "SELECT * FROM ".$g_TablePrefix."ConfigurationValues WHERE VariableName='RootPass'";

	$rs = $ado->Execute($sql);
	if($rs && !$rs->EOF)
	{
	$RootPass = $rs->fields["VariableValue"];

	if(strlen($RootPass)>0)
	$LoggedIn = ($RootPass==md5($_POST["UserPass"]));
	}
	}
	else
	{
	$act = '';
	if (ConvertVersion($g_InPortal) >= ConvertVersion("1.0.5")) {
	$act = 'check';
	}
	$rfile = @fopen(GET_LICENSE_URL."?login=".md5($_POST['UserName'])."&password=".md5($_POST['UserPass'])."&action=$act&license_code=".base64_encode($g_LicenseCode)."&version=".GetMaxPortalVersion($pathtoroot.$admin)."&domain=".base64_encode($_SERVER['HTTP_HOST']), "r");
	if (!$rfile) {
	$login_err_mesg = "Unable to connect to the Intechnic server!";
	$LoggedIn = false;
	}
	else {
	$rcontents = '';
	while (!feof($rfile)) {
	$line = fgets($rfile, 10000);
	$rcontents .= $line;
	}
	@fclose($rfile);

	if (substr($rcontents, 0, 5) == 'Error') {
	$login_err_mesg = substr($rcontents, 6);
	$LoggedIn = false;
	}
	else {
	$LoggedIn = true;
	}
	}
	//$LoggedIn = ($i_User == $_POST["UserName"] && ($i_Pswd == $_POST["UserPass"]) && strlen($i_User)>0) \|\| strlen($i_User)==0;
	}

	if($LoggedIn)
	{
	if (!(int)$_POST["inp_opt"]) {
	$state="reinstall";
	$inst_error = "Please select one of the options above!";
	}
	else {
	switch((int)$_POST["inp_opt"])
	{
	case 0:
	$inst_error = "Please select an option above";
	break;
	case 1:
	/* clean out all tables */
	$install_type = 4;
	$ado =& inst_GetADODBConnection();
	$filename = $pathtoroot.$admin."/install/inportal_remove.sql";
	RunSchemaFile($ado,$filename);

	// removing other tables
	$tables = $ado->MetaTables();

	foreach($tables as $tab_name) {
	if (strstr($tab_name, $g_TablePrefix."ses_")) {
	$sql = "DROP TABLE IF EXISTS $tab_name";
	$ado->Execute($sql);
	}
	}

	/* run install again */
	$state="license";
	break;
	case 2:
	$install_type = 3;
	$state="dbinfo";
	break;
	case 3:
	$install_type = 5;
	$state="license";
	break;
	case 4:
	$install_type = 6;
	/* clean out all tables */
	$ado =& inst_GetADODBConnection();
	//$filename = $pathtoroot.$admin."/install/inportal_remove.sql";
	//RunSchemaFile($ado,$filename);
	/* run install again */
	$state="restore_select";
	break;
	case 5:
	$install_type = 7;
	/* change DB config */
	$state="db_reconfig";
	break;
	case 6:
	$install_type = 8;
	$state = "upgrade";
	break;
	}
	}
	}
	else
	{
	$state="reinstall";
	$login_error = $login_err_mesg;//"Invalid Username or Password - Try Again";
	}
	}

	if ($state == "upgrade") {
	$ado =& inst_GetADODBConnection();

	$Modules = array();
	$Texts = array();

	if (ConvertVersion(GetMaxPortalVersion($pathtoroot.$admin)) >= ConvertVersion("1.0.5") && ($g_LicenseCode == '' && $g_License != '')) {
	$state = 'reinstall';
	$inst_error = "Your license must be updated before you can upgrade. Please don't use 'Existing License' option, instead either Download from Intechnic or Upload a new license file!";
	}
	else {
	$sql = "SELECT Name, Version FROM ".$g_TablePrefix."Modules ORDER BY LoadOrder asc";

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

	$i = 0;
	while ($rs && !$rs->EOF) {
	$p = strtolower($rs->fields['Name']);

	if ($p == 'in-portal') {
	$p = '';
	}

	$dir_name = $pathtoroot.$p."/admin/install/upgrades/";

	$dir = @dir($dir_name);

	while ($file = $dir->read()) {
	if ($file != "." && $file != ".." && !is_dir($dir_name.$file))
	{
	if (strstr($file, 'inportal_upgrade_v')) {
	$file = str_replace("inportal_upgrade_v", "", $file);
	$file = str_replace(".sql", "", $file);

	$sql = "SELECT count(*) AS count FROM ".$g_TablePrefix."Modules WHERE Name = '".$rs->fields['Name']."' AND Version = '$file'";
	$rs1 = $ado->Execute($sql);

	if ($rs1->fields['count'] == 0 && ConvertVersion($file) > ConvertVersion($rs->fields['Version'])) {
	if ($Modules[$i-1] == $rs->fields['Name']) {
	$Texts[$i-1] = $rs->fields['Name']." (".$rs->fields['Version']." ".prompt_language("la_to")." ".$file.")";
	$i--;
	}
	else {
	$Texts[$i] = $rs->fields['Name']." (".$rs->fields['Version']." ".prompt_language("la_to")." ".$file.")";
	$Modules[$i] = $rs->fields['Name'];
	}

	$i++;
	}
	}
	}
	}

	$rs->MoveNext();
	}

	$include_file = $pathtoroot.$admin."/install/upgrade.php";
	}
	}

	if ($state == "upgrade_process") {
	$ado =& inst_GetADODBConnection();
	$mod_arr = $_POST['modules'];

	$mod_str = '';
	foreach ($mod_arr as $tmp_mod) {
	$mod_str .= "'$tmp_mod',";
	}

	$mod_str = substr($mod_str, 0, strlen($mod_str) - 1);

	$sql = "SELECT Name FROM ".$g_TablePrefix."Modules WHERE Name IN ($mod_str) ORDER BY LoadOrder";
	$rs = $ado->Execute($sql);

	$mod_arr = array();
	while ($rs && !$rs->EOF) {
	$mod_arr[] = $rs->fields['Name'];
	$rs->MoveNext();
	}

	foreach($mod_arr as $p)
	{
	$mod_name = strtolower($p);

	$sql = "SELECT Version FROM ".$g_TablePrefix."Modules WHERE Name = '$p'";
	$rs = $ado->Execute($sql);

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

	if ($mod_name == 'in-portal') {
	$mod_name = '';
	}

	$dir_name = $pathtoroot.$mod_name."/admin/install/upgrades/";
	$dir = @dir($dir_name);

	$upgrades_arr = Array();

	$new_version = '';
	while ($file = $dir->read()) {
	if ($file != "." && $file != ".." && !is_dir($dir_name.$file)) {
	if (strstr($file, 'inportal_upgrade_v')) {
	$upgrades_arr[] = $file;
	}
	}
	}

	usort($upgrades_arr, "VersionSort");

	foreach($upgrades_arr as $file) {
	$file_tmp = str_replace("inportal_upgrade_v", "", $file);
	$file_tmp = str_replace(".sql", "", $file_tmp);

	if (ConvertVersion($file_tmp) > ConvertVersion($current_version)) {
	$filename = $pathtoroot.$mod_name."/admin/install/upgrades/$file";
	//echo "Running: $filename<br>";
	if(file_exists($filename))
	{
	RunSQLFile($ado, $filename);
	}
	}
	}

	set_ini_value("Module Versions", $p, GetMaxPortalVersion($pathtoroot.$mod_name."/admin/"));
	save_values();
	}

	$state = 'languagepack_upgrade';
	}

	// upgrade language pack
	if($state=='languagepack_upgrade')
	{
	$state = 'lang_install_init';
	$_POST['lang'][] = 'english.lang';
	$force_finish = true;
	}

	if($state=="db_reconfig_save")
	{
	$ini_vars = inst_parse_portal_ini($ini_file,TRUE);

	foreach($ini_vars as $secname => $section)
	{
	foreach($section as $key => $value)
	{
	$key = "g_".str_replace("-", "", $key);
	global $$key;
	$$key = $value;
	}
	}
	unset($ado);
	$ado = VerifyDB('db_reconfig', 'finish', 'SaveDBConfig', true);
	}


	if($state=="db_reconfig")
	{
	$include_file = $pathtoroot.$admin."/install/db_reconfig.php";
	}

	if($state=="restore_file")
	{
	if($_POST["submit"]=="Update")
	{
	$filepath = $_POST["backupdir"];
	$state="restore_select";
	}
	else
	{
	$filepath = stripslashes($_POST['backupdir']);
	$backupfile = $filepath.$path_char.str_replace('(.*)', $_POST['backupdate'], BACKUP_NAME);

	if(file_exists($backupfile) && is_readable($backupfile))
	{
	$ado =& inst_GetADODBConnection();

	$show_warning = false;

	if (!$_POST['warning_ok']) {
	// Here we comapre versions between backup and config
	$file_contents = file_get_contents($backupfile);

	$file_tmp_cont = explode("#------------------------------------------", $file_contents);
	$tmp_vers = $file_tmp_cont[0];

	$vers_arr = explode(";", $tmp_vers);
	$ini_values = inst_parse_portal_ini($ini_file);

	foreach ($ini_values as $key => $value) {
	foreach ($vers_arr as $k) {
	if (strstr($k, $key)) {
	if (!strstr($k, $value)) {
	$show_warning = true;
	}
	}
	}
	}
	//$show_warning = true;
	}

	if (!$show_warning) {
	$filename = $pathtoroot.$admin.$path_char.'install'.$path_char.'inportal_remove.sql';
	RunSchemaFile($ado,$filename);
	$state="restore_run";
	}
	else {
	$state = "warning";
	$include_file = $pathtoroot.$admin."/install/warning.php";
	}
	}
	else {
	if ($_POST['backupdate'] != '') {
	$include_file = $pathtoroot.$admin."/install/restore_select.php";
	$restore_error = "$backupfile not found or could not be read";
	}
	else {
	$include_file = $pathtoroot.$admin."/install/restore_select.php";
	$restore_error = "No backup selected!!!";
	}
	}
	}
	//echo $restore_error;
	}

	if($state=="restore_select")
	{
	if( isset($_POST['backupdir']) ) $filepath = stripslashes($_POST['backupdir']);
	$include_file = $pathtoroot.$admin."/install/restore_select.php";
	}

	if($state=="restore_run")
	{
	$ado =& inst_GetADODBConnection();
	$FileOffset = (int)$_GET["Offset"];
	if(!strlen($backupfile))
	$backupfile = SuperStrip($_GET['File'], true);

	$include_file = $pathtoroot.$admin."/install/restore_run.php";
	}

	if($state=="db_config_save")
	{
	set_ini_value("Database", "DBType",$_POST["ServerType"]);
	set_ini_value("Database", "DBHost",$_POST["ServerHost"]);
	set_ini_value("Database", "DBName",$_POST["ServerDB"]);
	set_ini_value("Database", "DBUser",$_POST["ServerUser"]);
	set_ini_value("Database", "DBUserPassword",$_POST["ServerPass"]);
	set_ini_value("Database","TablePrefix",$_POST["TablePrefix"]);

	save_values();
	$ini_vars = inst_parse_portal_ini($ini_file,TRUE);

	foreach($ini_vars as $secname => $section)
	{
	foreach($section as $key => $value)
	{
	$key = "g_".str_replace("-", "", $key);
	global $$key;
	$$key = $value;
	}
	}
	unset($ado);
	$ado = VerifyDB('dbinfo', 'license');
	}

	if($state=="dbinfo")
	{
	if ($install_type == '') {
	$install_type = 1;
	}
	$include_file = $pathtoroot.$admin."/install/dbinfo.php";
	}

	if ($state == "download_license") {
	$ValidLicense = FALSE;

	$lic_login = isset($_POST['login']) ? $_POST['login'] : '';
	$lic_password = isset($_POST['password']) ? $_POST['password'] : '';

	if ($lic_login != '' && $lic_password != '') {
	// Here we determine weather login is ok & check available licenses

	$rfile = @fopen(GET_LICENSE_URL."?login=".md5($_POST['login'])."&password=".md5($_POST['password'])."&version=".GetMaxPortalVersion($pathtoroot.$admin)."&domain=".base64_encode($_SERVER['HTTP_HOST']), "r");
	if (!$rfile) {
	$get_license_error = "Unable to connect to the Intechnic server! Please try again later!";
	$state = "get_license";
	$include_file = $pathtoroot.$admin."/install/get_license.php";
	}
	else {
	$rcontents = '';
	while (!feof($rfile)) {
	$line = fgets($rfile, 10000);
	$rcontents .= $line;
	}
	@fclose($rfile);

	if (substr($rcontents, 0, 5) == 'Error') {
	$get_license_error = substr($rcontents, 6);
	$state = "get_license";
	$include_file = $pathtoroot.$admin."/install/get_license.php";
	}
	else {
	if (substr($rcontents, 0, 3) == "SEL") {
	$state = "download_license";
	$license_select = substr($rcontents, 4);
	$include_file = $pathtoroot.$admin."/install/download_license.php";
	}
	else {
	// Here we get one license
	$tmp_data = explode('Code==:', $rcontents);

	$data = base64_decode(str_replace("In-Portal License File - do not edit!\n", "", $tmp_data[0]));
	inst_ParseLicense($data);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	if($ValidLicense)
	{
	set_ini_value("Intechnic","License",base64_encode($data));
	set_ini_value("Intechnic","LicenseCode",$tmp_data[1]);
	save_values();
	$state="domain_select";
	$got_license = 1;
	}
	else {
	$license_error="Invalid License File";
	}
	if(!$ValidLicense)
	{
	$state="license";
	}
	}
	}
	}

	}
	else if ($_POST['licenses'] == '') {
	$state = "get_license";
	$get_license_error = "Username and / or password not specified!!!";
	$include_file = $pathtoroot.$admin."/install/get_license.php";
	}
	else {
	// Here we download license
	$rfile = @fopen(GET_LICENSE_URL."?license_id=".md5($_POST['licenses'])."&dlog=".md5($_POST['dlog'])."&dpass=".md5($_POST['dpass'])."&version=".GetMaxPortalVersion($pathtoroot.$admin)."&domain=".base64_encode($_POST['domain']), "r");
	if (!$rfile) {
	$get_license_error = "Unable to connect to the Intechnic server! Please try again later!";
	$state = "get_license";
	$include_file = $pathtoroot.$admin."/install/get_license.php";
	}
	else {
	$rcontents = '';
	while (!feof($rfile)) {
	$line = fgets($rfile, 10000);
	$rcontents .= $line;
	}
	@fclose($rfile);

	if (substr($rcontents, 0, 5) == 'Error') {
	$download_license_error = substr($rcontents, 6);
	$state = "download_license";
	$include_file = $pathtoroot.$admin."/install/download_license.php";
	}
	else {
	$tmp_data = explode('Code==:', $rcontents);

	$data = base64_decode(str_replace("In-Portal License File - do not edit!\n", "", $tmp_data[0]));
	inst_ParseLicense($data);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	if($ValidLicense)
	{
	set_ini_value("Intechnic","License",base64_encode($data));
	// old licensing script doen't return 2nd parameter (licanse code)
	if( isset($tmp_data[1]) ) set_ini_value("Intechnic","LicenseCode",$tmp_data[1]);
	save_values();
	$state="domain_select";
	}
	else {
	$license_error="Invalid License File";
	}
	if(!$ValidLicense)
	{
	$state="license";
	}
	}
	}
	}
	}

	if($state=="license_process")
	{
	$ValidLicense = FALSE;
	$tmp_lic_opt = GetVar('lic_opt', true);
	switch($tmp_lic_opt)
	{
	case 1: /* download from intechnic */
	$include_file = $pathtoroot.$admin."/install/get_license.php";
	$state = "get_license";
	//if(!$ValidLicense)
	//{
	// $state="license";
	//}
	break;
	case 2: /* upload file */
	$file = $_FILES["licfile"];
	if(is_array($file))
	{
	move_uploaded_file($file["tmp_name"],$pathtoroot."themes/tmp.lic");
	$fp = @fopen($pathtoroot."themes/tmp.lic","rb");
	if($fp)
	{
	$lic = fread($fp,filesize($pathtoroot."themes/tmp.lic"));
	fclose($fp);
	}

	$tmp_data = inst_LoadLicense(FALSE,$pathtoroot."themes/tmp.lic");
	$data = $tmp_data[0];

	@unlink($pathtoroot."themes/tmp.lic");
	inst_ParseLicense($data);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	if($ValidLicense)
	{
	set_ini_value("Intechnic","License",base64_encode($data));
	set_ini_value("Intechnic","LicenseCode",$tmp_data[1]);
	save_values();
	$state="domain_select";
	}
	else
	$license_error="Invalid License File";
	}
	if(!$ValidLicense)
	{
	$state="license";
	}
	break;
	case 3: /* existing */
	if(strlen($g_License))
	{
	$lic = base64_decode($g_License);
	inst_ParseLicense($lic);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	if($ValidLicense)
	{
	$state="domain_select";
	}
	else
	{
	$state="license";
	$license_error="Invalid or corrupt license detected";
	}
	}
	else
	{
	$state="license";
	$license_error="Missing License File";
	}
	if(!$ValidLicense)
	{
	$state="license";
	}
	break;
	case 4:
	//set_ini_value("Intechnic","License",base64_encode("local"));
	//set_ini_value("Intechnic","LicenseCode",base64_encode("local"));
	//save_values();
	$state="domain_select";
	break;
	}
	if($ValidLicense)
	$state="domain_select";
	}

	if($state=="license")
	{
	$include_file = $pathtoroot.$admin."/install/sel_license.php";

	}

	if($state=="reinstall")
	{
	$ado =& inst_GetADODBConnection();

	$show_upgrade = false;

	$sql = "SELECT Name FROM ".$g_TablePrefix."Modules";
	$rs = $ado->Execute($sql);

	$modules = '';
	while ($rs && !$rs->EOF) {
	$modules .= strtolower($rs->fields['Name']).',';
	$rs->MoveNext();
	}

	$mod_arr = explode(",", substr($modules, 0, strlen($modules) - 1));

	foreach($mod_arr as $p)
	{
	if ($p == 'in-portal') {
	$p = '';
	}

	$dir_name = $pathtoroot.$p."/admin/install/upgrades/";

	$dir = @dir($dir_name);
	//echo "<pre>"; print_r($dir); echo "</pre>";

	while ($file = $dir->read()) {
	if ($file != "." && $file != ".." && !is_dir($dir_name.$file))
	{

	if (strstr($file, 'inportal_upgrade_v')) {
	$file = str_replace("inportal_upgrade_v", "", $file);
	$file = str_replace(".sql", "", $file);
	if ($p == '') {
	$p = 'in-portal';
	}
	$sql = "SELECT Version FROM ".$g_TablePrefix."Modules WHERE Name = '".$p."'";
	$rs = $ado->Execute($sql);

	if (ConvertVersion($rs->fields['Version']) < ConvertVersion($file)) {
	$show_upgrade = true;
	}
	}
	}
	}
	}

	if ( !isset($install_type) \|\| $install_type == '') {
	$install_type = 2;
	}

	$include_file = $pathtoroot.$admin."/install/reinstall.php";
	}

	if($state=="login")
	{
	$lic = base64_decode($g_License);
	if(strlen($lic))
	{
	inst_ParseLicense($lic);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	}

	if(!$ValidLicense)
	{
	$state="license";
	}
	else
	if($i_User == $_POST["UserName"] \|\| $i_Pswd == $_POST["UserPass"])
	{
	$state = "domain_select";
	}
	else
	{
	$state="getuser";
	$login_error = "Invalid User Name or Password. If you don't know your username or password, contact Intechnic Support";
	}

	//die();
	}

	if($state=="getuser")
	{
	$include_file = $pathtoroot.$admin."/install/login.php";
	}

	if($state=="set_domain")
	{
	if( !is_array($i_Keys) \|\| !count($i_Keys) )
	{
	$lic = base64_decode($g_License);
	if(strlen($lic))
	{
	inst_ParseLicense($lic);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	}
	}

	if($_POST["domain"]==1)
	{
	$domain = $_SERVER['HTTP_HOST'];

	if (strstr($domain, $i_Keys[0]['domain']) \|\| inst_IsLocalSite($domain)) {
	set_ini_value("Intechnic","Domain",$domain);
	save_values();
	$state="runsql";
	}
	else {
	$DomainError = 'Domain name selected does not match domain name in the license!';
	$state = "domain_select";
	}
	}
	else
	{
	$domain = str_replace(" ", "", $_POST["other"]);
	if ($domain != '') {
	if (strstr($domain, $i_Keys[0]['domain']) \|\| inst_IsLocalSite($domain)) {
	set_ini_value("Intechnic","Domain",$domain);
	save_values();
	$state="runsql";
	}
	else {
	$DomainError = 'Domain name entered does not match domain name in the license!';
	$state = "domain_select";
	}
	}
	else {
	$DomainError = 'Please enter valid domain!';
	$state = "domain_select";
	}
	}
	}

	if($state=="domain_select")
	{
	if(!is_array($i_Keys))
	{
	$lic = base64_decode($g_License);
	if(strlen($lic))
	{
	inst_ParseLicense($lic);
	$ValidLicense = ((strlen($i_User)>0) && (strlen($i_Pswd)>0));
	}
	}

	$include_file = $pathtoroot.$admin."/install/domain.php";
	}


	if($state=="runsql")
	{
	$ado =& inst_GetADODBConnection();
	$installed = TableExists($ado,"ConfigurationAdmin,Category,Permissions");
	if(!$installed)
	{
	// create tables
	$filename = $pathtoroot.$admin."/install/inportal_schema.sql";
	RunSchemaFile($ado,$filename);

	// insert default info
	$filename = $pathtoroot.$admin."/install/inportal_data.sql";
	RunSQLFile($ado,$filename);

	$sql = "SELECT Version FROM ".$g_TablePrefix."Modules WHERE Name = 'In-Portal'";
	$rs = $ado->Execute($sql);

	set_ini_value("Module Versions", "In-Portal", $rs->fields['Version']);
	save_values();

	require_once $pathtoroot.'kernel/include/tag-class.php';
	if( !is_object($objTagList) ) $objTagList = new clsTagList();

	// install kernel specific tags
	$objTagList->DeleteTags(); // delete all existing tags in db

	// create 3 predifined tags (because there no functions with such names
	$t = new clsTagFunction();
	$t->Set("name","include");
	$t->Set("description","insert template output into the current template");
	$t->Create();
	$t->AddAttribute("_template","tpl","Template to insert","",TRUE);
	$t->AddAttribute("_supresserror","bool","Supress missing template errors","",FALSE);
	$t->AddAttribute("_dataexists","bool","Only include template output if content exists (content is defined by the tags in the template)","",FALSE);
	$t->AddAttribute("_nodatatemplate","tpl","Template to include if the nodataexists condition is true","",FALSE);
	unset($t);

	$t = new clsTagFunction();
	$t->Set("name","perm_include");
	$t->Set("description","insert template output into the current template if permissions are set");
	$t->Create();
	$t->AddAttribute("_template","tpl","Template to insert","",TRUE);
	$t->AddAttribute("_noaccess","tpl","Template to insert if access is denied","",FALSE);
	$t->AddAttribute("_permission","","Comma-separated list of permissions, any of which will grant access","",FALSE);
	$t->AddAttribute("_module","","Used in place of the _permission attribute, this attribute verifies the module listed is enabled","",FALSE);
	$t->AddAttribute("_system","bool","Must be set to true if any permissions in _permission list is a system permission","",FALSE);
	$t->AddAttribute("_supresserror","bool","Supress missing template errors","",FALSE);
	$t->AddAttribute("_dataexists","bool","Only include template output if content exists (content is defined by the tags in the template)","",FALSE);
	$t->AddAttribute("_nodatatemplate","tpl","Template to include if the nodataexists condition is true","",FALSE);
	unset($t);

	$t = new clsTagFunction();
	$t->Set("name","mod_include");
	$t->Set("description","insert templates from all enabled modules. No error occurs if the template does not exist.");
	$t->Create();
	$t->AddAttribute("_template","tpl","Template to insert. This template path should be relative to the module template root directory","",TRUE);
	$t->AddAttribute("_modules","","Comma-separated list of modules. Defaults to all enabled modules if not set","",FALSE);
	$t->AddAttribute("_supresserror","bool","Supress missing template errors","",FALSE);
	$t->AddAttribute("_dataexists","bool","Only include template output if content exists (content is defined by the tags in the template)","",FALSE);
	$t->AddAttribute("_nodatatemplate","tpl","Template to include if the nodataexists condition is true","",FALSE);

	$objTagList->ParseFile($pathtoroot.'kernel/parser.php'); // insert module tags

	if( is_array($ItemTagFiles) )
	foreach($ItemTagFiles as $file)
	$objTagList->ParseItemFile($pathtoroot.$file);

	$state="RootPass";
	}
	else {
	$include_file = $pathtoroot.$admin."/install/install_finish.php";
	$state="finish";
	}
	}

	if ($state == "finish") {
	$ado =& inst_GetADODBConnection();
	$PhraseTable = GetTablePrefix()."ImportPhrases";
	$EventTable = GetTablePrefix()."ImportEvents";
	$ado->Execute("DROP TABLE IF EXISTS $PhraseTable");
	$ado->Execute("DROP TABLE IF EXISTS $EventTable");

	$include_file = $pathtoroot.$admin."/install/install_finish.php";
	}

	if($state=="RootSetPass")
	{
	$pass = $_POST["RootPass"];
	if(strlen($pass)<4)
	{
	$PassError = "Root Password must be at least 4 characters";
	$state = "RootPass";

	}
	else if ($pass != $_POST["RootPassConfirm"]) {
	$PassError = "Passwords does not match";
	$state = "RootPass";
	}
	else
	{
	$pass = md5($pass);
	$sql = "UPDATE ".$g_TablePrefix."ConfigurationValues SET VariableValue = '$pass' WHERE VariableName='RootPass' OR VariableName='RootPassVerify'";
	$ado =& inst_GetADODBConnection();
	$ado->Execute($sql);
	$state="modselect";
	}
	}

	if($state=="RootPass")
	{
	$include_file = $pathtoroot.$admin."/install/rootpass.php";
	}

	if($state=="lang_install_init")
	{
	include_once($pathtoroot."kernel/include/xml.php");

	$ado =& inst_GetADODBConnection();

	if (TableExists($ado, "Language,Phrase")) {
	$MaxInserts = 200;
	$PhraseTable = GetTablePrefix()."ImportPhrases";
	$EventTable = GetTablePrefix()."ImportEvents";

	$sql = "CREATE TABLE $PhraseTable SELECT Phrase,Translation,PhraseType,LanguageId FROM ".GetTablePrefix()."Phrase WHERE PhraseId=-1";
	$ado->Execute($sql);

	$sql = "CREATE TABLE $EventTable SELECT Template,MessageType,EventId,LanguageId FROM ".GetTablePrefix()."EmailMessage WHERE EmailMessageId=-1";
	$ado->Execute($sql);
	$sql = "SELECT EventId,Event,Type FROM ".GetTablePrefix()."Events";
	$rs = $ado->Execute($sql);
	$Events = array();
	while($rs && !$rs->EOF)
	{
	$Events[$rs->fields["Event"]."_".$rs->fields["Type"]] = $rs->fields["EventId"];
	$rs->MoveNext();
	}

	if(count($_POST["lang"])>0)
	{
	$Langs = $_POST["lang"];
	for($x=0;$x<count($Langs);$x++)
	{
	$lang = $Langs[$x];
	$p = $pathtoroot.$admin."/install/langpacks/".$lang;
	/* parse xml file */
	$fp = fopen($p,"r");
	$xml = fread($fp,filesize($p));
	fclose($fp);
	unset($objInXML);
	$objInXML = new xml_doc($xml);
	$objInXML->parse();

	$objInXML->getTag(0,$name,$attribs,$contents,$tags);

	if(is_array($tags))
	{
	foreach($tags as $t)
	{
	$LangRoot =& $objInXML->getTagByID($t);
	$PackName = $LangRoot->attributes["PACKNAME"];
	$l = $objLanguages->GetItemByField("PackName",$PackName);
	if(is_object($l))
	{
	$LangId = $l->Get("LanguageId");
	$NewLang = false;
	}
	else
	{
	$l = new clsLanguage();
	$l->Set("Enabled",1);
	$l->Create();
	$NewLang = true;
	$LangId = $l->Get("LanguageId");
	}
	foreach($LangRoot->children as $tag)
	{
	switch($tag->name)
	{
	case "PHRASES":
	foreach($tag->children as $PhraseTag)
	{
	$Phrase = $ado->qstr($PhraseTag->attributes["LABEL"]);
	$Translation = $ado->qstr(base64_decode($PhraseTag->contents));

	$PhraseType = $PhraseTag->attributes["TYPE"];
	$psql = "INSERT INTO $PhraseTable (Phrase,Translation,PhraseType,LanguageId) VALUES ($Phrase,$Translation,$PhraseType,$LangId)";

	$ado->Execute($psql);
	//echo "$psql <br>\n";
	}
	break;
	case "DATEFORMAT":
	$DateFormat = $tag->contents;
	break;
	case "TIMEFORMAT":
	$TimeFormat = $tag->contents;
	break;
	case "DECIMAL":
	$Decimal = $tag->contents;
	break;
	case "THOUSANDS":
	$Thousands = $tag->contents;
	break;
	case "EVENTS":
	foreach($tag->children as $EventTag)
	{
	$event = $EventTag->attributes["EVENT"];
	$MsgType = strtolower($EventTag->attributes["MESSAGETYPE"]);
	$template = base64_decode($EventTag->contents);
	$Type = $EventTag->attributes["TYPE"];
	$EventId = $Events[$event."_".$Type];

	$esql = "INSERT INTO $EventTable (Template,MessageType,EventId,LanguageId) VALUES ('$template','$MsgType',$EventId,$LangId)";
	$ado->Execute($esql);
	//echo htmlentities($esql)."<br>\n";
	}
	break;
	}
	if($NewLang)
	{
	$l->Set("PackName",$PackName);
	$l->Set("LocalName",$PackName);
	$l->Set("DateFormat",$DateFormat);
	$l->Set("TimeFormat",$TimeFormat);
	$l->Set("DecimalPoint",$Decimal);
	$l->Set("ThousandSep",$Thousands);
	$l->Update();
	}
	}
	}
	}

	}
	$state="lang_install";
	}
	else {
	$state="lang_select";
	}
	}
	else {
	$general_error = 'Database error! No language tables found!';
	}
	}

	if($state=="lang_install")
	{
	/* do pack install */
	$Offset = (int)$_GET["Offset"];
	$Status = (int)$_GET["Status"];
	$PhraseTable = GetTablePrefix()."ImportPhrases";
	$EventTable = GetTablePrefix()."ImportEvents";
	if($Status==0)
	{
	$Total = TableCount($PhraseTable,"",0);
	}
	else
	{
	$Total = TableCount($EventTable,"",0);
	}

	if($Status==0)
	{
	$Offset = $objLanguages->ReadImportTable($PhraseTable, 1,"0,1,2", $force_finish ? false : true, 200,$Offset);
	if($Offset>=$Total)
	{
	$Offset=0;
	$Status=1;
	}

	$next_step = GetVar('next_step', true);

	if($force_finish == true) $next_step = 3;
	$NextUrl = $_SERVER['PHP_SELF']."?Offset=$Offset&Status=$Status&state=lang_install&next_step=$next_step&install_type=$install_type";
	if($force_finish == true) $NextUrl .= '&ff=1';
	$include_file = $pathtoroot.$admin."/install/lang_run.php";
	}
	else
	{
	if(!is_object($objMessageList))
	$objMessageList = new clsEmailMessageList();


	$Offset = $objMessageList->ReadImportTable($EventTable, $force_finish ? false : true,100,$Offset);

	if($Offset>$Total)
	{
	$next_step = GetVar('next_step', true);

	if($force_finish == true) $next_step = 3;
	$NextUrl = $_SERVER['PHP_SELF']."?Offset=$Offset&Status=$Status&State=lang_install&next_step=$next_step&install_type=$install_type";
	if($force_finish == true) $NextUrl .= '&ff=1';
	$include_file = $pathtoroot.$admin."/install/lang_run.php";
	}
	else
	{
	$db =&GetADODBConnection();
	$prefix = GetTablePrefix();
	$db->Execute('DROP TABLE IF EXISTS '.$prefix.'ImportPhrases');
	$db->Execute('DROP TABLE IF EXISTS '.$prefix.'ImportEvents');
	if( !$force_finish )
	{
	$state = 'lang_default';
	}
	else
	{
	$_POST['next_step'] = 4;
	$state = 'finish';
	$include_file = $pathtoroot.$admin."/install/install_finish.php";
	}
	}
	}
	}

	if($state=="lang_default_set")
	{
	// phpinfo(INFO_VARIABLES);
	/*$ado =& inst_GetADODBConnection();
	$PhraseTable = GetTablePrefix()."ImportPhrases";
	$EventTable = GetTablePrefix()."ImportEvents";
	$ado->Execute("DROP TABLE IF EXISTS $PhraseTable");
	$ado->Execute("DROP TABLE IF EXISTS $EventTable");*/

	$Id = $_POST["lang"];

	$objLanguages->SetPrimary($Id);
	$state="postconfig_1";
	}

	if($state=="lang_default")
	{
	$Packs = Array();
	$objLanguages->Clear();

	$objLanguages->LoadAllLanguages();
	foreach($objLanguages->Items as $l)
	{
	$Packs[$l->Get("LanguageId")] = $l->Get("PackName");
	}
	$include_file = $pathtoroot.$admin."/install/lang_default.php";
	}



	if($state=="modinstall")
	{
	$doms = $_POST["domain"];
	if(is_array($doms))
	{
	$ado =& inst_GetADODBConnection();
	require_once $pathtoroot.'kernel/include/tag-class.php';
	if( !isset($objTagList) \|\| !is_object($objTagList) ) $objTagList = new clsTagList();
	foreach($doms as $p)
	{
	$filename = $pathtoroot.$p.'/admin/install.php';
	if(file_exists($filename) )
	{
	include($filename);
	}
	}

	}

	/* $sql = "SELECT Name FROM ".GetTablePrefix()."Modules";
	$rs = $ado->Execute($sql);

	while($rs && !$rs->EOF)
	{
	$p = $rs->fields['Name'];
	$mod_name = strtolower($p);

	if ($mod_name == 'in-portal') {
	$mod_name = '';
	}

	$dir_name = $pathtoroot.$mod_name."/admin/install/upgrades/";
	$dir = @dir($dir_name);

	$new_version = '';
	$tmp1 = 0;
	$tmp2 = 0;
	while ($file = $dir->read()) {
	if ($file != "." && $file != ".." && !is_dir($dir_name.$file))
	{
	$file = str_replace("inportal_upgrade_v", "", $file);
	$file = str_replace(".sql", "", $file);

	if ($file != '' && !strstr($file, 'changelog') && !strstr($file, 'readme')) {
	$tmp1 = str_replace(".", "", $file);
	if ($tmp1 > $tmp2) {
	$new_version = $file;
	}
	}
	}
	$tmp2 = $tmp1;
	}


	$version_nrs = explode(".", $new_version);

	for ($i = 0; $i < $version_nrs[0] + 1; $i++) {
	for ($j = 0; $j < $version_nrs[1] + 1; $j++) {
	for ($k = 0; $k < $version_nrs[2] + 1; $k++) {
	$try_version = "$i.$j.$k";

	$filename = $pathtoroot.$mod_name."/admin/install/upgrades/inportal_upgrade_v$try_version.sql";

	if(file_exists($filename))
	{
	RunSQLFile($ado, $filename);
	set_ini_value("Module Versions", $p, $try_version);
	save_values();
	}
	}
	}
	}

	$rs->MoveNext();
	}
	*/
	$state="lang_select";
	}

	if($state=="lang_select")
	{
	$Packs = GetLanguageList();
	$include_file = $pathtoroot.$admin."/install/lang_select.php";
	}

	if($state=="modselect")
	{
	/* /admin/install.php */
	$UrlLen = (strlen($admin) + 12)*-1;
	$pathguess =substr($_SERVER["SCRIPT_NAME"],0,$UrlLen);
	$sitepath = $pathguess;
	$esc_path = str_replace("\\","/",$pathtoroot);
	$esc_path = str_replace("/","\\",$esc_path);
	//set_ini_value("Site","DomainName",$_SERVER["HTTP_HOST"]);
	//$g_DomainName= $_SERVER["HTTP_HOST"];
	save_values();

	$ado =& inst_GetADODBConnection();
	if(substr($sitepath,0,1)!="/")
	$sitepath="/".$sitepath;
	if(substr($sitepath,-1)!="/")
	$sitepath .= "/";

	$sql = "UPDATE ".$g_TablePrefix."ConfigurationValues SET VariableValue = '$sitepath' WHERE VariableName='Site_Path'";
	$ado->Execute($sql);
	$sql = "UPDATE ".$g_TablePrefix."ConfigurationValues SET VariableValue = '$g_Domain' WHERE VariableName='Server_Name'";
	$ado->Execute($sql);
	$sql = "UPDATE ".$g_TablePrefix."ConfigurationValues SET VariableValue = '".$_SERVER['DOCUMENT_ROOT'].$sitepath."admin/backupdata' WHERE VariableName='Backup_Path'";
	$ado->Execute($sql);
	$Modules = inst_GetModuleList();
	$include_file = $pathtoroot.$admin."/install/modselect.php";
	}

	if(substr($state,0,10)=="postconfig")
	{
	$p = explode("_",$state);
	$step = $p[1];

	if ($_POST['Site_Path'] != '') {
	$sql = "SELECT Name, Version FROM ".$g_TablePrefix."Modules";
	$rs = $ado->Execute($sql);

	$modules_str = '';
	while ($rs && !$rs->EOF) {
	$modules_str .= $rs->fields['Name'].' ('.$rs->fields['Version'].'),';
	$rs->MoveNext();
	}

	$modules_str = substr($modules_str, 0, strlen($modules_str) - 1);
	$rfile = @fopen(GET_LICENSE_URL."?url=".base64_encode($_SERVER['HTTP_HOST'].$_POST['Site_Path'])."&modules=".base64_encode($modules_str)."&license_code=".base64_encode($g_LicenseCode)."&version=".GetMaxPortalVersion($pathtoroot.$admin)."&domain=".md5($_SERVER['HTTP_HOST']), "r");
	if (!$rfile) {
	//$get_license_error = "Unable to connect to the Intechnic server! Please try again later!";
	//$state = "postconfig_1";
	//$include_file = $pathtoroot.$admin."/install/postconfig.php";
	}
	else {
	$rcontents = '';
	while (!feof($rfile)) {
	$line = fgets($rfile, 10000);
	$rcontents .= $line;
	}
	@fclose($rfile);
	}

	}

	if(strlen($_POST["oldstate"])>0)
	{
	$s = explode("_",$_POST["oldstate"]);
	$oldstep = $s[1];
	if($oldstep<count($configs))
	{
	$section = $configs[$oldstep];
	$module = $mods[$oldstep];
	$title = $titles[$oldstep];
	$objAdmin = new clsConfigAdmin($module,$section,TRUE);
	$objAdmin->SaveItems($_POST,TRUE);
	}
	}
	$section = $configs[$step];
	$module = $mods[$step];
	$title = $titles[$step];

	$step++;

	if($step <= count($configs)+1)
	{
	$include_file = $pathtoroot.$admin."/install/postconfig.php";
	}
	else
	$state = "theme_sel";
	}

	if($state=="theme_sel")
	{
	$objThemes->CreateMissingThemes();
	$include_file = $pathtoroot.$admin."/install/theme_select.php";
	}

	if($state=="theme_set")
	{
	## get & define Non-Blocking & Blocking versions ##
	$blocking_sockets = minimum_php_version("4.3.0")? 0 : 1;

	$ado =& inst_GetADODBConnection();
	$sql = "UPDATE ".$g_TablePrefix."ConfigurationValues SET VariableValue = '$blocking_sockets' WHERE VariableName='SocketBlockingMode'";
	$ado->Execute($sql);
	## get & define Non-Blocking & Blocking versions ##


	$theme_id = $_POST["theme"];
	$pathchar="/";
	//$objThemes->SetPrimaryTheme($theme_id);
	$t = $objThemes->GetItem($theme_id);
	$t->Set("Enabled",1);
	$t->Set("PrimaryTheme",1);
	$t->Update();
	$t->VerifyTemplates();
	$include_file = $pathtoroot.$admin."/install/install_finish.php";
	$state="finish";
	}

	if ($state == "adm_login") {
	echo "<script>window.location='index.php';</script>";
	}

	// init variables
	$vars = Array('db_error','restore_error','PassError','DomainError','login_error','inst_error');
	foreach($vars as $var_name) ReSetVar($var_name);

	switch($state)
	{
	case "modselect":
	$title = "Select Modules";
	$help = "<p>Select the In-Portal modules you wish to install. The modules listed to the right ";
	$help .="are all modules included in this installation that are licensed to run on this server. </p>";
	break;
	case "reinstall":
	$title = "Installation Maintenance";
	$help = "<p>A Configuration file has been detected on your system and it appears In-Portal is correctly installed. ";
	$help .="In order to work with the maintenance functions provided to the left you must provide the Intechnic ";
	$help .="Username and Password you used when obtaining the license file residing on the server, or your admin Root password. ";
	$help .=" <i>(Use Username 'root' if using your root password)</i></p>";
	$help .= "<p>To removing your existing database and start with a fresh installation, select the first option ";
	$help .= "provided. Note that this operation cannot be undone and no backups are made! Use at your own risk.</p>";
	$help .="<p>If you wish to scrap your current installation and install to a new location, choose the second option. ";
	$help .="If this option is selected you will be prompted for new database configuration information.</p>";
	$help .="<p>The <i>Update License Information</i> option is used to update your In-Portal license data. Select this option if you have ";
	$help .="modified your licensing status with Intechnic, or you have received new license data via email</p>";
	break;
	case "RootPass":
	$title = "Set Admin Root Password";
	$help = "<p>The Root Password is initially required to access the admin sections of In-Portal. ";
	$help .="The root user cannot be used to access the front-end of the system, so it is recommended that you ";
	$help .="create additional users with admin privlidges.</p>";
	break;
	case "finish":
	$title = "Thank You!";
	$help ="<P>Thanks for using In-Portal! Be sure to visit <A TARGET=\"_new\" HREF=\"http://www.in-portal.net\">www.in-portal.net</A> ";
	$help.=" for the latest news, module releases and support. </p>";
	break;
	case "license":
	$title = "License Configuration";
	$help ="<p>A License is required to run In-Portal on a server connected to the Internet. You ";
	$help.="can run In-Portal on localhost, non-routable IP addresses, or other computers on your LAN. ";
	$help.="If Intechnic has provided you with a license file, upload it here. Otherwise select the first ";
	$help.="option to allow Install to download your license for you.</p>";
	$help.="<p>If a valid license has been detected on your server, you can choose the <i>Use Existing License</i> ";
	$help.="and continue the installation process</p>";
	break;
	case "domain_select":
	$title="Select Licensed Domain";
	$help ="<p>Select the domain you wish to configure In-Portal for. The <i>Other</i> option ";
	$help.=" can be used to configure In-Portal for use on a local domain.</p>";
	$help.="<p>For local domains, enter the hostname or LAN IP Address of the machine running In-Portal.</p>";
	break;
	case "db_reconfig":
	case "dbinfo":
	$title="Database Configuration";
	$help = "<p>In-Portal needs to connect to your Database Server. Please provide the database server type*, ";
	$help .="host name (<i>normally \"localhost\"</i>), Database user name, and database Password. ";
	$help .="These fields are required to connect to the database.</p><p>If you would like In-Portal ";
	$help .="to use a table prefix, enter it in the field provided. This prefix can be any ";
	$help .=" text which can be used in the names of tables on your system. The characters entered in this field ";
	$help .=" are placed <i>before</i> the names of the tables used by In-Portal. For example, if you enter \"inp_\"";
	$help .=" into the prefix field, the table named Category will be named inp_Category.</p>";
	break;
	case "lang_select":
	$title="Language Pack Installation";
	$help = "<p>Select the language packs you wish to install. Each language pack contains all the phrases ";
	$help .="used by the In-Portal administration and the default template set. Note that at least one ";
	$help .="pack <b>must</b> be installed.</p>";
	break;
	case "lang_default":
	$title="Select Default Language";
	$help = "<p>Select which language should be considered the \"default\" language. This is the language ";
	$help .="used by In-Portal when a language has not been selected by the user. This selection is applicable ";
	$help .="to both the administration and front-end.</p>";
	break;
	case "lang_install":
	$title="Installing Language Packs";
	$help = "<p>The language packs you have selected are being installed. You may install more languages at a ";
	$help.="later time from the Regional admin section.</p>";
	break;
	case "postconfig_1":
	$help = "<P>These options define the general operation of In-Portal. Items listed here are ";
	$help .="required for In-Portal's operation.</p><p>When you have finished, click <i>save</i> to continue.</p>";
	break;
	case "postconfig_2":
	$help = "<P>User Management configuration options determine how In-Portal manages your user base.</p>";
	$help .="<p>The groups listed to the right are pre-defined by the installation process and may be changed ";
	$help .="through the Groups section of admin.</p>";
	break;
	case "postconfig_3":
	$help = "<P>The options listed here are used to control the category list display functions of In-Portal. </p>";
	break;
	case "theme_sel":
	$title="Select Default Theme";
	$help = "<P>This theme will be used whenever a front-end session is started. ";
	$help .="If you intend to upload a new theme and use that as default, you can do so through the ";
	$help .="admin at a later date. A default theme is required for session management.</p>";
	break;
	case "get_license":
	$title="Download License from Intechnic";
	$help ="<p>A License is required to run In-Portal on a server connected to the Internet. You ";
	$help.="can run In-Portal on localhost, non-routable IP addresses, or other computers on your LAN.</p>";
	$help.="<p>Here as you have selected download license from Intechnic you have to input your username and ";
	$help.="password of your In-Business account in order to download all your available licenses.</p>";
	break;
	case "download_license":
	$title="Download License from Intechnic";
	$help ="<p>A License is required to run In-Portal on a server connected to the Internet. You ";
	$help.="can run In-Portal on localhost, non-routable IP addresses, or other computers on your LAN.</p>";
	$help.="<p>Please choose the license from the drop down for this site! </p> ";
	break;
	case "restore_select":
	$title="Select Restore File";
	$help = "<P>Select the restore file to use to reinstall In-Portal. If your backups are not performed ";
	$help .= "in the default location, you can enter the location of the backup directory and click the ";
	$help .="<i>Update</i> button.</p>";
	case "restore_run":
	$title= "Restore in Progress";
	$help = "<P>Restoration of your system is in progress. When the restore has completed, the installation ";
	$help .="will continue as normal. Hitting the <i>Cancel</i> button will restart the entire installation process. ";
	break;
	case "warning":
	$title = "Restore in Progress";
	$help = "<p>Please approve that you understand that you are restoring your In-Portal data base from other version of In-Portal.</p>";
	break;
	case "update":
	$title = "Update In-Portal";
	$help = "<p>Select modules from the list, you need to update to the last downloaded version of In-Portal</p>";
	break;
	}

	$tmp_step = GetVar('next_step', true);

	if (!$tmp_step) {
	$tmp_step = 1;
	}

	if ( isset($got_license) && $got_license == 1) {
	$tmp_step++;
	}

	$next_step = $tmp_step + 1;

	if ($general_error != '') {
	$state = '';
	$title = '';
	$help = '';
	$general_error = $general_error.'<br /><br />Installation cannot continue!';
	}

	if ($include_file == '' && $general_error == '' && $state == '') {
	$state = '';
	$title = '';
	$help = '';
	$filename = $pathtoroot.$admin."/install/inportal_remove.sql";
	RunSQLFile($ado,$filename);
	$general_error = 'Unexpected installation error! <br /><br />Installation has been stopped!';
	}

	if ($restore_error != '') {
	$next_step = 3;
	$tmp_step = 2;
	}

	if ($PassError != '') {
	$tmp_step = 4;
	$next_step = 5;
	}

	if ($DomainError != '') {
	$tmp_step--;
	$next_step = $tmp_step + 1;
	}

	if ($db_error != '') {
	$tmp_step--;
	$next_step = $tmp_step + 1;
	}

	if ($state == "warning") {
	$tmp_step--;
	$next_step = $tmp_step + 1;
	}
	?>

	<tr height="100%">
	<td valign="top">
	<table cellpadding=10 cellspacing=0 border=0 width="100%" height="100%">
	<tr valign="top">
	<td style="width: 200px; background: #009ff0 url(images/bg_install_menu.gif) no-repeat bottom right; border-right: 1px solid #000">
	<img src="images/spacer.gif" width="180" height="1" border="0" alt=""><br>
	<span class="admintitle-white">Installation</span>
	<!--<ol class="install">
	<li class="current">Licence Verification
	<li>Configuration
	<li>File Permissions
	<li>Security
	<li>Integrity Check
	</ol>
	</td>-->
	<?php
	$lic_opt = isset($_POST['lic_opt']) ? $_POST['lic_opt'] : false;
	if ($general_error == '') {
	?>
	<?php if ($install_type == 1) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1) { ?>class="current"<?php } ?>>Database Configuration
	<li <?php if ($tmp_step == 2 \|\| $lic_opt == 1) { ?>class="current"<?php } ?>>Select License
	<li <?php if ($tmp_step == 3 && $lic_opt != 1) { ?>class="current"<?php } ?>>Select Domain
	<li <?php if ($tmp_step == 4 ) { ?>class="current"<?php } ?>>Set Root Password
	<li <?php if ($tmp_step == 5) { ?>class="current"<?php } ?>>Select Modules to Install
	<li <?php if ($tmp_step == 6) { ?>class="current"<?php } ?>>Install Language Packs
	<li <?php if ($tmp_step == 7) { ?>class="current"<?php } ?>>Post-Install Configuration
	<li <?php if ($tmp_step == 8) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 2) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<!--<li <?php if (($tmp_step == 2 && $login_error == '' && $inst_error == '') \|\| $_POST['lic_opt'] == 1) { ?>class="current"<?php } ?>>Select License
	<li <?php if ($tmp_step == 3 && $_POST['lic_opt'] != 1) { ?>class="current"<?php } ?>>Select Domain
	<li <?php if ($tmp_step == 4) { ?>class="current"<?php } ?>>Set Root Password
	<li <?php if ($tmp_step == 5) { ?>class="current"<?php } ?>>Select Modules to Install
	<li <?php if ($tmp_step == 6) { ?>class="current"<?php } ?>>Install Language Packs
	<li <?php if ($tmp_step == 7) { ?>class="current"<?php } ?>>Post-Install Configuration
	<li <?php if ($tmp_step == 8) { ?>class="current"<?php } ?>>Finish-->
	</ol>
	<?php } else if ($install_type == 3) { ?>
	<ol class="install">
	<li>License Verification
	<li <?php if ($tmp_step == 2) { ?>class="current"<?php } ?>>Database Configuration
	<li <?php if ($tmp_step == 3 \|\| $_POST['lic_opt'] == 1) { ?>class="current"<?php } ?>>Select License
	<li <?php if ($tmp_step == 4 && $_POST['lic_opt'] != 1) { ?>class="current"<?php } ?>>Select Domain
	<li <?php if ($tmp_step == 5) { ?>class="current"<?php } ?>>Set Root Password
	<li <?php if ($tmp_step == 6) { ?>class="current"<?php } ?>>Select Modules to Install
	<li <?php if ($tmp_step == 7) { ?>class="current"<?php } ?>>Install Language Packs
	<li <?php if ($tmp_step == 8) { ?>class="current"<?php } ?>>Post-Install Configuration
	<li <?php if ($tmp_step == 9) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 4) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<li <?php if (($tmp_step == 2 && $login_error == '' && $inst_error == '') \|\| $lic_opt == 1) { ?>class="current"<?php } ?>>Select License
	<li <?php if ($tmp_step == 3 && $_POST['lic_opt'] != 1) { ?>class="current"<?php } ?>>Select Domain
	<li <?php if ($tmp_step == 4) { ?>class="current"<?php } ?>>Set Root Password
	<li <?php if ($tmp_step == 5) { ?>class="current"<?php } ?>>Select Modules to Install
	<li <?php if ($tmp_step == 6) { ?>class="current"<?php } ?>>Install Language Packs
	<li <?php if ($tmp_step == 7) { ?>class="current"<?php } ?>>Post-Install Configuration
	<li <?php if ($tmp_step == 8) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 5) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<li <?php if (($tmp_step == 2 && $login_error == '' && $inst_error == '') \|\| $lic_opt == 1) { ?>class="current"<?php } ?>>Select License
	<li <?php if ($tmp_step == 3 && $lic_opt != 1) { ?>class="current"<?php } ?>>Select Domain
	<li <?php if ($tmp_step == 4) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 6) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<li <?php if (($tmp_step == 2 && $login_error == '' && $inst_error == '') \|\| $_GET['show_prev'] == 1 \|\| $_POST['backupdir']) { ?>class="current"<?php } ?>>Select Backup File
	<li <?php if ($tmp_step == 3 && $_POST['lic_opt'] != 1 && $_GET['show_prev'] != 1 && !$_POST['backupdir']) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 7) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<li <?php if ($tmp_step == 2 && $login_error == '' && $inst_error == '') { ?>class="current"<?php } ?>>Database Configuration
	<li <?php if ($tmp_step == 3) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } else if ($install_type == 8) { ?>
	<ol class="install">
	<li <?php if ($tmp_step == 1 \|\| $login_error != '' \|\| $inst_error != '') { ?>class="current"<?php } ?>>License Verification
	<li <?php if ($tmp_step == 2 && $login_error == '' && $inst_error == '') { ?>class="current"<?php } ?>>Select Modules to Upgrade
	<li <?php if ($tmp_step == 3) { ?>class="current"<?php } ?>>Language Pack Upgrade
	<li <?php if ($tmp_step == 4) { ?>class="current"<?php } ?>>Finish
	</ol>
	<?php } ?>
	<?php include($include_file); ?>
	<?php } else { ?>
	<?php include("install/general_error.php"); ?>
	<?php } ?>
	<td width="40%" style="border-left: 1px solid #000; background: #f0f0f0">
	<table width="100%" border="0" cellspacing="0" cellpadding="4">
	<tr>
	<td class="subsectiontitle" style="border-bottom: 1px solid #000000; background-color:#999"><?php if( isset($title) ) echo $title;?></td>
	</tr>
	<tr>
	<td class="text"><?php if( isset($help) ) echo $help;?></td>
	</tr>
	</table>
	</td>
	</tr>
	</table>
	<br>
	</td>
	</tr>
	</table>
	</td>
	</tr>

	<tr>
	<td id="footer">
	Powered by In-portal © 1997-2004, Intechnic Corporation. All rights reserved.
	<br><img src="images/spacer.gif" width="1" height="10" alt="">
	</td>
	</tr>
	</table>
	</form>

	</body>
	</html>
	\ No newline at end of file

	Property changes on: trunk/admin/install.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.60
	\ No newline at end of property
	+1.61
	\ 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