Released 0.8 the 1st of october

SVN:0.8[193]

tags/0.7.1/addons/userrights/userrightsmatrix.class.inc.php

@@ -270,6 +270,29 @@ class UserRightsMatrix extends UserRightsAddOnAPI
 				}
 			}
 		}
+		// Create the "My Bookmarks" menu item (parent_id = 0, rank = 6)
+		if ($bNewUser)
+		{
+			$bAddMenu = true;
+		}
+		else
+		{
+			$oSet = new DBObjectSet(DBObjectSearch::FromOQL("SELECT menuNode WHERE type = 'user' AND parent_id = 0 AND user_id = $iUserId"));
+			$bAddMenu = ($oSet->Count() < 1);
+		}
+		if ($bAddMenu)
+		{
+			$oMenu = MetaModel::NewObject('menuNode');
+			$oMenu->Set('type', 'user');
+			$oMenu->Set('parent_id', 0);	// It's a toplevel entry
+			$oMenu->Set('rank', 6);			// Located just above the Admin Tools section (=7)
+			$oMenu->Set('name', 'My Bookmarks');
+			$oMenu->Set('label', 'My Favorite Items');
+			$oMenu->Set('hyperlink', 'UI.php');
+			$oMenu->Set('template', '<p></p><p></p><p style="text-align:center; font-family:Georgia, Times, serif; font-size:32px;">My bookmarks</p><p style="text-align:center; font-family:Georgia, Times, serif; font-size:14px;"><i>This section contains my most favorite search results</i></p>');
+			$oMenu->Set('user_id', $iUserId);
+			$oMenu->DBInsert();
+		}
 	}
 
 

tags/0.7.1/application/cmdbabstract.class.inc.php

