Index: branches/5.1.x/core/units/categories/categories_tag_processor.php
===================================================================
diff -u -N -r13452 -r13461
--- branches/5.1.x/core/units/categories/categories_tag_processor.php	(.../categories_tag_processor.php)	(revision 13452)
+++ branches/5.1.x/core/units/categories/categories_tag_processor.php	(.../categories_tag_processor.php)	(revision 13461)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: categories_tag_processor.php 13452 2010-04-28 11:06:54Z alex $
+* @version	$Id: categories_tag_processor.php 13461 2010-04-28 13:10:19Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -1923,4 +1923,32 @@
     	}
     	return $this->Application->ParseBlock($params);
 	}
+
+	/**
+	 * Returns list of categories, that have category add/edit permission
+	 *
+	 * @param Array $params
+	 * @return string
+	 */
+	function AllowedCategoriesJSON($params)
+	{
+		if ($this->Application->RecallVar('user_id') == -1) {
+			$categories = true;
+		}
+		else {
+			$object =& $this->getObject($params);
+			/* @var $object kDBItem */
+
+			$perm_helper =& $this->Application->recallObject('PermissionsHelper');
+			/* @var $perm_helper kPermissionsHelper */
+
+			$perm_prefix = $this->Application->getUnitOption($this->Prefix, 'PermItemPrefix');
+			$categories = $perm_helper->getPermissionCategories($perm_prefix . '.' . ($object->IsNewItem() ? 'ADD' : 'MODIFY'));
+		}
+
+		$json_helper =& $this->Application->recallObject('JSONHelper');
+		/* @var $json_helper JSONHelper */
+
+		return $json_helper->encode($categories);
+	}
 }
\ No newline at end of file