Index: branches/RC/core/units/themes/themes_tag_processor.php
===================================================================
diff -u -r8929 -r9236
--- branches/RC/core/units/themes/themes_tag_processor.php	(.../themes_tag_processor.php)	(revision 8929)
+++ branches/RC/core/units/themes/themes_tag_processor.php	(.../themes_tag_processor.php)	(revision 9236)
@@ -51,6 +51,11 @@
 
 			return '<link rel="stylesheet" rev="stylesheet" href="'.$ret.'" type="text/css" media="screen" />';
 		}
+		
+		function SelectedTheme($params)
+		{
+			$object =& $this->getObject($params);
+			return $object->GetDBField('ThemeId') == $this->Application->GetVar('m_theme');
+		}			
 	}
-
 ?>
\ No newline at end of file