@@ -0,0 +1,649 @@
+<?php
+require_once('../core/cmdbobject.class.inc.php');
+require_once('../application/utils.inc.php');
+require_once('../application/applicationcontext.class.inc.php');
+require_once('../application/ui.linkswidget.class.inc.php');
+////////////////////////////////////////////////////////////////////////////////////
+/**
+* Abstract class that implements some common and useful methods for displaying
+* the objects
+*/
+////////////////////////////////////////////////////////////////////////////////////
+abstract class cmdbAbstractObject extends CMDBObject
+{
+	
+	public static function GetUIPage()
+	{
+		return './UI.php';
+	}
+	
+	public static function ComputeUIPage($sClass)
+	{
+		static $aUIPagesCache = array(); // Cache to store the php page used to display each class of object
+		if (!isset($aUIPagesCache[$sClass]))
+		{
+			$UIPage = false;
+			if (is_callable("$sClass::GetUIPage"))
+			{
+				$UIPage = eval("return $sClass::GetUIPage();"); // May return false in case of error
+			}
+			$aUIPagesCache[$sClass] = $UIPage === false ? './UI.php' : $UIPage;
+		}
+		$sPage = $aUIPagesCache[$sClass];
+		return $sPage;
+	}
+
+	protected static function MakeHyperLink($sObjClass, $sObjKey, $aAvailableFields)
+	{
+		$oAppContext = new ApplicationContext();	
+		$sExtClassNameAtt = MetaModel::GetNameAttributeCode($sObjClass);
+		$sPage = self::ComputeUIPage($sObjClass);
+		// Use the "name" of the target class as the label of the hyperlink
+		// unless it's not available in the external attributes...
+		if (isset($aAvailableFields[$sExtClassNameAtt]))
+		{
+			$sLabel = $aAvailableFields[$sExtClassNameAtt];
+		}
+		else
+		{
+			$sLabel = implode(' / ', $aAvailableFields);
+		}
+		$sHint = htmlentities("$sObjClass::$sObjKey");
+		return "<a href=\"$sPage?operation=details&class=$sObjClass&id=$sObjKey&".$oAppContext->GetForLink()."\" title=\"$sHint\">$sLabel</a>";
+	}
+
+	public function GetDisplayValue($sAttCode)
+	{
+		$sDisplayValue = "";
+		$sStateAttCode = MetaModel::GetStateAttributeCode(get_class($this));
+		if ($sStateAttCode == $sAttCode)
+		{
+			$aStates = MetaModel::EnumStates(get_class($this));
+			$sDisplayValue = $aStates[$this->Get($sAttCode)]['label'];
+		}
+		else
+		{
+			$oAtt = MetaModel::GetAttributeDef(get_class($this), $sAttCode);
+			
+			if ($oAtt->IsExternalKey())
+			{
+				// retrieve the "external fields" linked to this external key
+				$sTargetClass = $oAtt->GetTargetClass();
+				$aAvailableFields = array();
+				foreach (MetaModel::GetExternalFields(get_class($this), $sAttCode) as $oExtField)
+				{
+					$aAvailableFields[$oExtField->GetExtAttCode()] = $oExtField->GetAsHTML($this->Get($oExtField->GetCode()));
+				}
+				$sExtClassNameAtt = MetaModel::GetNameAttributeCode($sTargetClass);
+				// Use the "name" of the target class as the label of the hyperlink
+				// unless it's not available in the external fields...
+				if (isset($aAvailableFields[$sExtClassNameAtt]))
+				{
+					$sDisplayValue = $aAvailableFields[$sExtClassNameAtt];
+				}
+				else
+				{
+					$sDisplayValue = implode(' / ', $aAvailableFields);
+				}
+			}
+			else
+			{
+				$sDisplayValue = $this->GetAsHTML($sAttCode);
+			}
+		}
+		return $sDisplayValue;
+	}
+
+	function DisplayBareDetails(web_page $oPage)
+	{
+		$oPage->add($this->GetBareDetails($oPage));		
+	}
+
+	function GetDisplayName()
+	{
+		return $this->GetAsHTML(MetaModel::GetNameAttributeCode(get_class($this)));
+	}
+
+	function GetBareDetails(web_page $oPage)
+	{
+		$sHtml = '';
+		$oAppContext = new ApplicationContext();	
+		$sStateAttCode = MetaModel::GetStateAttributeCode(get_class($this));
+		$aDetails = array();
+		$sClass = get_class($this);
+		$aList = MetaModel::GetZListItems($sClass, 'details');
+
+		foreach($aList as $sAttCode)
+		{
+			$iFlags = $this->GetAttributeFlags($sAttCode);
+			if ( ($iFlags & OPT_ATT_HIDDEN) == 0)
+			{
+				// The field is visible in the current state of the object
+				if ($sStateAttCode == $sAttCode)
+				{
+					// Special display for the 'state' attribute itself
+					$sDisplayValue = $this->GetState();
+				}
+				else
+				{
+					$sDisplayValue = $this->GetAsHTML($sAttCode);
+				}
+				$aDetails[] = array('label' => MetaModel::GetLabel($sClass, $sAttCode), 'value' => $sDisplayValue);
+			}
+		}
+		$sHtml .= $oPage->GetDetails($aDetails);
+		return $sHtml;		
+	}
+
+	
+	function DisplayDetails(web_page $oPage)
+	{
+		$sTemplate = Utils::ReadFromFile(MetaModel::GetDisplayTemplate(get_class($this)));
+		if (!empty($sTemplate))
+		{
+			$oTemplate = new DisplayTemplate($sTemplate);
+			$oTemplate->Render($oPage, array('class_name'=> MetaModel::GetName(get_class($this)),'class'=> get_class($this),'pkey'=> $this->GetKey(), 'name' => $this->GetName()));
+		}
+		else
+		{
+			// Standard Header with name, actions menu and history block
+			$oPage->add("<div class=\"page_header\">\n");
+			$oSingletonFilter = new DBObjectSearch(get_class($this));
+			$oSingletonFilter->AddCondition('pkey', array($this->GetKey()));
+			$oBlock = new MenuBlock($oSingletonFilter, 'popup', false);
+			$oBlock->Display($oPage, -1);
+			$oPage->add("<h1>".Metamodel::GetName(MetaModel::GetName(get_class($this))).": <span class=\"hilite\">".$this->GetDisplayName()."</span></h1>\n");
+			$oHistoryFilter = new DBObjectSearch('CMDBChangeOpSetAttribute');
+			$oHistoryFilter->AddCondition('objkey', $this->GetKey());
+			$oBlock = new HistoryBlock($oHistoryFilter, 'toggle', false);
+			$oBlock->Display($oPage, -1);
+			$oPage->add("</div>\n");
+			
+			// Object's details
+			// template not found display the object using the *old style*
+			self::DisplayBareDetails($oPage);
+			
+			// Related objects
+			$oPage->AddTabContainer('Related Objects');
+			$oPage->SetCurrentTabContainer('Related Objects');
+			foreach(MetaModel::ListAttributeDefs(get_class($this)) as $sAttCode=>$oAttDef)
+			{
+				if ((get_class($oAttDef) == 'AttributeLinkedSetIndirect') || (get_class($oAttDef) == 'AttributeLinkedSet'))
+				{
+					$oPage->SetCurrentTab($oAttDef->GetLabel());
+					$oPage->p($oAttDef->GetDescription());
+					
+					if (get_class($oAttDef) == 'AttributeLinkedSet')
+					{
+						$sTargetClass = $oAttDef->GetLinkedClass();
+						$oFilter = new DBObjectSearch($sTargetClass);
+						$oFilter->AddCondition($oAttDef->GetExtKeyToMe(), $this->GetKey()); // @@@ condition has same name as field ??
+
+						$oBlock = new DisplayBlock($oFilter, 'list', false);
+						$oBlock->Display($oPage, 0);
+					}
+					else // get_class($oAttDef) == 'AttributeLinkedSetIndirect'
+					{
+						$sLinkClass = $oAttDef->GetLinkedClass();
+						// Transform the DBObjectSet into a CMBDObjectSet !!!
+						$aLinkedObjects = $this->Get($sAttCode)->ToArray(false);
+						if (count($aLinkedObjects) > 0)
+						{
+							$oSet = CMDBObjectSet::FromArray($sLinkClass, $aLinkedObjects);
+							$this->DisplaySet($oPage, $oSet, $oAttDef->GetExtKeyToMe());
+						}
+					}					
+				}
+			}
+			$oPage->SetCurrentTab('');
+		}
+	}
+	
+	function DisplayPreview(web_page $oPage)
+	{
+		$aDetails = array();
+		$sClass = get_class($this);
+		$aList = MetaModel::GetZListItems($sClass, 'preview');
+		foreach($aList as $sAttCode)
+		{
+			$aDetails[] = array('label' => MetaModel::GetLabel($sClass, $sAttCode), 'value' =>$this->GetAsHTML($sAttCode));
+		}
+		$oPage->details($aDetails);		
+	}
+	
+	// Comment by Rom: this helper may be used to display objects of class DBObject
+	//                 -> I am using this to display the changes history 
+	public static function DisplaySet(web_page $oPage, CMDBObjectSet $oSet, $sLinkageAttribute = '')
+	{
+		$oPage->add(self::GetDisplaySet($oPage, $oSet, $sLinkageAttribute));
+	}
+	
+	public static function GetDisplaySet(web_page $oPage, CMDBObjectSet $oSet, $sLinkageAttribute = '', $bDisplayMenu = true)
+	{
+		$sHtml = '';
+		$oAppContext = new ApplicationContext();
+		$sClassName = $oSet->GetFilter()->GetClass();
+		$aAttribs = array();
+		$aList = MetaModel::GetZListItems($sClassName, 'list');
+		if (!empty($sLinkageAttribute))
+		{
+			// The set to display is in fact a set of links between the object specified in the $sLinkageAttribute
+			// and other objects...
+			// The display will then group all the attributes related to the link itself:
+			// | Link_attr1 | link_attr2 | ... || Object_attr1 | Object_attr2 | Object_attr3 | .. | Object_attr_n |
+			$aAttDefs = MetaModel::ListAttributeDefs($sClassName);
+			assert(isset($aAttDefs[$sLinkageAttribute]));
+			$oAttDef = $aAttDefs[$sLinkageAttribute];
+			assert($oAttDef->IsExternalKey());
+			// First display all the attributes specific to the link record
+			foreach($aList as $sLinkAttCode)
+			{
+				$oLinkAttDef = $aAttDefs[$sLinkAttCode];
+				if ( (!$oLinkAttDef->IsExternalKey()) && (!$oLinkAttDef->IsExternalField()) )
+				{
+					$aDisplayList[] = $sLinkAttCode;
+				}
+			}
+			// Then display all the attributes neither specific to the link record nor to the 'linkage' object (because the latter are constant)
+			foreach($aList as $sLinkAttCode)
+			{
+				$oLinkAttDef = $aAttDefs[$sLinkAttCode];
+				if (($oLinkAttDef->IsExternalKey() && ($sLinkAttCode != $sLinkageAttribute))
+					|| ($oLinkAttDef->IsExternalField() && ($oLinkAttDef->GetKeyAttCode()!=$sLinkageAttribute)) )
+				{
+					$aDisplayList[] = $sLinkAttCode;
+				}
+			}
+			// First display all the attributes specific to the link
+			// Then display all the attributes linked to the other end of the relationship
+			$aList = $aDisplayList;
+		}
+		foreach($aList as $sAttCode)
+		{
+			$aAttribs['key'] = array('label' => '', 'description' => 'Click to display');
+			$aAttribs[$sAttCode] = array('label' => MetaModel::GetLabel($sClassName, $sAttCode), 'description' => MetaModel::GetDescription($sClassName, $sAttCode));
+		}
+		$aValues = array();
+		$oSet->Seek(0);
+		while ($oObj = $oSet->Fetch())
+		{
+			$aRow['key'] = $oObj->GetKey();
+			foreach($aList as $sAttCode)
+			{
+				$aRow[$sAttCode] = $oObj->GetAsHTML($sAttCode);
+			}
+			$aValues[] = $aRow;
+		}
+		$oMenuBlock = new MenuBlock($oSet->GetFilter());
+		$sHtml .= '<table class="listContainer">';
+		$sColspan = '';
+		if ($bDisplayMenu)
+		{
+			$sColspan = 'colspan="2"';
+			$sHtml .= '<tr class="containerHeader"><td>&nbsp;'.$oSet->Count().' object(s)</td><td>';
+			$sHtml .= $oMenuBlock->GetRenderContent($oPage, $sLinkageAttribute);
+			$sHtml .= '</td></tr>';
+		}
+		$sHtml .= "<tr><td $sColspan>";
+		$sHtml .= $oPage->GetTable($aAttribs, $aValues, array('class'=>$sClassName, 'filter'=>$oSet->GetFilter()->serialize(), 'preview' => true));
+		$sHtml .= '</td></tr>';
+		$sHtml .= '</table>';
+		return $sHtml;
+	}
+	
+	static function DisplaySetAsCSV(web_page $oPage, CMDBObjectSet $oSet, $aParams = array())
+	{
+		$oPage->add(self::GetSetAsCSV($oSet, $aParams));
+	}
+	
+	static function GetSetAsCSV(DBObjectSet $oSet, $aParams = array())
+	{
+		$sSeparator = isset($aParams['separator']) ? $aParams['separator'] : ','; // default separator is comma
+		$sTextQualifier = isset($aParams['text_qualifier']) ? $aParams['text_qualifier'] : '"'; // default text qualifier is double quote
+
+		$oAppContext = new ApplicationContext();
+		$sClassName = $oSet->GetFilter()->GetClass();
+		$aAttribs = array();
+		$aList = MetaModel::GetZListItems($sClassName, 'details');
+		$aHeader = array();
+		$aHeader[] = MetaModel::GetKeyLabel($sClassName);
+		foreach($aList as $sAttCode)
+		{
+			$aHeader[] = MetaModel::GetLabel($sClassName, $sAttCode);
+		}
+		$sHtml = '#'.$oSet->GetFilter()->ToOQL()."\n";
+		$sHtml .= implode($sSeparator, $aHeader)."\n";
+		$oSet->Seek(0);
+		while ($oObj = $oSet->Fetch())
+		{
+			$aRow = array();
+			$aRow[] = $oObj->GetKey();
+			foreach($aList as $sAttCode)
+			{
+				if (strstr($oObj->Get($sAttCode), $sSeparator)) // Escape the text only when it contains the separator
+				{
+					$aRow[] = $sTextQualifier.$oObj->Get($sAttCode).$sTextQualifier;
+				}
+				else
+				{
+					$aRow[] = $oObj->Get($sAttCode);
+				}
+			}
+			$sHtml .= implode($sSeparator, $aRow)."\n";
+		}
+		
+		return $sHtml;
+	}
+	
+	static function DisplaySetAsXML(web_page $oPage, CMDBObjectSet $oSet, $aParams = array())
+	{
+		$oAppContext = new ApplicationContext();
+		$sClassName = $oSet->GetFilter()->GetClass();
+		$aAttribs = array();
+		$aList = MetaModel::GetZListItems($sClassName, 'details');
+		$oPage->add("<Set>\n");
+		$oSet->Seek(0);
+		while ($oObj = $oSet->Fetch())
+		{
+			$oPage->add("<$sClassName id=\"".$oObj->GetKey()."\">\n");
+			foreach(MetaModel::ListAttributeDefs($sClassName) as $sAttCode=>$oAttDef)
+			{
+				if (($oAttDef->IsWritable()) && ($oAttDef->IsScalar()) && ($sAttCode != 'finalclass') )
+				{
+					$sValue = $oObj->GetAsXML($sAttCode);
+					$oPage->add("<$sAttCode>$sValue</$sAttCode>\n");
+				}
+			}
+			$oPage->add("</$sClassName>\n");
+		}
+		$oPage->add("</Set>\n");
+	}
+
+	// By rom
+	function DisplayChangesLog(web_page $oPage)
+	{
+		$oFltChangeOps = new CMDBSearchFilter('CMDBChangeOpSetAttribute');
+		$oFltChangeOps->AddCondition('objkey', $this->GetKey(), '=');
+		$oFltChangeOps->AddCondition('objclass', get_class($this), '=');
+		$oSet = new CMDBObjectSet($oFltChangeOps, array('date' => false)); // order by date descending (i.e. false)
+		$count = $oSet->Count();
+		if ($count > 0)
+		{
+			$oPage->p("Changes log ($count):");
+			self::DisplaySet($oPage, $oSet);
+		}
+		else
+		{
+			$oPage->p("Changes log is empty");
+		}
+	}
+	
+	public static function DisplaySearchForm(web_page $oPage, CMDBObjectSet $oSet, $aExtraParams = array())
+	{
+
+		$oPage->add(self::GetSearchForm($oPage, $oSet, $aExtraParams));
+	}
+	
+	public static function GetSearchForm(web_page $oPage, CMDBObjectSet $oSet, $aExtraParams = array())
+	{
+		$sHtml = '';
+		$numCols=4;
+		$sClassName = $oSet->GetFilter()->GetClass();
+		$oUnlimitedFilter = new DBObjectSearch($sClassName);
+		$sHtml .= "<form>\n";
+		$index = 0;
+		$sHtml .= "<table>\n";
+		$aFilterCriteria = $oSet->GetFilter()->GetCriteria();
+		$aMapCriteria = array();
+		foreach($aFilterCriteria as $aCriteria)
+		{
+			$aMapCriteria[$aCriteria['filtercode']][] = array('value' => $aCriteria['value'], 'opcode' => $aCriteria['opcode']);
+		}
+		$aList = MetaModel::GetZListItems($sClassName, 'standard_search');
+		foreach($aList as $sFilterCode)
+		{
+			if (($index % $numCols) == 0)
+			{
+				if ($index != 0)
+				{
+					$sHtml .= "</tr>\n";
+				}
+				$sHtml .= "<tr>\n";
+			}
+			$sFilterValue = '';
+			$sFilterValue = utils::ReadParam($sFilterCode, '');
+			$sFilterOpCode = null; // Use the default 'loose' OpCode
+			if (empty($sFilterValue))
+			{
+				if (isset($aMapCriteria[$sFilterCode]))
+				{
+					if (count($aMapCriteria[$sFilterCode]) > 1)
+					{
+						$sFilterValue = '* mixed *';
+					}
+					else
+					{
+						$sFilterValue = $aMapCriteria[$sFilterCode][0]['value'];
+						$sFilterOpCode = $aMapCriteria[$sFilterCode][0]['opcode'];
+					}
+					if ($sFilterCode != 'company')
+					{
+						$oUnlimitedFilter->AddCondition($sFilterCode, $sFilterValue, $sFilterOpCode);
+					}
+				}
+			}
+            $aAllowedValues = MetaModel::GetAllowedValues_flt($sClassName, $sFilterCode, array(), '');
+            if ($aAllowedValues != null)
+            {
+                //Enum field or external key, display a combo
+            	$sValue = "<select name=\"$sFilterCode\">\n";
+            	$sValue .= "<option value=\"\">* Any *</option>\n";
+            	foreach($aAllowedValues as $key => $value)
+            	{
+            		if ($sFilterValue == $key)
+            		{
+            			$sSelected = ' selected';
+            		}
+            		else
+            		{
+            			$sSelected = '';
+            		}
+            		$sValue .= "<option value=\"$key\"$sSelected>$value</option>\n";
+            	}
+            	$sValue .= "</select>\n";
+		        $sHtml .= "<td><label>".MetaModel::GetFilterLabel($sClassName, $sFilterCode).":</label></td><td>$sValue</td>\n";
+            }
+            else
+            {
+                // Any value is possible, display an input box
+		        $sHtml .= "<td><label>".MetaModel::GetFilterLabel($sClassName, $sFilterCode).":</label></td><td><input class=\"textSearch\" name=\"$sFilterCode\" value=\"$sFilterValue\"/></td>\n";
+            }
+			$index++;
+		}
+		if (($index % $numCols) != 0)
+		{
+			$sHtml .= "<td colspan=\"".(2*($numCols - ($index % $numCols)))."\"></td>\n";
+		}
+		$sHtml .= "</tr>\n";
+		$sHtml .= "<tr><td colspan=\"".(2*$numCols)."\" align=\"right\"><input type=\"submit\" value=\" Search \"></td></tr>\n";
+		$sHtml .= "</table>\n";
+		foreach($aExtraParams as $sName => $sValue)
+		{
+			$sHtml .= "<input type=\"hidden\" name=\"$sName\" value=\"$sValue\">\n";
+		}
+		$sHtml .= "<input type=\"hidden\" name=\"dosearch\" value=\"1\">\n";
+		$sHtml .= "</form>\n";
+		// Soem Debug dumps...
+		//$sHtml .= "<tt>".$oSet->GetFilter()->__DescribeHTML()."</tt><br/>\n";
+		//$sHtml .= "<tt>encoding=\"text/serialize\" : ".$oSet->GetFilter()->serialize()."</tt><br/>\n";
+		//$sHtml .= "<tt>encoding=\"text/sibusql\" : ".$oSet->GetFilter()->ToSibusQL()."</tt><br/>\n";
+		//$sHtml .= "<tt>(Unlimited) ".$oUnlimitedFilter->__DescribeHTML()."</tt><br/>\n";
+		//$sHtml .= "<tt>encoding=\"text/serialize\" : ".$oUnlimitedFilter->serialize()."</tt><br/>\n";
+		//$sHtml .= "<tt>encoding=\"text/sibusql\" : ".$oUnlimitedFilter->ToSibusQL()."</tt>\n";
+		return $sHtml;
+	}
+	
+	public static function GetFormElementForField($oPage, $sClass, $sAttCode, $oAttDef, $value = '', $sDisplayValue = '', $iId = '')
+	{
+		static $iInputId = 0;
+		if (!empty($iId))
+		{
+			$iInputId = $iId;
+		}
+		else
+		{
+			$iInputId++;
+		}
+		if (!$oAttDef->IsExternalField())
+		{
+			switch($oAttDef->GetEditClass())
+			{
+				case 'Date':
+				$sHTMLValue = "<input type=\"text\" size=\"20\" name=\"attr_$sAttCode\" value=\"$value\" id=\"$iInputId\" class=\"date-pick\"/>";
+				break;
+				
+				case 'Text':
+					$sHTMLValue = "<textarea name=\"attr_$sAttCode\" rows=\"8\" cols=\"40\" id=\"$iInputId\">$value</textarea>";
+				break;
+	
+				case 'List':
+					$oWidget = new UILinksWidget($sClass, $sAttCode, $iInputId);
+					$sHTMLValue = $oWidget->Display($oPage, $value);
+				break;
+							
+				case 'String':
+				default:
+			    $aAllowedValues = MetaModel::GetAllowedValues_att($sClass, $sAttCode, array(), '');
+				if ($aAllowedValues !== null)
+				{
+					//Enum field or external key, display a combo
+					if (count($aAllowedValues) == 0)
+					{
+						$sHTMLValue = "<input type=\"text\" size=\"70\" value=\"\" name=\"attr_$sAttCode\"  id=\"$iInputId\"/>";
+					}
+					else if (count($aAllowedValues) > 50)
+					{
+						// too many choices, use an autocomplete
+						// The input for the auto complete
+						$sHTMLValue = "<input type=\"text\" id=\"label_$iInputId\" size=\"50\" name=\"\" value=\"$sDisplayValue\" />";
+						// another hidden input to store & pass the object's Id
+						$sHTMLValue .= "<input type=\"hidden\" id=\"$iInputId\" name=\"attr_$sAttCode\" value=\"$value\" />\n";
+						$oPage->add_ready_script("\$('#label_$iInputId').autocomplete('./ajax.render.php', { minChars:3, onItemSelect:selectItem, onFindValue:findValue, formatItem:formatItem, autoFill:true, keyHolder:'#$iInputId', extraParams:{operation:'autocomplete', sclass:'$sClass',attCode:'".$sAttCode."'}});");
+					}
+					else
+					{
+						// Few choices, use a normal 'select'
+						$sHTMLValue = "<select name=\"attr_$sAttCode\"  id=\"$iInputId\">\n";
+						foreach($aAllowedValues as $key => $display_value)
+						{
+							$sSelected = ($value == $key) ? ' selected' : '';
+							$sHTMLValue .= "<option value=\"$key\"$sSelected>$display_value</option>\n";
+						}
+						$sHTMLValue .= "</select>\n";
+					}
+				}
+				else
+				{
+					$sHTMLValue = "<input type=\"text\" size=\"50\" name=\"attr_$sAttCode\" value=\"$value\" id=\"$iInputId\">";
+				}
+			}
+		}
+		return $sHTMLValue;
+	}
+	
+	public function DisplayModifyForm(web_page $oPage)
+	{
+		$oAppContext = new ApplicationContext();
+		$sStateAttCode = MetaModel::GetStateAttributeCode(get_class($this));
+		$iKey = $this->GetKey();
+		$aDetails = array();
+		$oPage->add("<form method=\"post\">\n");
+		foreach(MetaModel::ListAttributeDefs(get_class($this)) as $sAttCode=>$oAttDef)
+		{
+			if ('finalclass' == $sAttCode) // finalclass is a reserved word, hardcoded !
+			{
+				// Do nothing, the class field is always hidden, it cannot be edited
+			}
+			else if ($sStateAttCode == $sAttCode)
+			{
+				// State attribute is always read-only from the UI
+				$sHTMLValue = $this->GetState();
+				$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+			}
+			else if (!$oAttDef->IsExternalField())
+			{
+				$iFlags = $this->GetAttributeFlags($sAttCode);				
+				if ($iFlags & OPT_ATT_HIDDEN)
+				{
+					// Attribute is hidden, do nothing
+				}
+				else
+				{
+					if ($iFlags & OPT_ATT_READONLY)
+					{
+						// Attribute is read-only
+						$sHTMLValue = $this->GetAsHTML($sAttCode);
+					}
+					else
+					{
+						$sValue = $this->Get($sAttCode);
+						$sDisplayValue = $this->GetDisplayValue($sAttCode);
+						$sHTMLValue = self::GetFormElementForField($oPage, get_class($this), $sAttCode, $oAttDef, $sValue, $sDisplayValue);
+					}
+					$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+				}
+			}
+		}
+		$oPage->details($aDetails);
+		$oPage->add("<input type=\"hidden\" name=\"id\" value=\"$iKey\">\n");
+		$oPage->add("<input type=\"hidden\" name=\"class\" value=\"".get_class($this)."\">\n");
+		$oPage->add("<input type=\"hidden\" name=\"operation\" value=\"apply_modify\">\n");
+		$oPage->add("<input type=\"hidden\" name=\"transaction_id\" value=\"".utils::GetNewTransactionId()."\">\n");
+		$oPage->add($oAppContext->GetForForm());
+		$oPage->add("<button type=\"button\" class=\"action\" onClick=\"goBack()\"><span>Cancel</span></button>&nbsp;&nbsp;&nbsp;&nbsp;\n");
+		$oPage->add("<button type=\"submit\" class=\"action\"><span>Apply</span></button>\n");
+		$oPage->add("</form>\n");
+	}
+	
+	public static function DisplayCreationForm(web_page $oPage, $sClass, $oObjectToClone = null)
+	{
+		$oAppContext = new ApplicationContext();
+		$aDetails = array();
+		$sOperation = ($oObjectToClone == null) ? 'apply_new' : 'apply_clone';
+		$sStateAttCode = MetaModel::GetStateAttributeCode(get_class($oObjectToClone));
+		$oPage->add("<form method=\"post\">\n");
+		foreach(MetaModel::ListAttributeDefs($sClass) as $sAttCode=>$oAttDef)
+		{
+			if ('finalclass' == $sAttCode) // finalclass is a reserved word, hardcoded !
+			{
+				// Do nothing, the class field is always hidden, it cannot be edited
+			}
+			else if ($sStateAttCode == $sAttCode)
+			{
+				// State attribute is always read-only from the UI
+				$sHTMLValue = $oObjectToClone->GetState();
+				$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+			}
+			else if (!$oAttDef->IsExternalField())
+			{
+				$sValue = ($oObjectToClone == null) ? '' : $oObjectToClone->Get($sAttCode);
+				$sDisplayValue = ($oObjectToClone == null) ? '' : $oObjectToClone->GetDisplayValue($sAttCode);
+				$sHTMLValue = self::GetFormElementForField($oPage, $sClass, $sAttCode, $oAttDef, $sValue, $sDisplayValue);
+				$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+			}
+		}
+		$oPage->details($aDetails);
+		if ($oObjectToClone != null)
+		{
+			$oPage->add("<input type=\"hidden\" name=\"clone_id\" value=\"".$oObjectToClone->GetKey()."\">\n");
+		}
+		$oPage->add("<input type=\"hidden\" name=\"class\" value=\"$sClass\">\n");
+		$oPage->add("<input type=\"hidden\" name=\"operation\" value=\"$sOperation\">\n");
+		$oPage->add("<input type=\"hidden\" name=\"transaction_id\" value=\"".utils::GetNewTransactionId()."\">\n");
+		$oPage->add($oAppContext->GetForForm());
+		$oPage->add("<button type=\"button\" class=\"action\" onClick=\"goBack()\"><span>Cancel</span></button>&nbsp;&nbsp;&nbsp;&nbsp;\n");
+		$oPage->add("<button type=\"submit\" class=\"action\"><span>Apply</span></button>\n");
+		$oPage->add("</form>\n");
+	}
+}
+?>

