in-portal
No OneTemporary
Actions

Subscribers

None

File Metadata

Created: Wed, Oct 22, 7:43 AM

in-portal
View Options

	Index: trunk/kernel/action.php
	===================================================================
	--- trunk/kernel/action.php (revision 836)
	+++ trunk/kernel/action.php (revision 837)
	@@ -1,2471 +1,2471 @@
	<?php

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

	$AdminLogin = admin_login();
	if( defined('DEBUG_ACTIONS') && (DEBUG_ACTIONS & KERNEL_ACTIONS) == KERNEL_ACTIONS && $AdminLogin )
	{
	if($Action) $debugger->appendHTML('Kernel Action: <b>'.$Action.'</b>');
	}

	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']);
	+ $script = basename($_SERVER['PATH_TRANSLATED']);
	$skip_debug = Array('index.php','tree.php','head.php','credits.php');
	if( !in_array($script, $skip_debug) )
	{
	- $debugger->appendHTML('ScriptName: <b>'.$script.'</b> (<b>'.dirname($_SERVER['PHP_SELF']).'</b>)');
	+ $debugger->appendHTML('ScriptName: <b>'.$debugger->getFileLink($_SERVER['PATH_TRANSLATED'],1,$script).'</b> (<b>'.dirname($_SERVER['PHP_SELF']).'</b>)');
	$requestTable = '<table border="0" cellspacing="0" cellpadding="4" class="flat_table">
	<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 = '<b class="debug_error">no value</b>';
	}
	else
	{
	$value = htmlspecialchars(print_r($value, true));
	}
	$src = isset($_GET[$key]) ? 'GE' : (isset($_POST[$key]) ? 'PO' : (isset($_COOKIE[$key]) ? 'CO' : '?') );
	$requestTable .= '<tr><td>'.$src.'</td><td>'.$key.'</td><td>'.$value.'</td></tr>';
	}
	$requestTable .= '</table>';
	$debugger->appendHTML($requestTable);
	echo '<a href="javascript:self.location.reload();">Reload Frame</a><br>';
	}
	unset($script, $skip_debug, $requestTable);
	}

	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 = intval($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') != stripslashes($_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"];

	$objCustomEdit = new clsCustomDataList($objSession->GetEditTable("CustomMetaData"));
	$objCustomEdit->LoadResource($id);
	$CustomFields = new clsCustomFieldList($_POST['CustomType']);
	$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"),$id,$value);
	$DataChanged = TRUE;
	}
	}
	}
	if($DataChanged)
	$objCustomEdit->SaveData();
	/*
	$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);
	}

	$vals = $_POST["multiple"];

	if (count($vals) > 0) {
	foreach($vals as $var=>$value)
	{
	$cfg = "Search_ShowMultiple_".$var;
	$objConfig->Set($cfg,$value);
	}
	}
	else {
	$cfg = "Search_ShowMultiple_".$_POST['cfg_var'];
	$objConfig->Set($cfg, 0);
	}

	$objConfig->Save();
	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)
	{
	// 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();
	}
	*/
	$sql='INSERT INTO '.$objSession->GetEditTable('Phrase').' SELECT Phrase, Translation, PhraseType, 0-PhraseId, '.$NewId.' FROM '.GetTablePrefix().'Phrase WHERE LanguageId='.$_POST['srcpack'];
	$ado->Execute($sql);
	// 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");
	$l = new clsEmailMessage();
	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: "._unhtmlentities($_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 )
	{
	$objLanguages->CopyFromEditTable();
	$objLanguages->Clear();
	$objLanguages->PurgeEditTable();

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

	?>
	\ No newline at end of file

	Property changes on: trunk/kernel/action.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.54
	\ No newline at end of property
	+1.55
	\ No newline at end of property
	Index: trunk/kernel/include/debugger.php
	===================================================================
	--- trunk/kernel/include/debugger.php (revision 836)
	+++ trunk/kernel/include/debugger.php (revision 837)
	@@ -1,268 +1,268 @@
	<?php

	class Debugger
	{
	/**
	* Debugger data for building report
	*
	* @var Array
	*/
	var $Data = Array();


	function dumpVars()
	{
	$dumpVars = func_get_args();
	foreach($dumpVars as $varValue)
	{
	$this->Data[] = Array('value' => $varValue, 'debug_type' => 'var_dump');
	}
	}

	function prepareHTML($dataIndex)
	{
	$Data =& $this->Data[$dataIndex];
	if($Data['debug_type'] == 'html') return $Data['html'];

	switch($Data['debug_type'])
	{
	case 'error':
	$fileLink = $this->getFileLink($Data['file'],$Data['line']);
	$ret = '<b class="debug_error">'.$this->getErrorNameByCode($Data['no']).'</b>: '.$Data['str'];
	$ret .= ' in <b>'.$fileLink.'</b> on line <b>'.$Data['line'].'</b>';
	return $ret;
	break;

	case 'var_dump':
	$ret = highlight_string('<?php '.print_r($Data['value'], true).'?>', true);
	$ret = preg_replace('/<\?php (.*)\?>/s','$1',$ret);
	return $ret;
	break;

	case 'trace':
	$trace =& $Data['trace'];
	$i = 0; $traceCount = count($trace);
	$ret = '';
	while($i < $traceCount)
	{
	$traceRec =& $trace[$i];
	$argsID = 'trace_args_'.$dataIndex.'_'.$i;
	$ret .= '<a href="javascript:toggleTraceArgs(\''.$argsID.'\');" title="Show/Hide Function Arguments"><b>Function</b></a>: '.$this->getFileLink($traceRec['file'],$traceRec['line'],$traceRec['class'].$traceRec['type'].$traceRec['function']).'';
	$ret .= ' in <b>'.basename($traceRec['file']).'</b> on line <b>'.$traceRec['line'].'</b><br>';

	// ensure parameter value is not longer then 200 symbols
	foreach ($traceRec['args'] as $argID => $argValue)
	{
	if( strlen($argValue) > 200 ) $traceRec['args'][$argID] = substr($argValue,0,50).' ...';
	}
	$args = highlight_string('<?php '.print_r($traceRec['args'], true).'?>', true);
	$args = preg_replace('/<\?php (.*)\?>/s','$1',$args);
	$ret .= '<div id="'.$argsID.'" style="display: none;">'.$args.'</div>';

	$i++;
	}
	/*$ret = highlight_string('<?php '.print_r($trace, true).'?>', true);
	$ret = preg_replace('/<\?php (.)\?>/s','$1',$ret);/
	return $ret;
	break;

	default:
	return 'incorrect debug data';
	break;
	}
	}

	function getFileLink($file, $lineno = 1, $title = '')
	{
	if(!$title) $title = $file;
	return '<a href="javascript:editFile(\''.$this->getLocalFile($file).'\','.$lineno.');" title="'.$file.'">'.$title.'</a>';
	}

	function getLocalFile($remoteFile)
	{
	return str_replace(DOC_ROOT, WINDOWS_ROOT, $remoteFile);
	}

	function appendTrace()
	{
	$trace = debug_backtrace();
	array_shift($trace);
	$this->Data[] = Array('trace' => $trace, 'debug_type' => 'trace');
	}

	function appendHTML($html)
	{
	$this->Data[] = Array('html' => $html,'debug_type' => 'html');
	}

	function getErrorNameByCode($errorCode)
	{
	switch($errorCode)
	{
	case E_USER_ERROR:
	return 'Fatal Error';
	break;

	case E_WARNING:
	case E_USER_WARNING:
	return 'Warning';
	break;

	case E_NOTICE:
	case E_USER_NOTICE:
	return 'Notice';
	break;

	default:
	return '';
	break;
	}
	}

	/**
	* Generates report
	*
	*/
	function printReport()
	{
	$i = 0; $lineCount = count($this->Data);
	?>
	<div id="debug_layer" class="debug_layer_container" style="display: none;">
	<div style="padding: 0px;">
	<table width="100%" cellpadding="0" cellspacing="1" border="0" class="debug_layer_table">
	<?php
	while ($i < $lineCount)
	{
	echo '<tr class="debug_row_'.(($i % 2) ? 'odd' : 'even').'"><td class="debug_cell">'.$this->prepareHTML($i).'</td></tr>';
	$i++;
	}
	?>
	</table>
	- <div>
	+ </div>
	</div>
	<script language="javascript">
	function getEventKeyCode($e)
	{
	var $KeyCode = 0;
	if($e.keyCode) $KeyCode = $e.keyCode;
	else if($e.which) $KeyCode = $e.which;
	return $KeyCode;
	}

	function keyProcessor($e)
	{
	if(!$e) $e = window.event;
	var $KeyCode = getEventKeyCode($e);
	if( $KeyCode == 113 && $e.ctrlKey \|\| $KeyCode == 123 ) // F12 (for Maxthon) or Ctrl+F2 (for Other Browsers)
	{
	var $DebugLayer = document.getElementById('debug_layer');
	if( typeof($DebugLayer) != 'undefined' )
	{
	resizeDebugLayer($e);
	$DebugLayer.style.display = ($DebugLayer.style.display == 'none') ? 'block' : 'none';
	}
	$e.cancelBubble = true;
	if($e.stopPropagation) $e.stopPropagation();
	}
	}

	function prepareSizes($Prefix)
	{
	var $ret = '';
	$ret = eval('document.body.'+$Prefix+'Top')+'; ';
	$ret += eval('document.body.'+$Prefix+'Left')+'; ';
	$ret += eval('document.body.'+$Prefix+'Height')+'; ';
	$ret += eval('document.body.'+$Prefix+'Width')+'; ';
	return $ret;
	}

	function resizeDebugLayer($e)
	{
	if(!$e) $e = window.event;
	var $DebugLayer = document.getElementById('debug_layer');
	var $TopMargin = 1;
	if( typeof($DebugLayer) != 'undefined' )
	{
	$DebugLayer.style.top = parseInt(document.body.offsetTop + document.body.scrollTop) + $TopMargin;
	$DebugLayer.style.height = document.body.clientHeight - $TopMargin - 5;
	}
	window.parent.status = 'OFFSET: '+prepareSizes('offset')+' \| SCROLL: '+prepareSizes('scroll')+' \| CLIENT: '+prepareSizes('client');
	- window.parent.status += 'DL Info: '+$DebugLayer.style.top;
	+ window.parent.status += 'DL Info: '+$DebugLayer.style.top+'; S.AH: '+screen.availHeight;
	return true;
	}

	function showProps($Obj, $Name)
	{
	var $ret = '';
	for($Prop in $Obj)
	{
	$ret += $Name+'.'+$Prop+' = '+$Obj[$Prop]+"\n";
	}
	return $ret;
	}

	function editFile($fileName,$lineNo)
	{
	var $editorPath = '<?php echo defined('WINDOWS_EDITOR') ? addslashes(WINDOWS_EDITOR) : '' ?>';
	if($editorPath)
	{
	var $obj = new ActiveXObject("LaunchinIE.Launch");
	$editorPath = $editorPath.replace('%F',$fileName);
	$editorPath = $editorPath.replace('%L',$lineNo);
	$obj.LaunchApplication($editorPath);
	}
	else
	{
	alert('Editor path not defined!');
	}
	}

	function toggleTraceArgs($ArgsLayerID)
	{
	var $ArgsLayer = document.getElementById($ArgsLayerID);
	$ArgsLayer.style.display = ($ArgsLayer.style.display == 'none') ? 'block' : 'none';
	}


	document.onkeydown = keyProcessor;
	window.onresize = resizeDebugLayer;
	window.onscroll = resizeDebugLayer;
	window.focus();
	</script>
	<?php
	}

	/**
	* User-defined error handler
	*
	* @param int $errno
	* @param string $errstr
	* @param string $errfile
	* @param int $errline
	* @param array $errcontext
	*/
	function saveError($errno, $errstr, $errfile = '', $errline = '', $errcontext = '')
	{
	//echo '<b>error</b> ['.$errno.'] = ['.$errstr.']<br>';
	$errorType = $this->getErrorNameByCode($errno);
	if( substr($errorType,0,5) == 'Fatal')
	{

	$this->printReport();
	exit;
	}
	if(!$errorType)
	{
	trigger_error('Unknown error type ['.$errno.']', E_USER_ERROR);
	return false;
	}
	$this->Data[] = Array('no' => $errno, 'str' => $errstr, 'file' => $errfile, 'line' => $errline, 'context' => $errcontext, 'debug_type' => 'error');
	}

	}

	$debugger = new Debugger();
	set_error_handler( array(&$debugger,'saveError') );
	register_shutdown_function( array(&$debugger,'printReport') );

	?>
	\ No newline at end of file

	Property changes on: trunk/kernel/include/debugger.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.2
	\ No newline at end of property
	+1.3
	\ No newline at end of property
	Index: trunk/admin/subitems.php
	===================================================================
	--- trunk/admin/subitems.php (revision 836)
	+++ trunk/admin/subitems.php (revision 837)
	@@ -1,186 +1,186 @@
	<?php
	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");

	$rootURL="http://".ThisDomain().$objConfig->Get("Site_Path");


	$admin = $objConfig->Get("AdminDirectory");
	//echo "Admin: $admin <br>\n";
	if(!strlen($admin))
	$admin = "admin";

	$localURL=$rootURL."kernel/";
	$adminURL=$rootURL.$admin;
	$imagesURL = $adminURL."/images";

	$cssURL = $adminURL."/include";
	$jsURL = $adminURL."/include/subitems";
	//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");
	$section = $_GET["section"];

	$sectionname = explode(":", $section);
	$sectionname = $sectionname[sizeof($sectionname)-1];

	$incs = array();

	$m = GetModuleArray();
	foreach($m as $key=>$value)
	{
	$inc = $pathtoroot.$value."admin/include/summary/".$sectionname.".php";
	//echo "<pre>". $inc ."</pre><BR>";
	if(file_exists($inc))
	$incs[] = $inc;
	}

	$envar = BuildEnv();
	print <<<END
	<html>
	<head>
	<title>In-portal</title>
	<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
	<meta http-equiv="Pragma" content="no-cache">
	<script language="JavaScript">
	imagesPath='$imagesURL'+'/';
	clear_checkboxes=0;
	</script>

	END;

	require_once($pathtoroot.$admin."/include/mainscript.php");

	print <<<END
	<script language="JavaScript1.2" src="$browseURL/fw_menu.js"></script>
	<link rel="stylesheet" type="text/css" href="$cssURL/style.css">
	<link rel="stylesheet" type="text/css" href="$cssURL/subitems.css">
	<script src="$jsURL/listitems.js"></script>
	<script src="$jsURL/imgbuttons.js"></script>
	<script src="$jsURL/navboxes.js"></script>

	END;
	- int_SectionHeader();
	+ int_SectionHeader();

	?>
	<table cellspacing="0" cellpadding="0" width="100%" border="0">
	<tr>
	<td valign="top">
	<table cellspacing="0" cellpadding="2" border="0" width="100%" CLASS="tableborder_full">
	<?php
	$parent = $objSections->GetSection($section);
	$sub = $objSections->GetSection($parent->Get("child"));
	while(is_object($sub))
	{
	echo "<tr isListItem=\"true\" ". int_table_color_ret(). ">\n";
	echo " <td class=\"subitem_icon\">";
	echo " <img ALIGN=\"left\" src=\"".$sub->IconURL(2)."\" border=\"0\">";
	echo " </td>";
	echo " <td class=\"subitem_description\"><a href=\"".$sub->URL()."\" class=\"dLink\">";
	$lang_tag = "la_Description_".$sub->Get("key");
	echo admin_language($sub->Get("name"))."</A>";
	echo prompt_language($lang_tag); //$sub->Get("description");
	echo " </td>\n";
	echo "</tr>\n";
	$sub = $objSections->GetSection($sub->Get("right"));
	}
	?>
	</TABLE>
	</TD>
	<?php
	if(count($incs)>0)
	{
	?>
	<td width="1"><img src="<?php echo $imagesURL; ?>/spacer.gif" width="4" height="1"></td>
	<td width="269" valign="top" class="boxContainer">
	<?php
	// including each module summaries here
	for($i=0;$i<count($incs);$i++)
	include($incs[$i]);

	?>
	</TD>
	<?php
	}
	?>
	</TR>
	</TABLE>
	<?php
	if(count($incs)>0)
	{
	?>
	<script>
	init();
	</script>
	<?php
	}
	?>
	<form ID="viewmenu" NAME="viewmenu" method="post" action="user_list.php?env=<?php echo BuildEnv(); ?>" 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>
	<?php int_footer(); ?>

	Property changes on: trunk/admin/subitems.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.2
	\ No newline at end of property
	+1.3
	\ No newline at end of property
	Index: trunk/admin/include/elements.php
	===================================================================
	--- trunk/admin/include/elements.php (revision 836)
	+++ trunk/admin/include/elements.php (revision 837)
	@@ -1,619 +1,619 @@
	<?php
	##############################################################
	##In-portal :: Administration Interfaces :: Common Elements ##
	##############################################################
	## 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(!defined('IS_INSTALL'))define('IS_INSTALL',0);
	if(!IS_INSTALL)
	{
	if (!admin_login())
	{
	if(!headers_sent()) {
	setcookie("sid"," ",time()-3600);
	}
	$objSession->Logout();
	header("Location: ".$adminURL."/login.php");
	die();
	//require_once($pathtoroot."admin/login.php");
	}
	}

	global $admin,$pathtoroot, $objConfig;

	if(!strlen($admin))
	{
	$admin = $objConfig->Get("AdminDirectory");
	if(!strlen($admin))
	{
	$admin = "admin";
	}
	}

	require_once($pathtoroot.$admin."/include/sections.php");


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

	/* this function loads the javascript for each module's toolbar */
	function load_module_javascript($sectionname, $skip_modules = Array() )
	{
	global $adminURL, $pathtoroot;

	echo "<SCRIPT LANGUAGE=JavaScript1.2 src=\"".$adminURL."/browse/fw_menu.js\"></SCRIPT>\n";
	echo "<SCRIPT LANGUAGE=JavaScript1.2 src=\"".$adminURL."/include/tabs.js\"></SCRIPT>\n";
	echo "<script language=\"JavaScript1.2\" src=\"$adminURL/include/checkarray.js\"></script>\n";

	global $objConfig, $ItemTabs;
	$m = GetModuleArray("admin");
	echo "<!-- ".count($m)."-->";
	foreach($m as $key=>$value)
	{
	$path = $pathtoroot. $value."admin/include/toolbar/".$sectionname.".php";
	if( !in_array($value, $skip_modules) && file_exists($path) )
	{
	echo "\n<!-- $path -->\n";
	include_once($path);
	}
	else
	echo "\n<!-- $path not found -->\n";
	}
	}

	function load_module_styles()
	{
	global $objConfig, $ItemTabs,$rootURL,$pathtoroot;

	$m = GetModuleArray("admin");
	echo "<!-- module styles (".count($m).")-->";
	foreach($m as $key=>$value)
	{
	$path = $pathtoroot.$value."admin/include/style.css";

	if(file_exists($path))
	{
	$inc = $rootURL.$value."admin/include/style.css";
	print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$inc\">\n";
	}
	}
	}

	//***********************************
	//Page Header
	function int_header($toolbar=NULL,$NavBarText=NULL,$ExtraTitle=NULL,$onLoad=NULL, $ExtraHead=NULL,$skip_modules=Array(),$OtherSection = '')
	{
	global $pathtoroot;
	global $pathtolocal;
	global $section;
	global $objSections;
	global $rootURL;
	global $localURL;
	global $adminURL;
	global $envar;
	global $admin;
	global $metatag;

	$style_sheet_global = $adminURL."/include/style.css";
	$style_sheet_local = $localURL."admin/include/style.css";

	$ExtraTitle = htmlentities($ExtraTitle);
	if (is_object($toolbar))
	{
	if(file_exists($pathtolocal."admin/include/toolbar.php"))
	require_once ($pathtolocal."admin/include/toolbar.php");
	//Aray of the preloaded elems
	//$int_toolbar_preload = array();

	- print "<html><head><title>In-portal</title>\n";
	+ print "<html>\n\t<head>\n\t\t<title>In-portal</title>\n";
	if(strlen($metatag))
	{
	print $metatag."\n";
	}
	else
	{
	print "<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">\n";
	print "<meta http-equiv=\"Pragma\" content=\"no-cache\">\n";
	}
	print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$style_sheet_global\">\n";
	load_module_styles();
	require_once($pathtoroot.$admin."/include/mainscript.php");
	//require_once($pathtolocal."admin/include/script.js");
	print $ExtraHead;
	$sectionname = explode(":", $section);
	$sectionname = $sectionname[sizeof($sectionname)-1];

	load_module_javascript($sectionname, $skip_modules);
	if(is_object($toolbar))
	print $toolbar->GetInitScript();
	print '</head><body topmargin="0" leftmargin="8" marginheight="8" marginwidth="8" bgcolor="#FFFFFF"';
	//*** Preload toolbar images
	if(strlen($onLoad))
	{
	print $onLoad;
	}
	else
	print " ONLOAD=\"clear_list_checkboxes();\"";

	//*** Preload toolbar images
	if(is_object($toolbar))
	{
	if (strlen($toolbar->Get("CheckClass")))
	{
	print $toolbar->onLoadString().">";
	}
	else
	print " >";

	$menufunc = $toolbar->Get("load_menu_func");
	if (strlen($menufunc))
	{
	print "<script language=\"JavaScript1.2\">$menufunc</script>";
	}
	}
	else
	print " >";
	}
	else
	{
	print "<html><head><title>In-Portal </title>";
	print "<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">";
	print "<meta http-equiv=\"Pragma\" content=\"no-cache\">";
	print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$style_sheet_global\">";
	load_module_styles();
	require_once ($pathtoroot.$admin."/include/mainscript.php");
	//require_once ($pathtolocal."admin/include/script.js");
	$sectionname = explode(":", $section);
	$sectionname = $sectionname[sizeof($sectionname)-1];
	load_module_javascript($sectionname);


	print "</head><body topmargin=\"0\" leftmargin=\"8\" marginheight=\"8\" marginwidth=\"8\" bgcolor=\"#FFFFFF\">";
	}

	if(strlen($section)>0)
	{
	$objSections->SetCurrentSection($section);
	$sec = $objSections->GetCurrentSection();
	if ($sec->Get("notitle") != 1) print $objSections->page_title();

	print $objSections->page_tabs($envar);

	if ($sec->Get("nonavbar") != 1) //Section Navigatior
	print $objSections->section_header($envar,$NavBarText,$ExtraTitle,false,$OtherSection);

	//Toolbar if appropriate
	if ( isset($sections[$section]) && ($sections[$section]['toolbar']==1) \|\| ( is_object($toolbar) ) )
	print $toolbar->Build();
	}
	}//Page Header

	// HELP Page Header
	function int_help_header()
	{
	global $pathtoroot;
	global $pathtolocal;
	global $section;
	global $objSections;
	global $rootURL;
	global $localURL;
	global $adminURL;
	global $envar;
	global $admin;
	global $metatag;

	$style_sheet_global = $adminURL."/include/style.css";
	$style_sheet_local = $localURL."admin/include/style.css";

	// TOOLBAR:
	print "<html><head><title>In-Portal - Help</title>";
	print "<meta http-equiv=\"content-type\" content=\"text/html;charset=iso-8859-1\">";
	print "<meta http-equiv=\"Pragma\" content=\"no-cache\">";
	print "<link rel=\"stylesheet\" type=\"text/css\" href=\"$style_sheet_global\">";
	load_module_styles();
	require_once ($pathtoroot.$admin."/include/mainscript.php");

	print "</head><body topmargin=\"0\" leftmargin=\"8\" marginheight=\"8\" marginwidth=\"8\" bgcolor=\"#FFFFFF\">";


	if(strlen($section)>0)
	{
	$objSections->SetCurrentSection($section);
	$sec = $objSections->GetCurrentSection();

	if ($sec->Get("notitle") != 1) print $objSections->page_title();

	if ($sec->Get("nonavbar") != 1) //Section Navigatior
	print $objSections->section_header($envar,'','', true);

	}
	}// HELP Page Header


	function int_SectionHeader($toolbar=NULL,$onLoad=NULL,$NavBarText=NULL,$ExtraTitle=NULL)
	{
	global $pathtoroot;
	global $pathtolocal;
	global $section, $sections;
	global $objSections;
	global $rootURL;
	global $adminURL,$admin;
	global $localURL;
	global $envar;
	global $b_topmargin;
	if (!isset($b_topmargin))
	$b_topmargin = 8;

	$sectionname = explode(":", $section);
	$sectionname = $sectionname[sizeof($sectionname)-1];
	load_module_javascript($sectionname);
	if(is_object($toolbar))
	print $toolbar->GetInitScript();
	print "</head><body topmargin=\"$b_topmargin\" leftmargin=\"8\" marginheight=\"$b_topmargin\" marginwidth=\"8\" bgcolor=\"#FFFFFF\"";
	//*** Preload toolbar images
	if(strlen($onLoad))
	{
	print $onLoad;
	}
	else
	print " onload=\"if (clear_checkboxes) clear_checkboxes();\"";

	print ">";
	global $b_header_addon;

	if (isset($b_header_addon)) echo $b_header_addon;

	if(strlen($section)>0)
	{
	$objSections->SetCurrentSection($section);
	$sec = $objSections->GetCurrentSection();
	if ($sec->Get("notitle")!=1)
	print $objSections->page_title();

	print $objSections->page_tabs($envar);

	//Section Navigatior
	if ($sec->Get("nonavbar")!=1)
	{
	if (is_null($ExtraTitle))
	$ExtraTitle = "";

	print $objSections->section_header($envar,$NavBarText,$ExtraTitle);

	}
	//Toolbar if appropriate
	if( isset($sections[$section]) )
	if($sections[$section]['toolbar'] == 1 \|\| (is_object($toolbar)) )
	print $toolbar->Build();
	}
	}//Section Page Header

	//***********************************
	//SubSection Title
	function int_subsection_title($caption, $ColSpan = 5)
	{
	int_table_color(1);
	print <<<END

	<!-- Subsection Title -->
	<tr class="subsectiontitle">
	<td colspan="$ColSpan">$caption</td>
	</tr>
	END;
	}

	function int_subsection_title_install($caption)
	{
	int_table_color(1);
	print <<<END
	<!-- Subsection Title -->
	<tr class="subsectiontitle">
	<td colspan="3">$caption</td>
	</tr>
	END;
	}

	function int_subsection_title_ret($caption)
	{
	int_table_color_ret(1);
	$o = "<!-- Subsection Title --><tr class=\"subsectiontitle\"><td colspan=\"5\">$caption</td></tr>";
	return $o;
	}

	//SubSection Title

	//***********************************
	//Table Alternating colors
	function int_table_color($reset_color=0, $return_result = false)
	{
	static $colorset;

	if($reset_color)
	{ $colorset="table_color2";
	return;
	}

	if ($colorset == "table_color1")
	$colorset = "table_color2";
	else
	$colorset = "table_color1";

	$ret = "class=\"".$colorset."\"";
	if($return_result)
	return $ret;
	else
	print $ret;

	}//Table Alternating colors

	//Table Alternating colors with return
	function int_table_color_ret($reset_color=0)
	{
	static $colorset;

	if($reset_color)
	{ $colorset="table_color2";
	return;
	}

	if ($colorset == "table_color1")
	$colorset = "table_color2";
	else
	$colorset = "table_color1";

	return "class=\"".$colorset."\"";
	}//Table Alternating colors


	//***********************************
	//Hint
	function int_hint($caption)
	{

	global $imagesURL;

	print <<<END
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
	<tr>
	<td>
	<span class="hint"><img src="$imagesURL/smicon7.gif" width="14" height="14" align="absmiddle">$caption</span>
	<td>
	</tr>
	</table>
	END;
	}//Hint

	function int_hint_red($caption)
	{

	global $imagesURL;

	print <<<END
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
	<tr>
	<td>
	<span class="hint_red">$caption</span>
	<td>
	</tr>
	</table>
	END;
	}//Hint

	//***********************************
	//Navigation String
	function int_nav($caption)
	{
	global $pathtoroot;
	global $imagespath;

	print <<<END
	<table width="100%" border="0" cellspacing="0" cellpadding="2" bgcolor="#f0f0f0">
	<tr>
	<td><b class="text"><span class="navbar"><a class="navbar" href="">$caption</a></span></b></td>
	</tr>
	</table>
	END;
	}//Navigation String



	//***********************************
	//Print Out Images
	function int_img($img)
	{
	global $images;
	global $pathtoroot;
	global $imagesURL;

	$src = $imagesURL."/".$images[$img]['file'];
	$alt = $images[$img]['alt'];
	$width = $images[$img]['width'];
	$height = $images[$img]['height'];
	$name = $img;

	//Set ID if needed
	if ($img == 'img:tool:view')
	$id = "ID=\"viewbutton\"";

	print "<img alt=\"$alt\" name=\"$name\" src=\"$src\" width=\"$width\" height=\"$height\" $id border=\"0\" align=\"absmiddle\">";

	}//Print Out Images

	//***********************************
	//Page Footer
	function int_footer()
	{
	global $objSession;
	if($objSession->HasSystemPermission("DEBUG.INFO"))
	{
	//phpinfo();
	}
	print <<<END
	</body>
	</html>
	END;
	}//Page Footer


	function HomeEnv()
	{
	global $m_var_list_update;

	$m_var_list_update["cat"]=0;

	return BuildEnv();
	}

	function UpEnv()
	{
	global $m_var_list_update,$objCatList;

	$current = $objCatList->CurrentCat();
	$parent = $current->Get("ParentId");
	$m_var_list_update["cat"]=$parent;

	return BuildEnv();
	}

	function ModuleInclude($file)
	{
	global $pathtoroot;

	$m = GetModuleArray();
	foreach($m as $key=>$value)
	{
	$path = $pathtoroot.$value.$file;
	if(file_exists($path))
	{
	echo "<!-- $path -->";
	@include_once($path);
	}
	}
	}

	function MultiEditButtons(&$ToolBar,$next,$prev,$Form,$StatusField, $url,$onClick, $ExtraVar="", $prev_phrase = 'Phrase Not Passed', $next_phrase = 'Phrase Not Passed')
	{
	global $adminURL;

	$ToolBar->Add("divider");

	if($prev>-1)
	{
	$MouseOver="swap('moveleft','toolbar/tool_prev_f2.gif');";
	$MouseOut="swap('moveleft', 'toolbar/tool_prev.gif');";

	$var="env=".BuildEnv()."&en=$prev&lpn=".GetVar('lpn');
	if (strlen($ExtraVar))
	$var.= $ExtraVar;

	if ($onClick != 'LangSubmitMove') {
	$link = "javascript:edit_submit('$Form','$StatusField','$url',0,'$var');";
	}
	else {
	$link = "javascript:$onClick('$url', '$prev')";
	}
	$ToolBar->Add("moveleft",$prev_phrase,$link,$MouseOver,$MouseOut,"","toolbar/tool_prev.gif");
	}
	else
	{
	$MouseOver="";
	$MouseOut="";
	//$onClick="";
	$link="#";
	$ToolBar->Add("moveleft",$prev_phrase,"#","","","","toolbar/tool_prev_f3.gif");

	}

	if($next>-1)
	{
	$MouseOver="swap('moveright','toolbar/tool_next_f2.gif');";
	$MouseOut="swap('moveright', 'toolbar/tool_next.gif');";

	$var="env=".BuildEnv()."&en=$next".( isset($_REQUEST['lpn']) ? '&lpn='.$_REQUEST['lpn'] : '');

	if (strlen($ExtraVar))
	$var.= $ExtraVar;

	if ($onClick != 'LangSubmitMove') {
	$link = "javascript:edit_submit('$Form','$StatusField','$url',0,'$var');";
	}
	else {
	$link = "javascript:$onClick('$url', '$next')";
	}
	$ToolBar->Add("moveright",$next_phrase,$link,$MouseOver,$MouseOut,"","toolbar/tool_next.gif");
	}
	else
	{
	$ToolBar->Add("moveright",$next_phrase,"#","","","","toolbar/tool_next_f3.gif");
	}
	}

	function InsertButtons(&$ToolBar, $Buttons = Array(), $params = Array() )
	{
	foreach($Buttons as $button)
	switch($button)
	{
	case 'save':
	$ToolBar->Add( "img_save", "la_Save", "#",
	"swap('img_save','toolbar/tool_select_f2.gif');",
	"swap('img_save', 'toolbar/tool_select.gif');",
	"edit_submit('".$params['form']."','".$params['status_field']."','".$params['url']."',1,'&lpn=".$_REQUEST['lpn']."');","tool_select.gif");

	break;
	case 'cancel':
	$ToolBar->Add( "img_cancel", "la_Cancel", "#",
	"swap('img_cancel','toolbar/tool_cancel_f2.gif');",
	"swap('img_cancel', 'toolbar/tool_cancel.gif');",
	"edit_submit('".$params['form']."','".$params['status_field']."','".$params['url']."',2,'&lpn=".$_REQUEST['lpn']."');","tool_cancel.gif");
	break;
	case 'edit':
	break;
	case 'delete':
	break;

	}



	}

	function GetTitle($item_phrase, $tab_phrase, $id, $item_name = false)
	{
	//gets correct caption for editing windows with tabs
	//echo "In: $item_phrase, $tab_phrase, $id";
	$is_new = (isset($_REQUEST['new']) && ($_REQUEST['new'] == 1)) \|\| $id <= 0 ? 1 : 0;
	$text = $is_new ? 'la_Text_Adding' : 'la_Text_Editing';
	$text = admin_language($text).' '.admin_language($item_phrase);

	if($is_new == 0) {
	if ($item_name == false) {
	$text .= ' #'.$id;
	}
	else {
	if ($item_name != '') {
	$text .= " '".$item_name."'";
	}
	}
	}

	if ($tab_phrase != '') {
	$text .= ' - '.admin_language($tab_phrase);
	}

	return $text;
	}

	function MarkFields($form_name)
	{
	// mark specified form fields as required
	?> <script language="JavaScript">MarkAsRequired(document.getElementById("<?php echo $form_name; ?>"));</script> <?php
	}
	?>

	Property changes on: trunk/admin/include/elements.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.15
	\ No newline at end of property
	+1.16
	\ No newline at end of property
	Index: trunk/admin/include/sections.php
	===================================================================
	--- trunk/admin/include/sections.php (revision 836)
	+++ trunk/admin/include/sections.php (revision 837)
	@@ -1,617 +1,617 @@
	<?php

	$sections = array();

	class clsSection
	{
	var $m_sections;
	var $m_name;
	var $m_title;
	var $m_path;
	var $m_file;
	var $m_icon;
	var $m_icon_small;
	var $m_icon_list;
	var $m_child;
	var $m_parent;
	var $m_left;
	var $m_right;
	var $m_notree = 0;
	var $m_notabs=0;
	var $m_nonavbar=0;
	var $m_notitle=0;
	var $m_toolbar=0;
	var $m_description = NULL;
	var $m_onclick=NULL;
	var $m_key;
	var $m_bar_title;
	var $m_bar_title_plain_text = "";

	function clsSection()
	{
	/* constructor */
	}

	function Get($name)
	{
	$var = "m_" . $name;
	return isset($this->$var) ? $this->$var : '';
	}

	function Set($name, $value)
	{
	if (is_array($name))
	{
	for ($i=0; $i<sizeof($name); $i++)
	{
	$var = "m_" . $name[$i];
	$this->$var = $value[$i];
	}
	}
	else
	{
	$var = "m_" . $name;
	$this->$var = $value;
	}
	}

	function IsJavaScriptLink()
	{
	$file = $this->Get('file');
	if(!$file) return false;

	return (substr($file, 0, 10) == 'javascript' \|\| $file == '#') ? true : false;
	}

	function IconURL($large=1)
	{
	global $rootURL;

	if($large==1)
	{
	$url = $rootURL.$this->Get("icon");
	}
	elseif($large==2)
	{
	$url = $rootURL.$this->Get("icon_list");
	}
	else
	$url = $rootURL.$this->Get("icon_small");
	return $url;
	}

	function URL()
	{
	global $rootURL;

	$env = BuildEnv();

	if(!$this->IsJavaScriptLink())
	{
	$url = $rootURL.$this->Get("path").$this->Get("file");
	if(strstr($url,"?"))
	{
	$url .= "&env=".$env;
	}
	else
	$url .= "?env=".$env;
	}
	else
	$url = $this->Get("file");
	return $url;
	}

	/* functions to display navigation elements */
	function tab($envar)
	{
	global $imagesURL;
	$link = $this->URL();
	if(!$this->IsJavaScriptLink())
	{
	if(!strstr($link,'env='))
	$link .= '?'. $envar;
	}
	$onclick = $this->Get('onclick');
	$caption = language($this->Get('name'));
	if(strlen($this->Get('name')))
	{
	$o ="<!-- Tab: $caption -->
	<td><table bgcolor=\"#009FF0\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\" onclick=\"\">
	<tr onclick=\"$onclick\">
	<td bgcolor=\"#009FF0\"><img alt=\"\" src=\"$imagesURL/tab_left.gif\" width=\"15\" height=\"23\"></td>
	<td nowrap bgcolor=\"#009FF0\" background=\"$imagesURL/tab_back.gif\" align=\"center\">
	<a href=\"$link\" class=\"tab2\" onClick=\"$onclick\">$caption</a><br>
	</td>
	<td bgcolor=\"#009FF0\"><img alt=\"\" src=\"$imagesURL/tab_right.gif\" width=\"15\" height=\"23\"></td>
	</tr>
	</table></td>";
	}
	else
	$o = '';
	return $o;
	}//Individual Tab

	function active_tab()
	{
	global $imagesURL, $envar;

	$link = $this->URL();
	$onclick = $this->Get("onclick");
	if(!$this->IsJavaScriptLink())
	{
	if(!strstr($link,"env="))
	$link .= "?". $envar;
	}

	$caption = language($this->Get("name"));

	if (strlen($caption)<=8)
	$backgr = "$imagesURL/tab_active_back3.jpg";
	else if (strlen($caption)<=20)
	$backgr = "$imagesURL/tab_active_back2.jpg";
	else
	$backgr = "$imagesURL/tab_active_back.jpg";

	$o = "<!-- Tab: $caption -->
	<td><table bgcolor=\"#FFFB32\" background=\"$backgr\" cellpadding=\"0\" cellspacing=\"0\" border=\"0\"><tr>
	<td><img alt=\"\" src=\"$imagesURL/tab_active_left.gif\" width=\"15\" height=\"23\"></td>
	<td nowrap align=\"center\" background=\"$imagesURL/tab_active_back.gif\">
	<a href=\"$link\" class=\"tab\" onClick=\"$onclick\">$caption</a><br>
	</td>
	<td><img alt=\"\" src=\"$imagesURL/tab_active_right.gif\" width=\"15\" height=\"23\"></td></tr>
	</table></td>";
	return $o;
	}//Active Tab
	} /clsSection/

	class clsSectionList
	{
	var $sections;
	// var $section;
	var $current;

	function clsSectionList()
	{
	$this->sections = array();
	$this->current = "default";
	}

	function GetSection($section)
	{
	if(is_array($this->sections) && strlen($section))
	{
	if(array_key_exists($section,$this->sections))
	{
	return $this->sections[$section];
	}
	else
	return NULL;
	}
	else
	return NULL;
	}

	function SetCurrentSection($section)
	{
	$this->current = $section;
	}

	function GetCurrentSection()
	{
	$ret = $this->GetSection($this->current);
	if(!is_object($ret))
	$ret = $this->GetSection("default");
	return $ret;
	}


	function SimpleSection($module, $section_name, $tab_phrase, $title_phrase, $path, $script, $child,$parent,$left,$right)
	{
	// simplified method to add sections
	global $pathtoroot;
	$sn = explode(':', $section_name);
	$img_path = $module.'/admin/images';
	if( !isset($title_phrase) ) $title_phrase = $tab_phrase;

	$this->AddSection( $section_name,$tab_phrase, $title_phrase,$path, $script,
	$img_path.'/icon46_'.$sn[1].'.gif', $img_path.'/icon24_'.$sn[1].'.gif',
	$child,$parent,$left,$right,0,'',1,null,null,null,$img_path.'/icon46_list_'.$sn[1].'.gif');
	}

	function AddSection($section,$name,$title,$path,$file,$icon,$icon_small, $child,$parent,$left,$right,
	$notree=0,$onClick = "",$notabs=0,$nonavbar=0,$notitle=0,$toolbar=0,$icon_list="", $bar_title = "", $bar_title_plain_text = "")
	{
	if($file == "subitems.php")
	$file .= "?section=$section";

	$s = new clsSection();

	$s->Set("name", $name);
	$s->Set("title",$title);
	$s->Set("path", $path);
	$s->Set("file", $file);
	$s->Set("icon", $icon);
	$s->Set("icon_list", $icon_list);
	$s->Set("icon_small", $icon_small);
	$s->Set("child", $child);
	$s->Set("parent", $parent);
	$s->Set("left", $left);
	$s->Set("right", $right);
	$s->Set("notree", $notree);
	$s->Set("notabs", $notabs);
	$s->Set("nonavbar", $nonavbar);
	$s->Set("notitle", $notitle);
	$s->Set("toolbar", $toolbar);
	$s->Set("description", NULL);
	$s->Set("onclick", $onClick);
	$s->Set("key",$section);
	$s->Set("bar_title",$bar_title);
	$s->Set("bar_title_plain_text", $bar_title_plain_text);

	if($parent != NULL)
	{
	$p = $this->GetSection($parent);
	if(is_object($p))
	{
	if(!strlen($p->Get("child")))
	{
	//echo "Setting child of $parent to $section<br>\n";
	$p->Set("child", $section); //set the parent if none set!
	$this->sections[$parent]=$p;
	}
	}
	if(!strlen($left) && !strlen($right))
	{
	/* find first child w/ a null right value */
	foreach($this->sections as $secname => $subsection)
	{
	if($subsection->Get("parent") == $parent)
	{
	if(!strlen($subsection->Get("right")))
	{
	$this->sections[$secname]->Set("right", $section);
	$s->Set("left", $secname);
	break;
	}
	}
	}
	}
	}
	$this->sections[$section]=$s;
	}

	function AddDescription($section,$desc)
	{
	$sec = $this->GetSection($section);
	if(is_object($sec))
	{
	$sec->Set("description",$desc);
	$this->sections[$section] = $sec;
	}
	}

	function sectionURL($section)
	{
	return $this->sections[$section]->URL();
	}

	function SectionIconURL($section,$large=1)
	{
	return $this->sections[$section]->IconURL($large);
	}

	function BuildTree($element, $parent)
	{
	global $pathtoroot,$envar;
	global $rootURL;

	$org = $element;
	$element = strtolower($element);
	$j_el=str_replace("-","_",$element);
	$j_el=str_replace(":","_",$j_el);
	$j_par=str_replace("-","_",$parent);
	$j_par=str_replace(":","_",$j_par);
	$sec = $this->sections[$element];
	if(is_object($sec))
	{
	$caption = $this->sections[$element]->Get("name");
	if(strlen($caption)==0)
	$caption = $this->sections[$element]->Get("title");
	$caption = language($caption);
	$child =$this->sections[$element]->Get("child");
	$notree = "";
	if( isset($this->sections[$child]) && is_object($this->sections[$child]) )
	$notree = $this->sections[$child]->Get("notree");
	if (($child == NULL) or ($notree==-1))
	{
	print "var item = insDoc($j_par, gLnk(0, \"".$caption."\", \"".$this->SectionURL($element)."\"));\n";
	print "item.iconSrc = '".$this->SectionIconURL($element,0)."';\n";
	if($this->sections[$element]->Get("right")!=NULL)
	$this->BuildTree($this->sections[$element]->Get("right"), $parent);

	return;
	}
	if ($child != NULL && $notree !=-1)
	{ //print "$j_el = insFld($j_par, gFld(\"".$sections[$element]['name']."\"));\n";

	print "var $j_el = insFld($j_par, gFld(\"".$caption."\",\"".$this->SectionURL($element)."\"));\n";
	print $j_el . ".iconSrc='".$this->SectionIconURL($element,0)."';\n";
	if($this->sections[$element]->Get("right")!=NULL)
	$this->BuildTree($this->sections[$element]->Get("right"), $parent);

	$parent = $element;
	$this->BuildTree($this->sections[$element]->Get("child"), $parent);

	}
	}
	}

	function page_title()
	{
	global $imagesURL,$adminURL, $objConfig;

	$o = "";
	$sec = $this->GetCurrentSection();
	if($sec->Get("notitle")!="1")
	{
	$caption = $sec->Get("title");

	if(strlen($caption)==0)
	{
	if(strlen($sec->Get("parent")))
	{
	$p = $this->GetSection($sec->Get("parent"));
	if(is_object($p))
	{
	$caption = $p->Get("title");
	$icon = $p->IconURL(1);
	}
	}
	}
	else
	$icon = $sec->IconURL(1);
	$logout_link = $adminURL."/index.php";
	if(strlen($caption))
	{
	if($sec->Get("key")=="in-portal:root")
	{
	$caption=stripslashes($objConfig->Get("Site_Name"));
	}
	else
	{
	$caption = admin_language($caption);
	}
	$bg_image = 'logo_bg.gif';
	$replace_modules = Array('in-link','in-news','in-bulletin');
	foreach($replace_modules as $r_module)
	if( $this->IsModule($r_module) )
	{
	$bg_image = 'logo_bg_'.$r_module.'.gif';
	break;
	}

	- $o = "<DIV style='position:relative; z-Index: 1; background-color: #ffffff; padding-top:1px;'>
	- <div style='position:absolute; width:100%;top:0px;' align='right'>
	- <img src='".$imagesURL.'/'.$bg_image."'></div><img src='".$imagesURL."/spacer.gif' width=1 height=7>
	- <br><div style='z-Index:1; position:relative'>";
	- $o .= "<!-- ADMIN TITLE --><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\">
	- <tr><td valign=\"top\" class=\"admintitle\" align=\"left\">
	- <img alt=\"\" width=\"46\" height=\"46\" src=\"$icon\" align=\"absmiddle\"> $caption<br>
	- <img src='".$imagesURL."/spacer.gif' width=1 height=4><br>
	- </td></tr></table>";
	+ $o = '<!-- ADMIN TITLE -->
	+ <table cellpadding="0" cellspacing="0" border="0" width="100%">
	+ <tr>
	+ <td valign="top" class="admintitle" align="left" style="background: url('.$imagesURL.'/'.$bg_image.') top right; background-repeat: no-repeat;">
	+ <img alt="" width="46" height="46" src="'.$icon.'" align="absmiddle"> '.$caption.'<br>
	+ <img src="'.$imagesURL.'/spacer.gif" width="1" height="4"><br>
	+ </td>
	+ </tr>
	+ </table>';
	}
	}
	return $o;
	}

	function IsModule($module_name)
	{
	// checks if there is requested module used in right frame

	// module folder match
	$url_split = explode('/', $_SERVER['PHP_SELF']);
	if( in_array($module_name, $url_split) ) return 1;

	// module section match
	$section = GetVar('section');
	if($section)
	{
	$section = explode(':', $section);
	if( $section[0] == $module_name ) return true;
	}
	return false;
	}

	function page_tabs($envar)
	{
	$showtabs=0;
	$o = '';
	$sec = $this->GetCurrentSection();
	if ($sec->Get("notabs")!=1)
	{
	//get starting node
	$node = $sec;
	while (strlen($node->Get("left")))
	{
	$node = $this->GetSection($node->Get("left"));
	}
	if($node)
	{

	$o = "<!-- TABS --><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tr>
	<td align=\"right\" width=\"100%\"><table cellpadding=\"0\" cellspacing=\"0\" border=\"0\" height=\"23\">
	<tr>";
	$showtabs=1;
	}
	//traverse and print tabs
	while ( isset($node) && is_object($node) )
	{
	if ($node->Get("key") == $this->current)
	$o .= $node->active_tab();
	else
	$o .= $node->tab($envar);

	$right = $node->Get("right");
	unset($node);
	if(strlen($right))
	$node = $this->GetSection($right);
	}
	if($showtabs)
	{
	$o .= "</tr></table></td></tr></table>";
	}
	}
	return $o;
	}

	function section_header($envar,$navbar=NULL,$extra_title=NULL, $no_help = false, $OtherSection = '')
	{
	global $pathtoroot;
	global $pathtolocal;
	global $imagesURL;
	global $adminURL;
	global $objConfig;

	$output = '';
	$HelpIcon = $imagesURL."/blue_bar_help.gif";
	$node = $this->GetCurrentSection();
	if(is_object($node))
	{
	$helpURL = $adminURL.'/help/help.php?'.( substr($envar,0,3) == 'env' ? '' : 'env=').$envar.'&destform=popup';
	$node_key = $node->Get('key');
	$o = "<!-- SECTION NAVIGATOR -->";
	//background="'.$imagesURL.'/tabnav_left.jpg"
	if($no_help == false) $o .= '<form name="help_form" id="help_form" action="'.$helpURL.'" method="post"><input type="hidden" id="section" name="section" value=""></form>';
	$o .= '<table border="0" cellpadding="2" cellspacing="0" class="tableborder_full" width="100%" height="30">';
	$o .= '<tr><TD class="header_left_bg" width="100%">';

	//get path up to the parent node
	while ( isset($node) && is_object($node) )
	{
	if(!strlen($extra_title))
	{
	$bar_title = $node->Get("bar_title");
	$bar_title_plain_text = $node->Get("bar_title_plain_text");

	if(strlen($bar_title) && !is_null($bar_title))
	$caption = language($bar_title);
	elseif (is_null($bar_title))
	$caption = "";
	else
	$caption = language($node->Get("name"));

	if (strlen($bar_title_plain_text))
	$caption.= $bar_title_plain_text;
	}
	else
	$caption = $extra_title;

	$output = "<span class=\"tablenav_link\">$caption</span>";
	unset($node);
	}

	$o .= $output;
	if(strlen($navbar))
	$o .= "::<b>".$navbar."</b>";
	if($OtherSection) $node_key = $OtherSection;
	$o .= "</td><td align=\"right\" class=\"tablenav\" background=\"$imagesURL/tabnav_back.jpg\" width=\"10\">";
	if($no_help == false) $o .= "<a class=\"link\" onclick=\"ShowHelp('".$node_key."');\"><img src=\"$HelpIcon\" border=\"0\"></A>";
	$o .= "</td></tr></table><!-- END SECTION NAVIGATOR -->";
	}
	return $o;
	}

	} /* clsSectionList */

	$objSections = new clsSectionList();
	$objSections->AddSection("in-portal:root", $objConfig->Get("Site_Name"), $objConfig->Get("Site_Name"), $admin."/","subitems.php",
	$admin."/icons/icon46_site.gif", $admin."/icons/icon24_site.gif",
	"in-portal:site", NULL, NULL,"in-portal:users",0,"",1, NULL,NULL,NULL, "", "la_section_overview");

	$objSections->AddSection("in-portal:site", "la_tab_Site_Structure","la_title_Site_Structure", $admin."/","subitems.php",
	$admin."/icons/icon46_struct.gif", $admin."/icons/icon24_struct.gif",
	"in-portal:browse", "in-portal:root", NULL,"in-portal:users",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_struct.gif","la_selecting_categories");

	$objSections->AddSection("in-portal:users","la_tab_Community","la_title_Community",$admin."/","subitems.php",
	$admin."/icons/icon46_community.gif",$admin."/icons/icon24_community.gif", NULL,"in-portal:root","in-portal:site","in-portal:modules",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_community.gif","la_section_overview");

	$objSections->AddSection("in-portal:modules","la_tab_ModulesSettings","la_title_Settings",$admin."/","subitems.php",
	$admin."/icons/icon46_modules.gif",$admin."/icons/icon24_modules.gif",NULL, "in-portal:root","in-portal:users","in-portal:reports",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_modules.gif","la_section_overview");

	$objSections->AddSection("in-portal:mod_status","la_tab_Modules","la_title_Module_Status",$admin."/modules/","mod_status.php",
	$admin."/icons/icon46_modules.gif",$admin."/icons/icon24_modules.gif",NULL, NULL,NULL,NULL,0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_modules.gif");

	$objSections->AddSection("in-portal:addmodule","la_tab_Modules","la_title_Add_Module",$admin."/modules/","addmodule.php",
	$admin."/icons/icon46_modules.gif",$admin."/icons/icon24_modules.gif",NULL, NULL,NULL,NULL,0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_modules.gif");

	$objSections->AddSection("in-portal:reports","la_tab_Reports","la_title_Reports",$admin."/","subitems.php",
	$admin."/icons/icon46_summary_logs.gif",$admin."/icons/icon24_summary_logs.gif",NULL, "in-portal:root","in-portal:modules","in-portal:system",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_summary_logs.gif","la_section_overview");

	$objSections->AddSection("in-portal:log_summary","la_tab_Summary","la_tab_Summary",$admin."/logs/","summary.php",
	$admin."/icons/icon46_summary.gif",$admin."/icons/icon24_summary.gif",NULL,
	"in-portal:reports",NULL,"in-portal:searchlog",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_summary.gif");

	$objSections->AddSection("in-portal:searchlog","la_tab_SearchLog","la_tab_SearchLog",$admin."/logs/","searchlog.php",
	$admin."/icons/icon46_search_log.gif",$admin."/icons/icon24_search_log.gif",
	NULL,"in-portal:reports","in-portal:log_summary","in-portal:sessionlog",0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_search_log.gif");

	$objSections->AddSection("in-portal:sessionlog","la_tab_SessionLog","la_tab_SessionLog",$admin."/logs/","session_list.php",
	$admin."/icons/icon46_sessions_log.gif",$admin."/icons/icon24_sessions_log.gif",
	NULL,"in-portal:reports","in-portal:sessionlog",'in-portal:emaillog',0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_sessions_log.gif");

	$objSections->AddSection("in-portal:emaillog","la_tab_EmailLog","la_tab_EmailLog",$admin."/logs/","email_log.php",
	$admin."/icons/icon46_email_log.gif",$admin."/icons/icon24_email_log.gif",
	NULL,"in-portal:reports","in-portal:emaillog",NULL,0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_email_log.gif");

	/* Help */
	$objSections->AddSection("in-portal:help","la_tab_Help","la_title_Help",$admin."/help/","manual.pdf",
	$admin."/icons/icon46_help.gif",$admin."/icons/icon24_help.gif",
	NULL,"in-portal:root","in-portal:system",NULL,0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_help.gif");


	/*
	$objSections->AddSection("in-portal:help","la_tab_Help","la_title_Help",$admin."/help/topics/","download.html",
	$admin."/icons/icon46_help.gif",$admin."/icons/icon24_help.gif",
	NULL,"in-portal:root","in-portal:system",NULL,0,"",1,NULL,NULL,NULL,$admin."/icons/icon46_list_help.gif");

	$objSections->AddSection("in-portal:help_overview","la_tab_Overview","la_title_Help",$admin."/help/","help.php",
	$admin."/icons/icon46_help.gif",$admin."/icons/icon24_help.gif",
	NULL,"in-portal:help",NULL,"in-portal:help_ch1",NULL,NULL,NULL,NULL,NULL,NULL,$admin."/icons/icon46_list_help.gif");
	$objSections->AddSection("in-portal:help_ch1","Chapter 1","Chapter 1",$admin."/help/","help.php",
	$admin."/icons/icon46_help.gif",$admin."/icons/icon24_help.gif",
	NULL,"inportal:help","in-portal:help_overview","in-portal:help_ch2");
	$objSections->AddSection("in-portal:help_ch2","Chapter 2","Chapter 2",$admin."/help/","help.php",
	$admin."/icons/icon46_help.gif",$admin."/icons/icon24_help.gif",
	NULL,"inportal:help","in-portal:help_ch1",NULL);
	*/
	/* Help ends */
	$objSections->AddSection("in-portal:item_select","la_title_Select_Item","Select Item",$admin."/","item_select.php","","",
	NULL,NULL,NULL,0,"",1,1);

	$objSections->AddSection("in-portal:rel_select","la_title_Select_Target_Item","Select Item",$admin."/","rel_select.php","","",
	NULL,NULL,NULL,0,"",1,0,1,1);

	$NewButtons = array();
	/* each module will add to the array declared below, which contains the info for the
	'new' button for the module's Browse data. The array is an array of arrays,
	and the subarray should contain the following indexes:

	ImagePath = URL to the directory containing the image
	Action = Action attribute of the image (this is also the "base name" of the image
	Alt = Image ALT value
	Tab = If set, button will only be displayed when this div is active

	*/

	$m = GetModuleArray("admin");
	if(is_array($m))
	{
	foreach($m as $key=>$value)
	{
	$mod = $pathtoroot . $value . "admin/include/navmenu.php";
	include_once($mod);
	}
	}
	$objSections->AddSection("default","","",$admin."/","#",NULL,NULL,NULL,NULL,NULL,NULL);

	?>

	Property changes on: trunk/admin/include/sections.php
	___________________________________________________________________
	Modified: cvs2svn:cvs-rev
	## -1 +1 ##
	-1.11
	\ No newline at end of property
	+1.12
	\ 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