Index: branches/5.2.x/core/kernel/event_manager.php
===================================================================
diff -u -N -r15137 -r15250
--- branches/5.2.x/core/kernel/event_manager.php	(.../event_manager.php)	(revision 15137)
+++ branches/5.2.x/core/kernel/event_manager.php	(.../event_manager.php)	(revision 15250)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: event_manager.php 15137 2012-03-04 08:06:21Z alex $
+* @version	$Id: event_manager.php 15250 2012-03-30 16:47:57Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -272,6 +272,25 @@
 	}
 
 	/**
+	 * Checks, that given event is implemented
+	 *
+	 * @param kEvent $event
+	 * @return bool
+	 * @access public
+	 */
+	public function eventImplemented(kEvent $event)
+	{
+		if ( !$this->verifyEventPrefix($event, true) ) {
+			return false;
+		}
+
+		$event_handler = $this->Application->recallObject($event->Prefix . '_EventHandler');
+		/* @var $event_handler kEventHandler */
+
+		return $event_handler->getEventMethod($event) != '';
+	}
+
+	/**
 	 * Checks if event prefix is valid
 	 *
 	 * @param kEvent $event
@@ -282,10 +301,11 @@
 	public function verifyEventPrefix($event, $is_fatal = false)
 	{
 		if ( !$this->Application->prefixRegistred($event->Prefix) ) {
+			// when "l-cdata" is requested, then load "l", that will clone "l-cdata" unit config
 			$this->Application->UnitConfigReader->loadConfig($event->Prefix);
 
 			if ( !$this->Application->prefixRegistred($event->Prefix) ) {
-				$error_msg = 'Prefix <strong>' . $event->Prefix . '</strong> not registred (requested event <strong>' . $event->Name . '</strong>)';
+				$error_msg = 'Prefix "<strong>' . $event->Prefix . '</strong>" not registred (requested event "<strong>' . $event->Name . '</strong>")';
 
 				if ($is_fatal) {
 					throw new Exception($error_msg);