tags/0.7.1/application/displayblock.class.inc.php

@@ -0,0 +1,682 @@
+<?php
+require_once('../application/webpage.class.inc.php');
+require_once('../application/utils.inc.php');
+require_once('../core/userrights.class.inc.php');
+/**
+ * Helper class to manage 'blocks' of HTML pieces that are parts of a page and contain some list of cmdb objects
+ *
+ * Each block is actually rendered as a <div></div> tag that can be rendered synchronously
+ * or as a piece of Javascript/JQuery/Ajax that will get its content from another page (ajax.render.php).
+ * The list of cmdbObjects to be displayed into the block is defined by a filter
+ * Right now the type of display is either: list, count, bare_details, details, csv, modify or search
+ * - list produces a table listing the objects
+ * - count produces a paragraphs with a sentence saying 'cont' objects found
+ * - bare_details displays just the details of the attributes of the object  (best if only one)
+ * - details display the full details of each object found using its template (best if only one)
+ * - csv displays a textarea with the CSV export of the list of objects 
+ * - modify displays the form to modify an object (best if only one)
+ * - search displays a search form with the criteria of the filter set
+ */
+class DisplayBlock
+{
+	const TAG_BLOCK = 'itopblock';
+	protected $m_oFilter;
+	protected $m_sStyle;
+	protected $m_bAsynchronous;
+	protected $m_aParams;
+	protected $m_oSet;
+	
+	public function __construct(DBObjectSearch $oFilter, $sStyle = 'list', $bAsynchronous = false, $aParams = array(), $oSet = null)
+	{
+		$this->m_oFilter = $oFilter;
+		$this->m_sStyle = $sStyle;
+		$this->m_bAsynchronous = $bAsynchronous;
+		$this->m_aParams = $aParams;
+		$this->m_oSet = $oSet;
+	}
+	/**
+	 * Constructs a DisplayBlock object from a DBObjectSet already in memory
+	 * @param $oSet DBObjectSet
+	 * @return DisplayBlock The DisplayBlock object, or null if the creation failed
+	 */
+	public static function FromObjectSet(DBObjectSet $oSet, $sStyle, $aParams = array())
+	{
+		$oDummyFilter = new DBObjectSearch($oSet->GetClass());
+		$oBlock = new DisplayBlock($oDummyFilter, $sStyle, false, $aParams, $oSet); // DisplayBlocks built this way are synchronous
+		return $oBlock;
+	}
+	
+	/**
+	 * Constructs a DisplayBlock object from an XML template
+	 * @param $sTemplate string The XML template
+	 * @return DisplayBlock The DisplayBlock object, or null if the template is invalid
+	 */
+	public static function FromTemplate($sTemplate)
+	{
+		$iStartPos = stripos($sTemplate, '<'.self::TAG_BLOCK.' ',0);
+		$iEndPos = stripos($sTemplate, '</'.self::TAG_BLOCK.'>', $iStartPos); 
+		
+		if (($iStartPos === false) || ($iEndPos === false)) return null; // invalid template		
+		$sITopBlock = substr($sTemplate,$iStartPos, $iEndPos-$iStartPos);
+		$sITopData = substr($sITopBlock, 1+stripos($sITopBlock, ">"));
+		$sITopTag = substr($sITopBlock, 0, stripos($sITopBlock, ">"));
+		$aMatches = array();
+		$sBlockClass = "DisplayBlock";
+		$bAsynchronous = false;
+		$sBlockType = 'list';
+		$sEncoding = 'text/serialize';
+		if (preg_match('/ type="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$sBlockType = strtolower($aMatches[1]);
+		}
+		if (preg_match('/ asynchronous="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$bAsynchronous = (strtolower($aMatches[1]) == 'true');
+		}
+		if (preg_match('/ blockclass="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$sBlockClass = $aMatches[1];
+		}
+		if (preg_match('/ objectclass="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$sObjectClass = $aMatches[1];
+		}
+		if (preg_match('/ encoding="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$sEncoding = strtolower($aMatches[1]);
+		}
+		if (preg_match('/ linkage="(.*)"/U',$sITopTag, $aMatches))
+		{
+			// The list to display is a list of links to the specified object
+			$sExtKey = strtolower($aMatches[1]);
+			$aParams['linkage'] = $sExtKey; // Name of the Ext. Key that make this linkage
+		}
+		// Parameters contains a list of extra parameters for the block
+		// the syntax is param_name1:value1;param_name2:value2;...
+		$aParams = array();
+		if (preg_match('/ parameters="(.*)"/U',$sITopTag, $aMatches))
+		{
+			$sParameters = $aMatches[1];
+			$aPairs = explode(';', $sParameters);
+			foreach($aPairs as $sPair)
+			{
+				if (preg_match('/(.*)\:(.*)/',$sPair, $aMatches))
+				{
+					$aParams[trim($aMatches[1])] = trim($aMatches[2]);
+				}
+			}
+		}
+		switch($sEncoding)
+		{
+			case 'text/serialize':
+			$oFilter = CMDBSearchFilter::unserialize($sITopData);
+			break;
+			
+			case 'text/sibusql':
+			$oFilter = CMDBSearchFilter::FromSibusQL($sITopData);
+			break;
+			
+			case 'text/oql':
+			$oFilter = CMDBSearchFilter::FromOQL($sITopData);
+			break;
+		}
+		return new $sBlockClass($oFilter, $sBlockType, $bAsynchronous, $aParams);		
+	}
+	
+	public function Display(web_page $oPage, $sId, $aExtraParams = array())
+	{
+		$aExtraParams = array_merge($aExtraParams, $this->m_aParams);
+		if (!$this->m_bAsynchronous)
+		{
+			// render now
+			$oPage->add("<div id=\"$sId\" class=\"display_block\">\n");
+			$this->RenderContent($oPage, $aExtraParams);
+			$oPage->add("</div>\n");
+		}
+		else
+		{
+			// render it as an Ajax (asynchronous) call
+			$sFilter = $this->m_oFilter->serialize();
+			$oPage->add("<div id=\"$sId\" class=\"display_block loading\">\n");
+			$oPage->p("<img src=\"../images/indicator_arrows.gif\"> Loading...");
+			$oPage->add("</div>\n");
+			$oPage->add('
+			<script language="javascript">
+			$.get("ajax.render.php?filter='.$sFilter.'&style='.$this->m_sStyle.'",
+			   { operation: "ajax" },
+			   function(data){
+				 $("#'.$sId.'").empty();
+				 $("#'.$sId.'").append(data);
+				 $("#'.$sId.'").removeClass("loading");
+				}
+			 );
+			 </script>'); // TO DO: add support for $aExtraParams in asynchronous/Ajax mode
+		}
+	}
+	
+	public function GetDisplay(web_page $oPage, $sId, $aExtraParams = array())
+	{
+		$sHtml = '';
+		$aExtraParams = array_merge($aExtraParams, $this->m_aParams);
+		if (!$this->m_bAsynchronous)
+		{
+			// render now
+			$sHtml .= "<div id=\"$sId\" class=\"display_block\">\n";
+			$sHtml .= $this->GetRenderContent($oPage, $aExtraParams);
+			$sHtml .= "</div>\n";
+		}
+		else
+		{
+			// render it as an Ajax (asynchronous) call
+			$sFilter = $this->m_oFilter->serialize();
+			$sHtml .= "<div id=\"$sId\" class=\"display_block loading\">\n";
+			$sHtml .= $oPage->GetP("<img src=\"../images/indicator_arrows.gif\"> Loading...");
+			$sHtml .= "</div>\n";
+			$sHtml .= '
+			<script language="javascript">
+			$.get("ajax.render.php?filter='.$sFilter.'&style='.$this->m_sStyle.'",
+			   { operation: "ajax" },
+			   function(data){
+				 $("#'.$sId.'").empty();
+				 $("#'.$sId.'").append(data);
+				 $("#'.$sId.'").removeClass("loading");
+				}
+			 );
+			 </script>'; // TO DO: add support for $aExtraParams in asynchronous/Ajax mode
+		}
+		return $sHtml;
+	}
+	
+	public function RenderContent(web_page $oPage, $aExtraParams = array())
+	{
+		$oPage->add($this->GetRenderContent($oPage, $aExtraParams));
+	}
+	
+	public function GetRenderContent(web_page $oPage, $aExtraParams = array())
+	{
+		$sHtml = '';
+		// Add the extra params into the filter if they make sense for such a filter
+		$bDoSearch = utils::ReadParam('dosearch', false);
+		if ($this->m_oSet == null)
+		{
+			$aFilterCodes = array_keys(MetaModel::GetClassFilterDefs($this->m_oFilter->GetClass()));
+			foreach($aFilterCodes as $sFilterCode)
+			{
+				$sExternalFilterValue = utils::ReadParam($sFilterCode, '');
+				if (isset($aExtraParams[$sFilterCode]))
+				{
+					$this->m_oFilter->AddCondition($sFilterCode, $aExtraParams[$sFilterCode]); // Use the default 'loose' operator
+				}
+				else if ($bDoSearch && $sExternalFilterValue != "")
+				{
+					$this->m_oFilter->AddCondition($sFilterCode, $sExternalFilterValue); // Use the default 'loose' operator
+				}
+			}
+			$this->m_oSet = new CMDBObjectSet($this->m_oFilter);
+		}
+		switch($this->m_sStyle)
+		{
+			case 'count':
+			if (isset($aExtraParams['group_by']))
+			{
+				$sGroupByField = $aExtraParams['group_by'];
+				$aGroupBy = array();
+				while($oObj = $this->m_oSet->Fetch())
+				{
+					$sValue = $oObj->Get($sGroupByField);
+					$aGroupBy[$sValue] = isset($aGroupBy[$sValue]) ? $aGroupBy[$sValue]+1 : 1;
+				}
+				$sFilter = urlencode($this->m_oFilter->serialize());
+				$aData = array();
+				foreach($aGroupBy as $sValue => $iCount)
+				{
+					$aData[] = array ( 'group' => $sValue,
+									  'value' => "<a href=\"./UI.php?operation=search&dosearch=1&filter=$sFilter&$sGroupByField=".urlencode($sValue)."\">$iCount</a>"); // TO DO: add the context information
+				}
+				$sHtml .= $oPage->GetTable(array('group' => array('label' => MetaModel::GetLabel($this->m_oFilter->GetClass(), $sGroupByField), 'description' => ''), 'value' => array('label'=>'Count', 'description' => 'Number of elements')), $aData);
+			}
+			else
+			{
+				// Simply count the number of elements in the set
+				$iCount = $oSet->Count();
+				$sHtml .= $oPage->GetP("$iCount objects matching the criteria.");
+			}
+			
+			break;
+			
+			case 'list':
+			$bDashboardMode = isset($aExtraParams['dashboard']) ? ($aExtraParams['dashboard'] == 'true') : false;
+			if ( ($this->m_oSet->Count()> 0) && (UserRights::IsActionAllowed($this->m_oSet->GetClass(), UR_ACTION_READ, $this->m_oSet) == UR_ALLOWED_YES) )
+			{
+				$sLinkage = isset($aExtraParams['linkage']) ? $aExtraParams['linkage'] : '';
+				$sHtml .= cmdbAbstractObject::GetDisplaySet($oPage, $this->m_oSet, $sLinkage, !$bDashboardMode /* bDisplayMenu */);
+			}
+			else
+			{
+				$sHtml .= $oPage->GetP("No object to display.");
+				$sClass = $this->m_oFilter->GetClass();
+				if (!$bDashboardMode)
+				{
+					if (UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $this->m_oSet) == UR_ALLOWED_YES)
+					{
+						$sHtml .= $oPage->GetP("<a href=\"./UI.php?operation=new&class=$sClass\">Click here to create a new ".Metamodel::GetName($sClass)."</a>\n");
+					}
+				}
+			}
+			break;
+			
+			case 'details':
+			if (UserRights::IsActionAllowed($this->m_oSet->GetClass(), UR_ACTION_READ, $this->m_oSet) == UR_ALLOWED_YES)
+			{
+				while($oObj = $this->m_oSet->Fetch())
+				{
+					$sHtml .= $oObj->GetDetails($oPage);
+				}
+			}
+			break;
+			
+			case 'bare_details':
+			if (UserRights::IsActionAllowed($this->m_oSet->GetClass(), UR_ACTION_READ, $this->m_oSet) == UR_ALLOWED_YES)
+			{
+				while($oObj = $this->m_oSet->Fetch())
+				{
+					$sHtml .= $oObj->GetBareDetails($oPage);
+				}
+			}
+			break;
+			
+			case 'csv':
+			if (UserRights::IsActionAllowed($this->m_oSet->GetClass(), UR_ACTION_READ, $this->m_oSet) == UR_ALLOWED_YES)
+			{
+				$sHtml .= "<textarea style=\"width:100%;height:98%\">\n";
+				$sHtml .= cmdbAbstractObject::GetSetAsCSV($this->m_oSet);
+				$sHtml .= "</textarea>\n";
+			}
+			break;
+
+			case 'modify':
+			if (UserRights::IsActionAllowed($this->m_oSet->GetClass(), UR_ACTION_MODIFY, $this->m_oSet) == UR_ALLOWED_YES)
+			{
+				while($oObj = $this->m_oSet->Fetch())
+				{
+					$sHtml .= $oObj->GetModifyForm($oPage);
+				}
+			}
+			break;
+			
+			case 'search':
+			$iSearchSectionId = 1;
+			$sStyle = (isset($aExtraParams['open']) && ($aExtraParams['open'] == 'true')) ? 'SearchDrawer' : 'SearchDrawer DrawerClosed';
+			$sHtml .= "<div id=\"Search_$iSearchSectionId\" class=\"$sStyle\">\n";
+			$sHtml .= "<h1>Search form for ".Metamodel::GetName($this->m_oSet->GetClass())."</h1>\n";
+			$oPage->add_ready_script("\$(\"#LnkSearch_$iSearchSectionId\").click(function() {\$(\"#Search_$iSearchSectionId\").slideToggle('normal'); $(\"#LnkSearch_$iSearchSectionId\").toggleClass('open');});");
+			$sHtml .= cmdbAbstractObject::GetSearchForm($oPage, $this->m_oSet, $aExtraParams);
+	 		$sHtml .= "</div>\n";
+	 		$sHtml .= "<div class=\"HRDrawer\"/></div>\n";
+	 		$sHtml .= "<div id=\"LnkSearch_$iSearchSectionId\" class=\"DrawerHandle\">Search</div>\n";
+			break;
+			
+			case 'pie_chart':
+			$sGroupBy = isset($aExtraParams['group_by']) ? $aExtraParams['group_by'] : '';
+			$sFilter = $this->m_oFilter->ToOQL();
+			$sHtml .= "
+			<OBJECT classid=\"clsid:D27CDB6E-AE6D-11cf-96B8-444553540000\"
+				codebase=\"http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0\" 
+				WIDTH=\"400\" 
+				HEIGHT=\"250\" 
+				id=\"charts\" 
+				ALIGN=\"\">
+			<PARAM NAME=movie VALUE=\"../images/charts.swf?library_path=../images/charts_library&xml_source=".urlencode("../pages/ajax.render.php?operation=pie_chart&group_by=$sGroupBy&encoding=oql&filter=".urlencode($sFilter))."\">
+			<PARAM NAME=\"quality\" VALUE=\"high\">
+			<PARAM NAME=\"bgcolor\" VALUE=\"#ffffff\">
+			
+			<EMBED src=\"../images/charts.swf?library_path=../images/charts_library&xml_source=".urlencode("../pages/ajax.render.php?operation=pie_chart&group_by=$sGroupBy&encoding=oql&filter=".urlencode($sFilter))."\" 
+			       quality=\"high\"
+			       bgcolor=\"#ffffff\"  
+			       WIDTH=\"400\" 
+			       HEIGHT=\"250\" 
+			       NAME=\"charts\" 
+			       ALIGN=\"\" 
+			       swLiveConnect=\"true\" 
+			       TYPE=\"application/x-shockwave-flash\" 
+			       PLUGINSPAGE=\"http://www.macromedia.com/go/getflashplayer\">
+			</EMBED>
+			</OBJECT>
+			";
+			break;
+			
+			case 'pie_chart_ajax':
+			if (isset($aExtraParams['group_by']))
+			{
+				$sGroupByField = $aExtraParams['group_by'];
+				$aGroupBy = array();
+				while($oObj = $this->m_oSet->Fetch())
+				{
+					$sValue = $oObj->Get($sGroupByField);
+					$aGroupBy[$sValue] = isset($aGroupBy[$sValue]) ? $aGroupBy[$sValue]+1 : 1;
+				}
+				$sFilter = urlencode($this->m_oFilter->serialize());
+				$aData = array();
+				$sHtml .= "<chart>\n";
+				$sHtml .= "<chart_type>3d pie</chart_type>\n";
+				$sHtml .= "<chart_data>\n";
+				$sHtml .= "<row>\n";
+				$sHtml .= "<null/>\n";
+				foreach($aGroupBy as $sValue => $void)
+				{
+					$sHtml .= "<string>$sValue</string>\n";
+				}
+				$sHtml .= "</row>\n";
+				$sHtml .= "<row>\n";
+				$sHtml .= "<string></string>\n";
+				foreach($aGroupBy as $void => $iCount)
+				{
+					$sHtml .= "<number>$iCount</number>\n";
+				}
+				$sHtml .= "</row>\n";
+				$sHtml .= "</chart_data>\n";
+				$sHtml .= "
+	<chart_value color='ffffff' alpha='90' font='arial' bold='true' size='10' position='inside' prefix='' suffix='' decimals='0' separator='' as_percentage='true' />
+
+	<draw>
+		<text color='000000' alpha='10' font='arial' rotation='0' bold='true' size='30' x='0' y='140' width='400' height='150' h_align='center' v_align='bottom'>|||||||||||||||||||||||||||||||||||||||||||||||</text>
+	</draw>
+
+	<legend_label layout='horizontal' bullet='circle' font='arial' bold='true' size='13' color='000000' alpha='85' />
+	<legend_rect fill_color='ffffff' fill_alpha='10' line_color='ffffff' line_alpha='50' line_thickness='0' />
+	<series_color>
+		<color>ddaa41</color>
+		<color>88dd11</color>
+		<color>4e62dd</color>
+		<color>ff8811</color>
+		<color>4d4d4d</color>
+		<color>5a4b6e</color>
+		<color>1188ff</color>
+	</series_color>
+				";
+				$sHtml .= "</chart>\n";
+			}
+			else
+			{
+				// Simply count the number of elements in the set
+				$iCount = $oSet->Count();
+				$sHtml .= "<chart>\n</chart>\n";
+			}
+			break;
+			
+			case 'open_flash_chart':
+			static $iChartCounter = 0;
+			$sChartType = isset($aExtraParams['chart_type']) ? $aExtraParams['chart_type'] : 'pie';
+			$sTitle = isset($aExtraParams['chart_title']) ? $aExtraParams['chart_title'] : '';
+			$sGroupBy = isset($aExtraParams['group_by']) ? $aExtraParams['group_by'] : '';
+			$sFilter = $this->m_oFilter->ToOQL();
+			$sHtml .= "<script>
+			swfobject.embedSWF(\"../images/open-flash-chart.swf\", \"my_chart_{$iChartCounter}\", \"400\", \"400\",\"9.0.0\", \"expressInstall.swf\",
+			{\"data-file\":\"".urlencode("../pages/ajax.render.php?operation=open_flash_chart&params[group_by]=$sGroupBy&params[chart_type]=$sChartType&params[chart_title]=$sTitle&encoding=oql&filter=".urlencode($sFilter))."\"});
+</script>\n";
+			$sHtml .= "<div id=\"my_chart_{$iChartCounter}\">Here goes the chart</div>\n";
+			$iChartCounter++;
+			break;
+			
+			case 'open_flash_chart_ajax':
+			include './php-ofc-library/open-flash-chart.php';
+			$sChartType = isset($aExtraParams['chart_type']) ? $aExtraParams['chart_type'] : 'pie';
+
+			$oChart = new open_flash_chart();
+			switch($sChartType)
+			{
+				case 'bars':
+				$oChartElement = new bar_glass();
+
+				if (isset($aExtraParams['group_by']))
+				{
+					$sGroupByField = $aExtraParams['group_by'];
+					$aGroupBy = array();
+					while($oObj = $this->m_oSet->Fetch())
+					{
+						$sValue = $oObj->Get($sGroupByField);
+						$aGroupBy[$sValue] = isset($aGroupBy[$sValue]) ? $aGroupBy[$sValue]+1 : 1;
+					}
+					$sFilter = urlencode($this->m_oFilter->serialize());
+					$aData = array();
+					$aLabels = array();
+					foreach($aGroupBy as $sValue => $iValue)
+					{
+						$aData[] = $iValue;
+						$aLabels[] = $sValue;
+					}
+					$maxValue = max($aData);
+					$oYAxis = new y_axis();
+					$aMagicValues = array(1,2,5,10);
+					$iMultiplier = 1;
+					$index = 0;
+					$iTop = $aMagicValues[$index % count($aMagicValues)]*$iMultiplier;
+					while($maxValue > $iTop)
+					{
+						$index++;
+						$iTop = $aMagicValues[$index % count($aMagicValues)]*$iMultiplier;
+						if (($index % count($aMagicValues)) == 0)
+						{
+							$iMultiplier = $iMultiplier * 10;
+						}
+					}
+					//echo "oYAxis->set_range(0, $iTop, $iMultiplier);\n";
+					$oYAxis->set_range(0, $iTop, $iMultiplier);
+					$oChart->set_y_axis( $oYAxis );
+
+					$oChartElement->set_values( $aData );
+					$oXAxis = new x_axis();
+					$oXLabels = new x_axis_labels();
+					// set them vertical
+					$oXLabels->set_vertical();
+					// set the label text
+					$oXLabels->set_labels($aLabels);
+					// Add the X Axis Labels to the X Axis
+					$oXAxis->set_labels( $oXLabels );
+					$oChart->set_x_axis( $oXAxis );
+				}
+				break;
+				
+				case 'pie':
+				default:
+				$oChartElement = new pie();
+				$oChartElement->set_start_angle( 35 );
+				$oChartElement->set_animate( true );
+				$oChartElement->set_tooltip( '#label# - #val# (#percent#)' );
+				if (isset($aExtraParams['group_by']))
+				{
+					$sGroupByField = $aExtraParams['group_by'];
+					$aGroupBy = array();
+					while($oObj = $this->m_oSet->Fetch())
+					{
+						$sValue = $oObj->Get($sGroupByField);
+						$aGroupBy[$sValue] = isset($aGroupBy[$sValue]) ? $aGroupBy[$sValue]+1 : 1;
+					}
+					$sFilter = urlencode($this->m_oFilter->serialize());
+					$aData = array();
+					foreach($aGroupBy as $sValue => $iValue)
+					{
+						$aData[] = new pie_value($iValue, $sValue);
+					}
+	
+	
+					$oChartElement->set_values( $aData );
+					$oChart->x_axis = null;
+				}
+			}				
+			if (isset($aExtraParams['chart_title'])) //@@ BUG: not passed via ajax !!!
+			{
+				$oTitle = new title( $aExtraParams['chart_title'] );
+				$oChart->set_title( $oTitle );
+			}
+			$oChart->set_bg_colour('#FFFFFF');
+			$oChart->add_element( $oChartElement );
+			
+			$sHtml = $oChart->toPrettyString();
+			break;
+			
+			default:
+			// Unsupported style, do nothing.
+			$sHtml .= "Error: unsupported style of block: ".$this->m_sStyle;
+		}
+		return $sHtml;
+	}
+}
+
+/**
+ * Helper class to manage 'blocks' of HTML pieces that are parts of a page and contain some list of cmdb objects
+ *
+ * Each block is actually rendered as a <div></div> tag that can be rendered synchronously
+ * or as a piece of Javascript/JQuery/Ajax that will get its content from another page (ajax.render.php).
+ * The list of cmdbObjects to be displayed into the block is defined by a filter
+ * Right now the type of display is either: list, count or details
+ * - list produces a table listing the objects
+ * - count produces a paragraphs with a sentence saying 'cont' objects found
+ * - details display (as  table) the details of each object found (best if only one)
+ */
+class HistoryBlock extends DisplayBlock
+{
+	public function GetRenderContent(web_page $oPage, $aExtraParams = array())
+	{
+		$sHtml = '';
+		// Add the extra params into the filter if they make sense for such a filter
+		$aFilterCodes = array_keys(MetaModel::GetClassFilterDefs($this->m_oFilter->GetClass()));
+		foreach($aFilterCodes as $sFilterCode)
+		{
+			if (isset($aExtraParams[$sFilterCode]))
+			{
+				$this->m_oFilter->AddCondition($sFilterCode, $aExtraParams[$sFilterCode]); // Use the default 'loose' operator
+			}
+		}
+		$oSet = new CMDBObjectSet($this->m_oFilter, array('date'=>false));
+		$sHtml .= "<!-- filter: ".($this->m_oFilter->ToOQL())."-->\n";
+		switch($this->m_sStyle)
+		{
+			case 'toggle':
+			$oLatestChangeOp = $oSet->Fetch();
+			if (is_object($oLatestChangeOp))
+			{
+				global $oContext; // User Context.. should be statis instead of global...
+				// There is one change in the list... only when the object has been created !
+				$sDate = $oLatestChangeOp->GetAsHTML('date');
+				$oChange = $oContext->GetObject('CMDBChange', $oLatestChangeOp->Get('change'));
+				$sUserInfo = $oChange->GetAsHTML('userinfo');
+				$oSet->Load(); // Reset the pointer to the beginning of the set: there should be a better way to do this...
+				$sHtml .= $oPage->GetStartCollapsibleSection("Last modified on $sDate by $sUserInfo.");
+				$sHtml .= cmdbAbstractObject::GetDisplaySet($oPage, $oSet);			
+				$sHtml .= $oPage->GetEndCollapsibleSection();
+			}
+			break;
+						
+			default:
+			$sHtml .= parent::GetRenderContent($oPage, $aExtraParams);
+		}
+		return $sHtml;
+	}
+}
+
+class MenuBlock extends DisplayBlock
+{
+	public function GetRenderContent(web_page $oPage, $aExtraParams = array())
+	{
+		$sHtml = '';
+		$oAppContext = new ApplicationContext();
+		$sContext = $oAppContext->GetForLink();
+		$sClass = $this->m_oFilter->GetClass();
+		$oSet = new CMDBObjectSet($this->m_oFilter);
+		$sFilter = $this->m_oFilter->serialize();
+		$aActions = array();
+		$sUIPage = cmdbAbstractObject::ComputeUIPage($sClass);
+		switch($oSet->Count())
+		{
+			case 0:
+			// No object in the set, the only possible action is "new"
+			$bIsModifyAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $oSet);
+			if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'New', 'url' => "../page/$sUIPage?operation=new&class=$sClass&$sContext"); }
+			break;
+			
+			case 1:
+			$oObj = $oSet->Fetch();
+			$id = $oObj->GetKey();
+			$bIsModifyAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $oSet);
+			$bIsDeleteAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_DELETE, $oSet);
+			$bIsBulkModifyAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_BULK_MODIFY, $oSet);
+			$bIsBulkDeleteAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_BULK_DELETE, $oSet);
+			// Just one object in the set, possible actions are "new / clone / modify and delete"
+			if (isset($aExtraParams['linkage']))
+			{
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'New...', 'url' => "#"); }
+				if ($bIsBulkModifyAllowed) { $aActions[] = array ('label' => 'Modify All...', 'url' => "#"); }
+				if ($bIsBulkDeleteAllowed) { $aActions[] = array ('label' => 'Remove All', 'url' => "#"); }
+				if ($bIsModifyAllowed | $bIsDeleteAllowed) { $aActions[] = array ('label' => 'Manage Links...', 'url' => "#"); }
+			}
+			else
+			{
+				$aActions[] = array ('label' => 'eMail', 'url' => "mailto:?subject=".$oSet->GetFilter()->__DescribeHTML()."&body=".urlencode("http://localhost:81/pages/UI.php?operation=search&filter=$sFilter&$sContext"));
+				$aActions[] = array ('label' => 'CSV Export', 'url' => "../pages/$sUIPage?operation=search&filter=$sFilter&format=csv&$sContext");
+				$aActions[] = array ('label' => 'Bookmark...', 'url' => "../pages/ajax.render.php?operation=create&class=$sClass&filter=$sFilter", 'class' => 'jqmTrigger');
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'New...', 'url' => "../pages/$sUIPage?operation=new&class=$sClass&$sContext"); }
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'Clone...', 'url' => "../pages/$sUIPage?operation=clone&class=$sClass&id=$id&$sContext"); }
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'Modify...', 'url' => "../pages/$sUIPage?operation=modify&class=$sClass&id=$id&$sContext"); }
+				if ($bIsDeleteAllowed) { $aActions[] = array ('label' => 'Delete', 'url' => "../pages/$sUIPage?operation=delete&class=$sClass&id=$id&$sContext"); }
+			}
+			$aTransitions = $oObj->EnumTransitions();
+			$aStimuli = Metamodel::EnumStimuli($sClass);
+			foreach($aTransitions as $sStimulusCode => $aTransitionDef)
+			{
+				$iActionAllowed = UserRights::IsStimulusAllowed($sClass, $sStimulusCode, $oSet);
+				switch($iActionAllowed)
+				{
+					case UR_ALLOWED_YES:
+					$aActions[] = array('label' => $aStimuli[$sStimulusCode]->Get('label'), 'url' => "../pages/UI.php?operation=stimulus&stimulus=$sStimulusCode&class=$sClass&id=$id&$sContext");
+					break;
+					
+					case UR_ALLOWED_DEPENDS:
+					$aActions[] = array('label' => $aStimuli[$sStimulusCode]->Get('label').' (*)', 'url' => "../pages/UI.php?operation=stimulus&stimulus=$sStimulusCode&class=$sClass&id=$id&$sContext");
+					break;
+					
+					default:
+					// Do nothing
+				}
+			}
+			//print_r($aTransitions);
+			break;
+			
+			default:
+			// Check rights
+			// New / Modify
+			$bIsModifyAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_MODIFY, $oSet);
+			$bIsBulkModifyAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_BULK_MODIFY, $oSet);
+			$bIsBulkDeleteAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_BULK_DELETE, $oSet);
+			if (isset($aExtraParams['linkage']))
+			{
+				$bIsDeleteAllowed = UserRights::IsActionAllowed($sClass, UR_ACTION_DELETE, $oSet);
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'New...', 'url' => "#"); }
+				if ($bIsBulkModifyAllowed) { $aActions[] = array ('label' => 'Modify All...', 'url' => "#"); }
+				if ($bIsBulkDeleteAllowed) { $aActions[] = array ('label' => 'Remove All', 'url' => "#"); }
+				if ($bIsModifyAllowed | $bIsDeleteAllowed) { $aActions[] = array ('label' => 'Manage Links...', 'url' => "#"); }
+			}
+			else
+			{
+				// many objects in the set, possible actions are: new / modify all / delete all
+				$aActions[] = array ('label' => 'eMail', 'url' => "mailto:?subject=".$oSet->GetFilter()->__DescribeHTML()."&body=".urlencode("http://localhost:81/pages/UI.php?operation=search&filter=$sFilter&$sContext"));
+				$aActions[] = array ('label' => 'CSV Export', 'url' => "../pages/$sUIPage?operation=search&filter=$sFilter&format=csv&$sContext");
+				$aActions[] = array ('label' => 'Bookmark...', 'url' => "../pages/ajax.render.php?operation=create&class=$sClass&filter=$sFilter", 'class' => 'jqmTrigger');
+				if ($bIsModifyAllowed) { $aActions[] = array ('label' => 'New...', 'url' => "../pages/$sUIPage?operation=new&class=$sClass&$sContext"); }
+				if ($bIsBulkModifyAllowed) { $aActions[] = array ('label' => 'Modify All...', 'url' => "../pages/$sUIPage?operation=modify_all&filter=$sFilter&$sContext"); }
+				if ($bIsBulkDeleteAllowed) { $aActions[] = array ('label' => 'Delete All', 'url' => "../pages/$sUIPage?operation=delete_all&filter=$sFilter&$sContext"); }
+			}
+		}
+		$sHtml .= "<div class=\"jd_menu_itop\"><ul class=\"jd_menu jd_menu_itop\">\n<li>Actions\n<ul>\n";
+		foreach ($aActions as $aAction)
+		{
+			$sClass = isset($aAction['class']) ? " class=\"{$aAction['class']}\"" : "";
+			$sHtml .= "<li><a href=\"{$aAction['url']}\"$sClass>{$aAction['label']}</a></li>\n<li>\n";
+		}
+		$sHtml .= "</ul>\n</li>\n</ul></div>\n";
+		$oPage->add_ready_script("$(\"ul.jd_menu\").jdMenu();\n");
+		return $sHtml;
+	}
+	
+}
+?>

tags/0.7.1/application/menunode.class.inc.php

@@ -89,14 +89,17 @@ class menuNode extends DBObject
 		return $this->Get('hyperlink')."?".implode("&", $aParams);
 	}
 
-	public function GetChildNodesSet($sType)
+	public function GetChildNodesSet($sType = null)
 	{
 		$oSearchFilter = new DBObjectSearch("menuNode");
 		$oSearchFilter->AddCondition('parent_id', $this->GetKey(), '=');
-		$oSearchFilter->AddCondition('type', $sType, '=');
-		if ($sType == 'user')
+		if ($sType != null)
 		{
-		    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+			$oSearchFilter->AddCondition('type', $sType, '=');
+			if ($sType == 'user')
+			{
+			    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+			}
 		}
 		$oSet = new CMDBObjectSet($oSearchFilter, array('rank' => true));
 		return $oSet;
@@ -184,10 +187,13 @@ class menuNode extends DBObject
 		{
 			$oSearchFilter = new DbObjectSearch("menuNode");
 			$oSearchFilter->AddCondition('parent_id', 0, '=');
-			$oSearchFilter->AddCondition('type', $sType, '=');
-			if ($sType == 'user')
+			if ($sType != null)
 			{
-			    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+				$oSearchFilter->AddCondition('type', $sType, '=');
+				if ($sType == 'user')
+				{
+				    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+				}
 			}
 			$oRootSet = new CMDBObjectSet($oSearchFilter, array('rank' => true));
 			while($oNode = $oRootSet->Fetch())
@@ -207,10 +213,13 @@ class menuNode extends DBObject
 		$oSearchFilter = new DBObjectSearch("menuNode");
 		$oSearchFilter->AddCondition('parent_id', $this->Get('parent_id'));
 		$oSearchFilter->AddCondition('rank', $this->Get('rank'), '>');
-		$oSearchFilter->AddCondition('type', $sType, '=');
-		if ($sType == 'user')
+		if ($sType != null)
 		{
-		    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+			$oSearchFilter->AddCondition('type', $sType, '=');
+			if ($sType == 'user')
+			{
+			    $oSearchFilter->AddCondition('user_id', UserRights::GetUserId(), '=');
+			}
 		}
 		$oSet = new DBObjectSet($oSearchFilter, array('rank'=> true)); // Order by rank (true means ascending)
 		return $oSet;

tags/0.7.1/application/ui.linkswidget.class.inc.php

@@ -0,0 +1,301 @@
+<?php
+require_once('../application/webpage.class.inc.php');
+require_once('../application/displayblock.class.inc.php');
+
+class UILinksWidget 
+{
+	protected $m_sClass;
+	protected $m_sAttCode;
+	protected $m_iInputId;
+	
+	public function __construct($sClass, $sAttCode, $iInputId)
+	{
+		$this->m_sClass = $sClass;
+		$this->m_sAttCode = $sAttCode;
+		$this->m_iInputId = $iInputId;
+	}
+	
+	public function Display(web_page $oPage, $oCurrentValuesSet = null)
+	{
+		$sHTMLValue = '';
+		$sTargetClass = self::GetTargetClass($this->m_sClass, $this->m_sAttCode);
+	    $aAllowedValues = MetaModel::GetAllowedValues_att($this->m_sClass, $this->m_sAttCode, array(), '');
+		$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $this->m_sAttCode);
+		$sExtKeyToRemote = $oAttDef->GetExtKeyToRemote();
+		$sExtKeyToMe = $oAttDef->GetExtKeyToMe();
+		$sStateAttCode = MetaModel::GetStateAttributeCode($this->m_sClass);
+		$sDefaultState = MetaModel::GetDefaultState($this->m_sClass);
+
+		$sLinkedClass = $oAttDef->GetLinkedClass();
+		foreach(MetaModel::ListAttributeDefs($sLinkedClass) as $sAttCode=>$oAttDef)
+		{
+			if ($sStateAttCode == $sAttCode)
+			{
+				// State attribute is always hidden from the UI
+			}
+			else if (!$oAttDef->IsExternalField() && ($sAttCode != $sExtKeyToMe) && ($sAttCode != $sExtKeyToRemote))
+			{
+				$iFlags = MetaModel::GetAttributeFlags($this->m_sClass, $sDefaultState, $sAttCode);				
+				if ( !($iFlags & OPT_ATT_HIDDEN) && !($iFlags & OPT_ATT_READONLY) )
+				{
+					$aAttributes[] = $sAttCode;
+				}
+			}
+		}
+		$sAttributes = "['".implode("','", $aAttributes)."']";
+		if ($oCurrentValuesSet != null)
+		{
+			// Serialize the link set into a JSon object
+			$aCurrentValues = array();
+			$sRow = '{';
+			while($oLinkObj = $oCurrentValuesSet->Fetch())
+			{
+				foreach($aAttributes as $sLinkAttCode)
+				{
+					$sRow.= "\"$sLinkAttCode\": \"".addslashes($oLinkObj->Get($sLinkAttCode))."\", ";
+				}
+				$sRow .= "\"$sExtKeyToRemote\": ".$oLinkObj->Get($sExtKeyToRemote).'}';
+				$aCurrentValues[] = $sRow;
+			}
+			$sJSON = '['.implode(',', $aCurrentValues).']';
+		}
+
+		// Many values (or even a unknown list) display an autocomplete
+		if ( (count($aAllowedValues) == 0) || (count($aAllowedValues) > 50) )
+		{
+			// too many choices, use an autocomplete
+			// The input for the auto complete
+			$sTitle = $oAttDef->GetDescription();
+			$sHTMLValue .= "<script>\n";
+			$sHTMLValue .= "oLinkWidget{$this->m_iInputId} = new LinksWidget('{$this->m_iInputId}', '$sLinkedClass', '$sExtKeyToMe', '$sExtKeyToRemote', $sAttributes);\n";
+			$sHTMLValue .= "</script>\n";
+			$sHTMLValue .= $this->GetObjectPickerDialog($oPage, $sTargetClass, 'oLinkWidget'.$this->m_iInputId.'.OnOk');
+			$sHTMLValue .= $this->GetLinkObjectDialog($oPage, $this->m_iInputId);
+			$sHTMLValue .= "<input type=\"text\" id=\"ac_{$this->m_iInputId}\" size=\"35\" name=\"\" value=\"\" style=\"border: 1px solid red;\" />";
+			$sHTMLValue .= "<input type=\"button\" value=\" Add... \"  class=\"action\" onClick=\"oLinkWidget{$this->m_iInputId}.AddObject();\"/>";
+			$sHTMLValue .= "&nbsp;<input type=\"button\" value=\"Browse...\"  class=\"action\" onClick=\"return ManageObjects('$sTitle', '$sTargetClass', '$this->m_iInputId', '$sExtKeyToRemote');\"/>";
+			// another hidden input to store & pass the object's Id
+			$sHTMLValue .= "<input type=\"hidden\" id=\"id_ac_{$this->m_iInputId}\"/>\n";
+			$sHTMLValue .= "<input type=\"hidden\" id=\"{$this->m_iInputId}\" name=\"attr_{$this->m_sAttCode}\" value=\"\"/>\n";
+			$oPage->add_ready_script("\$('#{$this->m_iInputId}').val('$sJSON');\n\$('#ac_{$this->m_iInputId}').autocomplete('./ajax.render.php', { minChars:3, onItemSelect:selectItem, onFindValue:findValue, formatItem:formatItem, autoFill:true, keyHolder:'#id_ac_{$this->m_iInputId}', extraParams:{operation:'ui.linkswidget', sclass:'{$this->m_sClass}', attCode:'{$this->m_sAttCode}', max:30}});");
+		}
+		else
+		{
+			// Few choices, use a normal 'select'
+			$sHTMLValue = "<select name=\"attr_{$this->m_sAttCode}\"  id=\"{$this->m_iInputId}\">\n";
+			
+			foreach($aAllowedValues as $key => $value)
+			{
+				$sHTMLValue .= "<option value=\"$key\"$sSelected>$value</option>\n";
+			}
+			$sHTMLValue .= "</select>\n";
+		}
+		$sHTMLValue .= "<div id=\"{$this->m_iInputId}_values\">\n";
+		if ($oCurrentValuesSet != null)
+		{
+		 	// transform the DBObjectSet into a CMDBObjectSet !!!
+			$aLinkedObjects = $oCurrentValuesSet->ToArray(false);
+			if (count($aLinkedObjects) > 0)
+			{
+				$oSet = CMDBObjectSet::FromArray($sLinkedClass, $aLinkedObjects);
+				$oDisplayBlock = DisplayBlock::FromObjectSet($oSet, 'list');
+				$sHTMLValue .= $oDisplayBlock->GetDisplay($oPage, $this->m_iInputId.'_current', array('linkage' => $sExtKeyToMe));
+			}
+		}
+		$sHTMLValue .= "</div>\n";
+		return $sHTMLValue;
+	}
+	/**
+	 * This static function is called by the Ajax Page when there is a need to fill an autocomplete combo
+	 * @param $oPage web_page The ajax page used for the put^put (sent back to the browser
+	 * @param $oContext UserContext The context of the user (for limiting the search)
+	 * @param $sClass string The name of the class of the current object being edited
+	 * @param $sAttCode string The name of the attribute being edited
+	 * @param $sName string The partial name that was typed by the user
+	 * @param $iMaxCount integer The maximum number of items to return
+	 * @return void
+	 */	 	 	  	 	 	 	
+	static public function Autocomplete(web_page $oPage, UserContext $oContext, $sClass, $sAttCode, $sName, $iMaxCount)
+	{
+		$aAllowedValues = MetaModel::GetAllowedValues_att($sClass, $sAttCode, array() /* $aArgs */, $sName);
+		if ($aAllowedValues != null)
+		{
+			$iCount = $iMaxCount;
+			foreach($aAllowedValues as $key => $value)
+			{
+				$oPage->add($value."|".$key."\n");
+				$iCount--;
+				if ($iCount == 0) break;
+			}
+		}
+		else // No limitation to the allowed values
+		{
+			// Search for all the object of the linked class
+			$oAttDef = 	$oAttDef = MetaModel::GetAttributeDef($sClass, $sAttCode);
+			$sLinkedClass = $oAttDef->GetLinkedClass();
+			$sSearchClass = self::GetTargetClass($sClass, $sAttCode);
+			$oFilter = $oContext->NewFilter($sSearchClass);
+			$sSearchAttCode = MetaModel::GetNameAttributeCode($sSearchClass);
+			$oFilter->AddCondition($sSearchAttCode, $sName, 'Begins with');
+			$oSet = new CMDBObjectSet($oFilter, array($sSearchAttCode => true));
+			$iCount = 0;
+			while( ($iCount < $iMaxCount) && ($oObj = $oSet->fetch()) )
+			{
+				$oPage->add($oObj->GetName()."|".$oObj->GetKey()."\n");
+				$iCount++;
+			}
+		}
+	}
+
+	/**
+	 * This static function is called by the Ajax Page display a set of objects being linked
+	 * to the object being created	 
+	 * @param $oPage web_page The ajax page used for the put^put (sent back to the browser
+	 * @param $sClass string The name of the class 'linking class' which is the class of the objects to display
+	 * @param $sAttCode string The name of the attribute is the main object being created
+	 * @param $sSet JSON serialized set of objects
+	 * @return void
+	 */	 	 	  	 	 	 	
+	static public function RenderSet($oPage, $sClass, $sJSONSet, $sExtKeyToMe)
+	{
+		$aSet = json_decode($sJSONSet, true); // true means hash array instead of object
+		$oSet = CMDBObjectSet::FromScratch($sClass);
+		foreach($aSet as $aObject)
+		{
+			$oObj = MetaModel::NewObject($sClass);
+			foreach($aObject as $sAttCode => $value)
+			{
+				$oAttDef = MetaModel::GetAttributeDef($sClass, $sAttCode);
+				if ($oAttDef->IsExternalKey())
+				{
+					$oTargetObj = MetaModel::GetObject($oAttDef->GetTargetClass(), $value); // @@ optimization, don't do & query per object in the set !
+					$oObj->Set($sAttCode, $oTargetObj);
+				}
+				else
+				{
+					$oObj->Set($sAttCode, $value);
+				}
+
+			}
+			$oSet->AddObject($oObj);
+		}
+		cmdbAbstractObject::DisplaySet($oPage, $oSet, $sExtKeyToMe);
+	}
+
+	
+	protected static function GetTargetClass($sClass, $sAttCode)
+	{
+		$oAttDef = MetaModel::GetAttributeDef($sClass, $sAttCode);
+		$sLinkedClass = $oAttDef->GetLinkedClass();
+		switch(get_class($oAttDef))
+		{
+			case 'AttributeLinkedSetIndirect':
+			$oLinkingAttDef = 	MetaModel::GetAttributeDef($sLinkedClass, $oAttDef->GetExtKeyToRemote());
+			$sTargetClass = $oLinkingAttDef->GetTargetClass();
+			break;
+
+			case 'AttributeLinkedSet':
+			$sTargetClass = $sLinkedClass;
+			break;
+		}
+		
+		return $sTargetClass;
+	}
+	
+	protected function GetObjectPickerDialog($oPage, $sTargetClass, $sOkFunction)
+	{
+		$sHTML = <<< EOF
+		<div class="jqmWindow" id="ManageObjectsDlg_{$this->m_iInputId}">
+		<div class="page_header"><h1 id="Manage_DlgTitle_{$this->m_iInputId}">Selected Objects</h1></div>
+		<table width="100%">
+			<tr>
+				<td>
+					<p>Selected objects:</p>
+					<button type="button" class="action" onClick="FilterLeft('$sTargetClass');"><span> Filter... </span></button>
+					<p><select id="selected_objects_{$this->m_iInputId}" size="10" multiple onChange="Manage_UpdateButtons('$this->m_iInputId')" style="width:300px;">
+					</select></p>
+				</td>
+				<td style="text-align:center; valign:middle;">
+					<p><button type="button" id="btn_add_objects_{$this->m_iInputId}" onClick="Manage_AddObjects('$this->m_iInputId');"> &lt;&lt; Add </button></p>
+					<p><button type="button" id="btn_remove_objects_{$this->m_iInputId}" onClick="Manage_RemoveObjects('$this->m_iInputId');"> Remove &gt;&gt; </button></p>
+				</td>
+				<td>
+					<p>Available objects:</p>
+					<button type="button" class="action" onClick="FilterRight('$sTargetClass');"><span> Filter... </span></button>
+					<p><select id="available_objects_{$this->m_iInputId}" size="10" multiple onChange="Manage_UpdateButtons('$this->m_iInputId')" style="width:300px;">
+					</select></p>
+				</td>
+			</tr>
+			<tr>
+				<td colspan="3">
+				<button type="button" class="jqmClose" onClick="$('#ManageObjectsDlg_{$this->m_iInputId}').jqmHide(); $sOkFunction('$sTargetClass', 'selected_objects')"> Ok </button>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<button type="button" class="jqmClose"> Cancel</button>
+				</td>
+			</tr>
+		</table>
+		</div>
+EOF;
+		$oPage->add_ready_script("$('#ManageObjectsDlg_$this->m_iInputId').jqm({overlay:70, modal:true, toTop:true});"); // jqModal Window
+		//$oPage->add_ready_script("UpdateObjectList('$sClass');");
+		return $sHTML;
+	}
+	
+	protected function GetLinkObjectDialog($oPage, $sId)
+	{
+		$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $this->m_sAttCode);
+		$sLinkedClass = $oAttDef->GetLinkedClass();
+		$sStateAttCode = MetaModel::GetStateAttributeCode($sLinkedClass);
+		$sDefaultState = MetaModel::GetDefaultState($sLinkedClass);
+		$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $this->m_sAttCode);
+		$sExtKeyToMe = $oAttDef->GetExtKeyToMe();
+		$sExtKeyToRemote = $oAttDef->GetExtKeyToRemote();
+		
+		$sHTML = "<div class=\"jqmWindow\" id=\"LinkDlg_$sId\">\n";
+		$sHTML .= "<div class=\"page_header\"><h1 id=\"LinkObject_DlgTitle\">$sLinkedClass attributes</h1></div>\n";
+		$sHTML .= "<form>\n";
+		$index = 0;
+		$aAttrsMap = array();
+		foreach(MetaModel::ListAttributeDefs($sLinkedClass) as $sAttCode=>$oAttDef)
+		{
+			if ($sStateAttCode == $sAttCode)
+			{
+				// State attribute is always hidden from the UI
+				//$sHTMLValue = $this->GetState();
+				//$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+			}
+			else if (!$oAttDef->IsExternalField() && ($sAttCode != $sExtKeyToMe) && ($sAttCode != $sExtKeyToRemote))
+			{
+				$iFlags = MetaModel::GetAttributeFlags($sLinkedClass, $sDefaultState, $sAttCode);				
+				if ($iFlags & OPT_ATT_HIDDEN)
+				{
+					// Attribute is hidden, do nothing
+				}
+				else
+				{
+					if ($iFlags & OPT_ATT_READONLY)
+					{
+						// Attribute is read-only
+						$sHTMLValue = $this->GetAsHTML($sAttCode);
+					}
+					else
+					{
+						$sValue = ""; //$this->Get($sAttCode);
+						$sDisplayValue = ""; //$this->GetDisplayValue($sAttCode);
+						$sSubId = $sId.'_'.$index;
+						$aAttrsMap[$sAttCode] = $sSubId;
+						$index++;
+						$sHTMLValue = cmdbAbstractObject::GetFormElementForField($oPage, $sLinkedClass, $sAttCode, $oAttDef, $sValue, $sDisplayValue, $sSubId);
+					}
+					$aDetails[] = array('label' => $oAttDef->GetLabel(), 'value' => $sHTMLValue);
+				}
+			}
+		}
+		$sHTML .= $oPage->GetDetails($aDetails);
+		$sHTML .= "<button type=\"button\" class=\"jqmClose\" onClick=\"oLinkWidget$sId.OnLinkOk()\"> Ok </button>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<button type=\"button\" class=\"jqmClose\"  onClick=\"LinkWidget$sId.OnLinkCancel()\"> Cancel</button>\n";
+		$sHTML .= "</form>\n";
+		$sHTML .= "</div>\n";
+		$oPage->add_ready_script("$('#LinkDlg_$sId').jqm({overlay:70, modal:true, toTop:true});"); // jqModal Window
+		//$oPage->add_ready_script("UpdateObjectList('$sClass');");
+		return $sHTML;
+	}
+}
+?>

tags/0.7.1/application/uiwizard.class.inc.php

@@ -0,0 +1,260 @@
+<?php
+class UIWizard
+{
+	protected $m_oPage;
+	protected $m_sClass;
+	protected $m_sTargetState;
+	protected $m_aWizardSteps;
+	
+	public function __construct($oPage, $sClass, $sTargetState = '')
+	{
+		$this->m_oPage = $oPage;
+		$this->m_sClass = $sClass;
+		if (empty($sTargetState))
+		{
+			$sTargetState = MetaModel::GetDefaultState($sClass);
+		}
+		$this->m_sTargetState = $sTargetState;
+		$this->m_aWizardSteps = $this->ComputeWizardStructure();
+	}
+	
+	public function GetObjectClass() { return $this->m_sClass; }
+	public function GetTargetState() { return $this->m_sTargetState; }
+	public function GetWizardStructure() { return $this->m_aWizardSteps; }
+	
+	/**
+	 * Displays one step of the wizard
+	 */	 
+	public function DisplayWizardStep($aStep, $iStepIndex, &$iMaxInputId, &$aFieldsMap, $bFinishEnabled = false)
+	{
+		$this->m_oPage->add("<div class=\"wizContainer\" id=\"wizStep$iStepIndex\" style=\"display:none;\">\n");
+		$this->m_oPage->add("<a name=\"step$iStepIndex\" />\n");
+		$aStates = MetaModel::EnumStates($this->m_sClass);
+		$aDetails = array();
+		$sJSHandlerCode = ''; // Javascript code to be executed each time this step of the wizard is entered
+		foreach($aStep as $sAttCode)
+		{
+			if ($sAttCode != 'finalclass') // Do not displa the attribute that stores the actual class name
+			{
+				$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $sAttCode);
+				$sAttLabel = $oAttDef->GetLabel();
+				$iOptions = isset($aStates[$this->m_sTargetState]['attribute_list'][$sAttCode]) ? $aStates[$this->m_sTargetState]['attribute_list'][$sAttCode] : 0;
+		
+				$aPrerequisites = $oAttDef->GetPrerequisiteAttributes();
+				if ($iOptions & (OPT_ATT_MANDATORY | OPT_ATT_MUSTCHANGE | OPT_ATT_MUSTPROMPT))
+				{
+					$aFields[$sAttCode] = array();
+					foreach($aPrerequisites as $sCode)
+					{
+						$aFields[$sAttCode][$sCode] = '';
+					}
+				}
+				if (count($aPrerequisites) > 0)
+				{
+					$aOptions[] = 'Prerequisites: '.implode(', ', $aPrerequisites);
+				}
+				
+				$sFieldFlag = ($iOptions & (OPT_ATT_MANDATORY | OPT_ATT_MUSTCHANGE)) ? ' <span class="hilite">*</span>' : '';
+				$oDefaultValuesSet = $oAttDef->GetDefaultValue(); // @@@ TO DO: get the object's current value if the object exists
+				$sHTMLValue = cmdbAbstractObject::GetFormElementForField($this->m_oPage, $this->m_sClass, $sAttCode, $oAttDef, $oDefaultValuesSet, '', "att_$iMaxInputId");
+				$aFieldsMap[$iMaxInputId] = $sAttCode;
+				$aDetails[] = array('label' => $oAttDef->GetLabel().$sFieldFlag, 'value' => "<div id=\"field_$iMaxInputId\">$sHTMLValue</div>");
+				if ($oAttDef->GetValuesDef() != null)
+				{
+					$sJSHandlerCode .= "\toWizardHelper.RequestAllowedValues('$sAttCode');\n";
+				}
+				if ($oAttDef->GetDefaultValue() != null)
+				{
+					$sJSHandlerCode .= "\toWizardHelper.RequestDefaultValue('$sAttCode');\n";
+				}
+				if ($oAttDef->IsLinkSet())
+				{
+					$sJSHandlerCode .= "\toLinkWidgetatt_$iMaxInputId.Init();";
+				}
+				$iMaxInputId++;
+			}
+		}
+		//$aDetails[] = array('label' => '', 'value' => '<input type="button" value="Next &gt;&gt;">');
+		$this->m_oPage->details($aDetails);
+		$sBackButtonDisabled = ($iStepIndex <= 1) ? 'disabled' : '';
+		$sDisabled = $bFinishEnabled ? '' : 'disabled';
+		$nbSteps = count($this->m_aWizardSteps['mandatory']) + count($this->m_aWizardSteps['optional']);
+		$this->m_oPage->add("<div style=\"text-align:center\">
+		<input type=\"button\" value=\"&lt;&lt; Back \" $sBackButtonDisabled onClick=\"GoToStep($iStepIndex, $iStepIndex - 1)\">
+		<input type=\"button\" value=\" Next &gt;&gt;\" onClick=\"GoToStep($iStepIndex, 1+$iStepIndex)\">
+		<input type=\"button\" value=\" Finish \" $sDisabled onClick=\"GoToStep($iStepIndex, 1+$nbSteps)\">
+		</div>\n");
+		$this->m_oPage->add("
+<script>
+function OnEnterStep{$iStepIndex}()
+{
+	oWizardHelper.ResetQuery();
+	
+$sJSHandlerCode
+
+	oWizardHelper.AjaxQueryServer();
+}
+</script>\n");
+		$this->m_oPage->add("</div>\n\n");
+	}	
+
+	/**
+	 * Display the final step of the wizard: a confirmation screen
+	 */	 	
+	public function DisplayFinalStep($iStepIndex, $aFieldsMap)
+	{
+		$this->m_oPage->add("<div class=\"wizContainer\" id=\"wizStep$iStepIndex\" style=\"display:none;\">\n");
+		$this->m_oPage->add("<a name=\"step$iStepIndex\" />\n");
+		$this->m_oPage->P("Final step: confirmation");
+		$this->m_oPage->add("<form method=\"post\" action=\"../pages/UI.php\">\n");
+		$this->m_oPage->add("<input type=\"hidden\" name=\"operation\" value=\"wizard_apply_new\">\n");
+		$this->m_oPage->add("<input type=\"hidden\" name=\"transaction_id\" value=\"".utils::GetNewTransactionId()."\">\n");
+		$this->m_oPage->add("<input type=\"hidden\" id=\"wizard_json_obj\" name=\"json_obj\" value=\"\">\n");
+		$this->m_oPage->add("<script>\n");
+		$this->m_oPage->add("function OnEnterStep$iStepIndex() {\n");
+		foreach($aFieldsMap as $iInputId => $sAttCode)
+		{
+			$this->m_oPage->add("\toWizardHelper.UpdateCurrentValue('$sAttCode');\n");		
+		}
+		$this->m_oPage->add("\toWizardHelper.Preview('object_preview');\n");		
+		$this->m_oPage->add("\t$('#wizard_json_obj').val(oWizardHelper.ToJSON());\n");		
+		$this->m_oPage->add("}\n");
+		$this->m_oPage->add("</script>\n");
+		$this->m_oPage->add("<div id=\"object_preview\">\n");
+		$this->m_oPage->add("</div>\n");
+		$this->m_oPage->add("<input type=\"submit\" value=\"Create {$this->m_sClass}\">\n");
+		$this->m_oPage->add("</form>\n");
+		$this->m_oPage->add("</div>\n");
+	}	
+	/**
+	 * Compute the order of the fields & pages in the wizard
+	 * @param $oPage iTopWebPage The current page (used to display error messages) 
+	 * @param $sClass string Name of the class
+	 * @param $sStateCode string Code of the target state of the object
+	 * @return hash Two dimensional array: each element represents the list of fields for a given page   
+	 */
+	protected function ComputeWizardStructure()
+	{
+		$aWizardSteps = array( 'mandatory' => array(), 'optional' => array());
+		$aFieldsDone = array(); // Store all the fields that are already covered by a previous step of the wizard
+	
+		$aStates = MetaModel::EnumStates($this->m_sClass);
+		
+		if ( (!empty($this->m_sTargetState)) && (count($aStates[$this->m_sTargetState]['attribute_list']) > 0) )
+		{
+			// Check all the fields that *must* be included in the wizard for this
+			// particular target state
+			$aFields = array();
+			foreach($aStates[$this->m_sTargetState]['attribute_list'] as $sAttCode => $iOptions)
+			{
+				$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $sAttCode);
+				$sAttLabel = $oAttDef->GetLabel();
+		
+				if ($iOptions & (OPT_ATT_MANDATORY | OPT_ATT_MUSTCHANGE | OPT_ATT_MUSTPROMPT))
+				{
+					$aPrerequisites = $oAttDef->GetPrerequisiteAttributes();
+					$aFields[$sAttCode] = array();
+					foreach($aPrerequisites as $sCode)
+					{
+						$aFields[$sAttCode][$sCode] = '';
+					}
+				}
+			}
+			
+			// Now use the dependencies between the fields to order them
+			while(count($aFields) > 0)
+			{
+				$aCurrentStep = array();
+				foreach($aFields as $sAttCode => $aDependencies)
+				{
+					// All fields with no remaining dependencies can be entered at this
+					// step of the wizard
+					if (count($aDependencies) == 0)
+					{
+						$aCurrentStep[] = $sAttCode;
+						$aFieldsDone[$sAttCode] = '';
+						unset($aFields[$sAttCode]);
+						// Remove this field from the dependencies of the other fields
+						foreach($aFields as $sUpdatedCode => $aDummy)
+						{
+							// remove the dependency
+							unset($aFields[$sUpdatedCode][$sAttCode]);
+						}
+					}
+				}
+				if (count($aCurrentStep) == 0)
+				{
+					// This step of the wizard would contain NO field !
+					echo "<strong>Error:</strong> Circular reference in the dependencies between the fields.";
+					print_r($aFields);
+					break;
+				}
+				$aWizardSteps['mandatory'][] = $aCurrentStep;
+			}
+		}
+
+		// Now computes the steps to fill the optional fields
+		$sStateAttCode = MetaModel::GetStateAttributeCode($this->m_sClass);
+		$aFields = array(); // reset
+		foreach(MetaModel::ListAttributeDefs($this->m_sClass) as $sAttCode=>$oAttDef)
+		{
+			$iOptions = (isset($aStates[$this->m_sTargetState]['attribute_list'][$sAttCode])) ? $aStates[$this->m_sTargetState]['attribute_list'][$sAttCode] : 0;				
+			if ( ($sStateAttCode != $sAttCode) &&
+				 (!$oAttDef->IsExternalField()) &&
+				 (($iOptions & (OPT_ATT_HIDDEN | OPT_ATT_READONLY)) == 0) &&
+				 (!isset($aFieldsDone[$sAttCode])) )
+				 
+			{
+				// 'State', external fields, read-only and hidden fields
+				// and fields that are already listed in the wizard
+				// are removed from the 'optional' part of the wizard
+				$oAttDef = MetaModel::GetAttributeDef($this->m_sClass, $sAttCode);
+				$aPrerequisites = $oAttDef->GetPrerequisiteAttributes();
+				$aFields[$sAttCode] = array();
+				foreach($aPrerequisites as $sCode)
+				{
+					if (!isset($aFieldsDone[$sCode]))
+					{
+						// retain only the dependencies that were not covered
+						// in the 'mandatory' part of the wizard
+						$aFields[$sAttCode][$sCode] = '';
+					}
+				}
+			}
+		}
+		// Now use the dependencies between the fields to order them
+		while(count($aFields) > 0)
+		{
+			$aCurrentStep = array();
+			foreach($aFields as $sAttCode => $aDependencies)
+			{
+				// All fields with no remaining dependencies can be entered at this
+				// step of the wizard
+				if (count($aDependencies) == 0)
+				{
+					$aCurrentStep[] = $sAttCode;
+					$aFieldsDone[$sAttCode] = '';
+					unset($aFields[$sAttCode]);
+					// Remove this field from the dependencies of the other fields
+					foreach($aFields as $sUpdatedCode => $aDummy)
+					{
+						// remove the dependency
+						unset($aFields[$sUpdatedCode][$sAttCode]);
+					}
+				}
+			}
+			if (count($aCurrentStep) == 0)
+			{
+				// This step of the wizard would contain NO field !
+				$oPage->add("<strong>Error:</strong> Circular reference in the dependencies between the fields.");
+				print_r($aFields);
+				break;
+			}
+			$aWizardSteps['optional'][] = $aCurrentStep;
+		}
+		
+		return $aWizardSteps;
+	
+	} 
+}
+?>

tags/0.7.1/business/templates/Circuits.html

@@ -0,0 +1,12 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/WanLinks.jpg" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Interfaces">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizInterface: PKEY IS interface_id IN (bizCircuit: pkey = $pkey$)</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/application.html

@@ -0,0 +1,19 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/software.jpg" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizApplication: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Impacted_Client_Application">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkClientServer: server_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Application_Server">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkClientServer: client_id = $pkey$</itopblock>
+	</itoptab>
+ 	<itoptab name="Contracts">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraContract: infra_id = $pkey$</itopblock>
+	</itoptab>
+
+</itoptabs>

tags/0.7.1/business/templates/change.html

@@ -0,0 +1,17 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/imageChange.gif" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Impacted_Infrastructure">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraChangeTicket: ticket_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contacts_to_Notify">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactChange: change_id = $pkey$</itopblock>
+	</itoptab>
+
+</itoptabs>
+<br style="clear:both"/>

tags/0.7.1/business/templates/contract.html

@@ -0,0 +1,18 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/erwanContracts.jpg" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizContract: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Covered_Infrastructures">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraContract: contract_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contact">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactContract: contract_id = $pkey$</itopblock>
+	</itoptab>	
+	<itoptab name="Document">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkDocumentContract: contract_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/default.html

@@ -0,0 +1,8 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/tar.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+

tags/0.7.1/business/templates/document.html

@@ -0,0 +1,13 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/folder_documents.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Version">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizDocVersion: document = $pkey$</itopblock>
+	</itoptab>
+
+</itoptabs>

tags/0.7.1/business/templates/group.html

@@ -0,0 +1,16 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/tar.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizInfraGroup: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Infrastructures">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraGrouping: infra_group_id = $pkey$</itopblock>
+	</itoptab>
+		<itoptab name="Contacts">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+	
+</itoptabs>

tags/0.7.1/business/templates/interface.html

@@ -0,0 +1,14 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/tar.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizInterface: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Linked_interfaces">
+		<itopblock blockclass="DisplayBlock" type="list" linkage="interface1_id" encoding="text/sibusql">lnkInterfaces: interface1_id = $pkey$</itopblock>
+		<itopblock blockclass="DisplayBlock" type="list" linkage="interface2_id" encoding="text/sibusql">lnkInterfaces: interface2_id = $pkey$</itopblock>
+	</itoptab>
+	
+</itoptabs>

tags/0.7.1/business/templates/knownError.html

@@ -0,0 +1,11 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizKnownError: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Related_infra">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraError: error_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/location.html

@@ -0,0 +1,25 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/starthere.png" style="margin-top:-20px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizLocation: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Contacts">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizContact: location_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Servers">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizServer: location_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="PCs">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizPC: location_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Network_Devices">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizNetworkDevice: location_id = $pkey$</itopblock>
+	</itoptab>
+
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkDocumentRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/network.device.html

@@ -0,0 +1,25 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/connect_to_network.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizNetworkDevice: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Interfaces">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizInterface: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contacts">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Incidents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizIncidentTicket: PKEY IS ticket_id IN (lnkInfraTicket: infra_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Changes">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizChangeTicket: PKEY IS ticket_id IN (lnkInfraChangeTicket: infra_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkDocumentRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>
+

tags/0.7.1/business/templates/pc.html

@@ -0,0 +1,27 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/laptop_pcmcia.png" style="margin-top:-20px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizPC: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Installed_Application">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizApplication: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Installed_Patches">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizPatch: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contacts">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Interfaces">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizInterface: device_id = $pkey$</itopblock>
+	</itoptab>
+		<itoptab name="Incidents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizIncidentTicket: PKEY IS ticket_id IN (lnkInfraTicket: infra_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizDocument: PKEY IS doc_id IN (lnkDocumentRealObject: object_id = $pkey$)</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/person.html

@@ -0,0 +1,18 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/users2-big.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizPerson: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Teams">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Infrastructure">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactRealObject: contact_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkDocumentRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/server.html

@@ -0,0 +1,30 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/network-server.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizServer: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Applications">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizApplication: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Patches">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizPatch: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Interfaces">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizInterface: device_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contacts">
+		<itopblock blockclass="DisplayBlock" type="list" linkage="object_id" encoding="text/sibusql">lnkContactRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+		<itoptab name="Incidents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizIncidentTicket: PKEY IS ticket_id IN (lnkInfraTicket: infra_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Changes">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizChangeTicket: PKEY IS ticket_id IN (lnkInfraChangeTicket: infra_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkDocumentRealObject: object_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/service.html

@@ -0,0 +1,13 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/kservices-big.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Contracts">
+		<itopblock blockclass="DisplayBlock" asynchronous="true" type="list" encoding="text/sibusql">bizContract: service_id = $pkey$</itopblock>
+	</itoptab>
+</itoptabs>
+

tags/0.7.1/business/templates/software.html

@@ -0,0 +1,13 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/software.jpg" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">bizSoftware: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Installed_Instances">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizApplication: soft_id = $pkey$</itopblock>
+	</itoptab>
+
+</itoptabs>

tags/0.7.1/business/templates/team.html

@@ -0,0 +1,21 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/users2-big.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Members">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizContact: PKEY IS object_id IN (lnkContactRealObject: contact_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Teams">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizTeam: PKEY IS object_id IN (lnkContactRealObject: contact_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Infrastructure">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">logInfra: PKEY IS object_id IN (lnkContactRealObject: contact_id = $pkey$)</itopblock>
+	</itoptab>
+	<itoptab name="Documents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">bizDocument: PKEY IS doc_id IN (lnkDocumentRealObject: object_id = $pkey$)</itopblock>
+	</itoptab>
+</itoptabs>

tags/0.7.1/business/templates/ticket.html

@@ -0,0 +1,21 @@
+<div class="page_header">
+	<itopblock blockclass="MenuBlock" type="popup" encoding="text/sibusql" label="Actions">$class$: pkey = $pkey$</itopblock>
+	<h1>$class_name$: <span class="hilite">$name$</span></h1>
+	<itopblock blockclass="HistoryBlock" type="toggle" encoding="text/oql">SELECT CMDBChangeOpSetAttribute WHERE objkey = $pkey$ AND objclass = '$class$'</itopblock>
+</div>
+<img src="../images/messagebox_warning.png" style="margin-top:-10px; margin-right:10px; float:right">
+<itopblock blockclass="DisplayBlock" asynchronous="true" type="bare_details" encoding="text/sibusql">$class$: pkey = $pkey$</itopblock>
+<itoptabs>
+	<itoptab name="Impacted_Infrastructure">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkInfraTicket: ticket_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Related_Incidents">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkRelatedTicket: ticket_id = $pkey$</itopblock>
+	</itoptab>
+	<itoptab name="Contacts_to_Notify">
+		<itopblock blockclass="DisplayBlock" type="list" encoding="text/sibusql">lnkContactTicket: ticket_id = $pkey$</itopblock>
+	</itoptab>
+
+
+</itoptabs>
+<br style="clear:both"/>

tags/0.7.1/core/cmdbobject.class.inc.php

@@ -0,0 +1,428 @@
+<?php
+
+/**
+ * cmdbObjectClass
+ * the file to include, then the core is yours
+ *
+ * @package     iTopORM
+ * @author      Romain Quetiez <romainquetiez@yahoo.fr>
+ * @author      Denis Flaven <denisflave@free.fr>
+ * @license     http://www.opensource.org/licenses/lgpl-license.php LGPL
+ * @link        www.itop.com
+ * @since       1.0
+ * @version     1.1.1.1 $
+ */
+
+require_once('coreexception.class.inc.php');
+
+require_once('config.class.inc.php');
+
+require_once('attributedef.class.inc.php');
+require_once('filterdef.class.inc.php');
+require_once('stimulus.class.inc.php');
+require_once('valuesetdef.class.inc.php');
+require_once('MyHelpers.class.inc.php');
+
+require_once('expression.class.inc.php');
+
+require_once('cmdbsource.class.inc.php');
+require_once('sqlquery.class.inc.php');
+require_once('oql/oqlquery.class.inc.php');
+require_once('oql/oqlexception.class.inc.php');
+require_once('oql/oql-parser.php');
+require_once('oql/oql-lexer.php');
+require_once('oql/oqlinterpreter.class.inc.php');
+
+require_once('dbobject.class.php');
+require_once('dbobjectsearch.class.php');
+require_once('dbobjectset.class.php');
+
+require_once('cmdbchange.class.inc.php');
+require_once('cmdbchangeop.class.inc.php');
+
+//require_once('csvparser.class.inc.php');
+require_once('bulkchange.class.inc.php');
+
+require_once('userrights.class.inc.php');
+
+//
+// Error handling
+// To be finalized... or removed ?
+//
+function cmdbErrorHandler($errno, $errstr, $errfile, $errline)
+{
+//		font-family: Courier-New, Courier, Arial, Helevtica;
+	$sErrorStyle = "
+		background-color: #ffaaaa;
+		color: #000000;
+		border: 1px dashed #000000;
+		padding: 0.25em;
+		margin-top: 1em;
+	";
+	$sCallStackStyle = "
+		font-size: smaller;
+		background-color: #ffcccc;
+		color: #000000;
+		border: 1px dashed #000000;
+		padding: 0.25em;
+		margin-top: 1em;
+	";
+
+	switch ($errno)
+	{
+	case E_USER_ERROR:
+	case E_ERROR:
+		echo "<div style=\"$sErrorStyle\">\n";
+		echo "<b>Error</b> [$errno] $errstr<br />\n";
+		echo "<div style=\"$sCallStackStyle\">\n";
+		MyHelpers::dump_callstack(1);
+		echo "</div>\n";
+		echo "Hereafter the biz model internals:<br />\n";
+		echo "<pre>\n";
+		MetaModel::static_var_dump();
+		echo "</pre>\n";
+		echo "Aborting...<br />\n";
+		echo "</div>\n";
+		exit(1);
+		break;
+	case E_USER_WARNING:
+	case E_WARNING:
+		echo "<div style=\"background-color:#FAA;\">\n";
+		echo "<b>Warning</b> [$errno] $errstr<br />\n";
+		echo "<div style=\"background-color:#FCC;\">\n";
+		MyHelpers::dump_callstack(1);
+		echo "</div>\n";
+		echo "</div>\n";
+		break;
+	case E_USER_NOTICE:
+	case E_NOTICE:
+		echo "<div style=\"background-color:#FAA;\">\n";
+		echo "<b>Notice</b> [$errno] $errstr<br />\n";
+		echo "<div style=\"background-color:#FCC;\">\n";
+		MyHelpers::dump_callstack(1);
+		echo "</div>\n";
+		echo "</div>\n";
+		break;
+	default:
+		echo "Unknown error type: [$errno] $errstr<br />\n";
+		MyHelpers::dump_callstack(1);
+		break;
+	}
+}
+
+error_reporting(E_ALL | E_STRICT);
+//set_error_handler("cmdbErrorHandler");
+
+
+
+//
+//
+//
+
+
+/**
+ * A persistent object, which changes are accurately recorded
+ *
+ * @package     iTopORM
+ * @author      Romain Quetiez <romainquetiez@yahoo.fr>
+ * @author      Denis Flaven <denisflave@free.fr>
+ * @license     http://www.opensource.org/licenses/lgpl-license.php LGPL
+ * @link        www.itop.com
+ * @since       1.0
+ * @version     1.1.1.1 $
+ */
+abstract class CMDBObject extends DBObject
+{
+	protected $m_datCreated;
+	protected $m_datUpdated;
+	protected static $m_oCurrChange = null;
+
+
+	private function RecordObjCreation(CMDBChange $oChange)
+	{
+		$oMyChangeOp = MetaModel::NewObject("CMDBChangeOpCreate");
+		$oMyChangeOp->Set("change", $oChange->GetKey());
+		$oMyChangeOp->Set("objclass", get_class($this));
+		$oMyChangeOp->Set("objkey", $this->GetKey());
+		$iId = $oMyChangeOp->DBInsert();
+	}
+	private function RecordObjDeletion(CMDBChange $oChange, $objkey)
+	{
+		$oMyChangeOp = MetaModel::NewObject("CMDBChangeOpDelete");
+		$oMyChangeOp->Set("change", $oChange->GetKey());
+		$oMyChangeOp->Set("objclass", get_class($this));
+		$oMyChangeOp->Set("objkey", $objkey);
+		$iId = $oMyChangeOp->DBInsert();
+	}
+	private function RecordAttChanges(CMDBChange $oChange, array $aValues = array())
+	{
+		// $aValues is an array of $sAttCode => $value
+		// ... some values...
+		//
+		if (empty($aValues))
+		{
+			// ... or every object values
+			foreach(MetaModel::ListAttributeDefs(get_class($this)) as $sAttCode=>$oAttDef)
+			{
+				if ($oAttDef->IsLinkSet()) continue; // #@# temporary
+				$aValues[$sAttCode] = $this->Get($sAttCode); 
+			}
+		}
+		foreach ($aValues as $sAttCode=> $value)
+		{
+			$oAttDef = MetaModel::GetAttributeDef(get_class($this), $sAttCode);
+			if ($oAttDef->IsLinkSet()) continue; // #@# temporary
+			$oMyChangeOp = MetaModel::NewObject("CMDBChangeOpSetAttribute");
+			$oMyChangeOp->Set("change", $oChange->GetKey());
+			$oMyChangeOp->Set("objclass", get_class($this));
+			$oMyChangeOp->Set("objkey", $this->GetKey());
+			$oMyChangeOp->Set("attcode", $sAttCode);
+			$oMyChangeOp->Set("newvalue", $value);
+			$iId = $oMyChangeOp->DBInsert();
+		}
+	}
+
+	public function DBInsert()
+	{
+		if(!is_object(self::$m_oCurrChange))
+		{
+			trigger_error("DBInsert() could not be used here, please use DBInsertTracked() instead", E_USER_ERROR);
+		}
+		return $this->DBInsertTracked_Internal();
+	}
+
+	public function DBInsertTracked(CMDBChange $oChange)
+	{
+		self::$m_oCurrChange = $oChange;
+		$ret = $this->DBInsertTracked_Internal();
+		self::$m_oCurrChange = null;
+		return $ret;
+	}
+
+	protected function DBInsertTracked_Internal()
+	{
+		$ret = parent::DBInsert();
+		$this->RecordObjCreation(self::$m_oCurrChange);
+		$this->RecordAttChanges(self::$m_oCurrChange);
+		return $ret;
+	}
+
+	public function DBClone($newKey = null)
+	{
+		if(!self::$m_oCurrChange)
+		{
+			trigger_error("DBClone() could not be used here, please use DBCloneTracked() instead", E_USER_ERROR);
+		}
+		return $this->DBCloneTracked_Internal();
+	}
+
+	public function DBCloneTracked(CMDBChange $oChange, $newKey = null)
+	{
+		self::$m_oCurrChange = $oChange;
+		$this->DBCloneTracked_Internal($newKey);
+		self::$m_oCurrChange = null;
+	}
+
+	protected function DBCloneTracked_Internal($newKey = null)
+	{
+		$newKey = parent::DBClone($newKey);
+		$oClone = MetaModel::GetObject(get_class($this), $newKey); 
+
+		$oClone->RecordObjCreation(self::$m_oCurrChange);
+		$oClone->RecordAttChanges(self::$m_oCurrChange);
+		return $newKey;
+	}
+
+	public function DBUpdate()
+	{
+		if(!self::$m_oCurrChange)
+		{
+			trigger_error("DBUpdate() could not be used here, please use DBUpdateTracked() instead", E_USER_ERROR);
+		}
+		return $this->DBUpdateTracked_internal();
+	}
+
+	public function DBUpdateTracked(CMDBChange $oChange)
+	{
+		self::$m_oCurrChange = $oChange;
+		$this->DBUpdateTracked_Internal();
+		self::$m_oCurrChange = null;
+	}
+
+	protected function DBUpdateTracked_Internal()
+	{
+		// Copy the changes list before the update (the list should be reset afterwards)
+		$aChanges = $this->ListChanges();
+		if (count($aChanges) == 0)
+		{
+			trigger_error("Attempting to update an unchanged object", E_USER_NOTICE);
+			return;
+		}
+
+		$ret = parent::DBUpdate();
+		$this->RecordAttChanges(self::$m_oCurrChange, $aChanges);
+		return $ret;
+	}
+
+	public function DBDelete()
+	{
+		if(!self::$m_oCurrChange)
+		{
+			trigger_error("DBDelete() could not be used here, please use DBDeleteTracked() instead", E_USER_ERROR);
+		}
+		return $this->DBDeleteTracked_Internal();
+	}
+
+	public function DBDeleteTracked(CMDBChange $oChange)
+	{
+		self::$m_oCurrChange = $oChange;
+		$this->DBDeleteTracked_Internal();
+		self::$m_oCurrChange = null;
+	}
+
+	protected function DBDeleteTracked_Internal()
+	{
+		$prevkey = $this->GetKey();
+		$ret = parent::DBDelete();
+		$this->RecordObjDeletion(self::$m_oCurrChange, $prevkey);
+		return $ret;
+	}
+
+	public static function BulkDelete(DBObjectSearch $oFilter)
+	{
+		if(!self::$m_oCurrChange)
+		{
+			trigger_error("BulkDelete() could not be used here, please use BulkDeleteTracked() instead", E_USER_ERROR);
+		}
+		return $this->BulkDeleteTracked_Internal($oFilter);
+	}
+
+	public static function BulkDeleteTracked(CMDBChange $oChange, DBObjectSearch $oFilter)
+	{
+		self::$m_oCurrChange = $oChange;
+		$this->BulkDeleteTracked_Internal($oFilter);
+		self::$m_oCurrChange = null;
+	}
+
+	protected static function BulkDeleteTracked_Internal(DBObjectSearch $oFilter)
+	{
+		trigger_error("Change tracking not tested for bulk operations", E_USER_WARNING);
+
+		// Get the list of objects to delete (and record data before deleting the DB records)
+		$oObjSet = new CMDBObjectSet($oFilter);
+		$aObjAndKeys = array(); // array of pkey=>object
+		while ($oItem = $oObjSet->Fetch())
+		{
+			$aObjAndKeys[$oItem->GetKey()] = $oItem;
+		}
+		$oObjSet->FreeResult();
+
+		// Delete in one single efficient query
+		$ret = parent::BulkDelete($oFilter);
+		// Record... in many queries !!!
+		foreach($aObjAndKeys as $prevkey=>$oItem)
+		{
+			$oItem->RecordObjDeletion(self::$m_oCurrChange, $prevkey);
+		}
+		return $ret;
+	}
+
+	public static function BulkUpdate(DBObjectSearch $oFilter, array $aValues)
+	{
+		if(!self::$m_oCurrChange)
+		{
+			trigger_error("BulkUpdate() could not be used here, please use BulkUpdateTracked() instead", E_USER_ERROR);
+		}
+		return $this->BulkUpdateTracked_Internal($oFilter, $aValues);
+	}
+
+	public static function BulkUpdateTracked(CMDBChange $oChange, DBObjectSearch $oFilter, array $aValues)
+	{
+		self::$m_oCurrChange = $oChange;
+		$this->BulkUpdateTracked_Internal($oFilter, $aValues);
+		self::$m_oCurrChange = null;
+	}
+
+	protected static function BulkUpdateTracked_Internal(DBObjectSearch $oFilter, array $aValues)
+	{
+		// $aValues is an array of $sAttCode => $value
+
+		// Get the list of objects to update (and load it before doing the change)
+		$oObjSet = new CMDBObjectSet($oFilter);
+		$oObjSet->Load();
+
+		// Update in one single efficient query
+		$ret = parent::BulkUpdate($oFilter, $aValues);
+
+		// Record... in many queries !!!
+		while ($oItem = $oObjSet->Fetch())
+		{
+			$aChangedValues = $oItem->ListChangedValues($aValues);
+			$oItem->RecordAttChanges(self::$m_oCurrChange, $aChangedValues);
+		}
+		return $ret;
+	}
+}
+
+
+
+/**
+ * TODO: investigate how to get rid of this class that was made to workaround some language limitation... or a poor design!
+ *
+ * @package     iTopORM
+ * @author      Romain Quetiez <romainquetiez@yahoo.fr>
+ * @author      Denis Flaven <denisflave@free.fr>
+ * @license     http://www.opensource.org/licenses/lgpl-license.php LGPL
+ * @link        www.itop.com
+ * @since       1.0
+ * @version     1.1.1.1 $
+ */
+class CMDBObjectSet extends DBObjectSet
+{
+	// this is the public interface (?)
+	
+	// I have to define those constructors here... :-(
+	// just to get the right object class in return.
+	// I have to think again to those things: maybe it will work fine if a have a constructor define here (?)
+	
+	static public function FromScratch($sClass)
+	{
+		$oFilter = new CMDBSearchFilter($sClass);
+		$oRetSet = new CMDBObjectSet($oFilter); // THE ONLY DIFF IS HERE
+		// NOTE: THIS DOES NOT WORK IF m_bLoaded is private...
+		// BUT IT THAT CASE YOU DO NOT GET ANY ERROR !!!!!
+		$oRetSet->m_bLoaded = true; // no DB load
+		return $oRetSet;
+	} 
+
+	static public function FromArray($sClass, $aObjects)
+	{
+		$oFilter = new CMDBSearchFilter($sClass);
+		$oRetSet = new CMDBObjectSet($oFilter); // THE ONLY DIFF IS HERE
+		// NOTE: THIS DOES NOT WORK IF m_bLoaded is private...
+		// BUT IT THAT CASE YOU DO NOT GET ANY ERROR !!!!!
+		$oRetSet->m_bLoaded = true; // no DB load
+		$oRetSet->AddObjectArray($aObjects);
+		return $oRetSet;
+	} 
+	
+}
+
+/**
+ * TODO: investigate how to get rid of this class that was made to workaround some language limitation... or a poor design!
+ *
+ * @package     iTopORM
+ * @author      Romain Quetiez <romainquetiez@yahoo.fr>
+ * @author      Denis Flaven <denisflave@free.fr>
+ * @license     http://www.opensource.org/licenses/lgpl-license.php LGPL
+ * @link        www.itop.com
+ * @since       1.0
+ * @version     1.1.1.1 $
+ */
+class CMDBSearchFilter extends DBObjectSearch
+{
+	// this is the public interface (?)
+}
+
+
+?>