This extensions aims at improving the end-users productivity. It adds a menu to create an item prefilled with information coming from an existing item.

Amongst the possible usages, you can:

• Provide a mean to quickly clone CIs (clone all the attributes but still force the user to enter a new name)
• Provide a shortcut to create a ticket from a Contact that will be the caller of the ticket
• Provide a shortcut to create a parent ticket (and record the information into the child ticket)
• Provide a shortcut to create a ticket from a CI (and record the information into the child ticket)
• Provide a shortcut to create a change ticket from a user request (and record the information into the user request)

Let's use the last example to illustrate the possibilities of the module:

Users have a menu in the Other Actions drop-down menu of a User Request:

Clicking on the menu, opens the standard creation form with prepopulated data:

The user can adjust the values, then create the item. In addition to the standard report, a message indicates that something has been retrofitted back to the source item.

A shortcut is governed by a rule definition.

The menu is visible if a series of conditions are met:

• The item being visited is in the scope of the rule (given by an OQL). For instance, you may want to propose the shortcut only for user request being assigned or pending: SELECT UserRequest WHERE status IN ('assigned', 'pending')
• The current user has a profile allowed for the rule (can be anybody)

Several rules can coexist for a single source object: there will be as many menus as there are rules that match the conditions.

A rule defines which kind of object to create:

• Either a given class (can be an abstract class, the user will have to select a subclass)
• Or the exact same class as the source object

A rule specifies what has to be done to preset or prepopulate the form. This is done by the mean of actions. The following kind of actions are available:

• Set the value of an attribute depending on the value of one or several attributes from the source object.
• Copy N-N links (eg. Documents on a Ticket, while cloning a Ticket. Documents are not duplicated, just the links are)
• Copy 1:n link by duplicating the 1-N linked objects (e.g. Server Interfaces, WorkOrders on a Change)
• Add an N-N link to the source object or to an external key of the source object.

Additionaly, the rule specifies what has to be done to retrofit some information from the created object to the source object.

The following types of attributes are currently not handled and therefore cannot be preset (and no error message is given):

• Blobs
• Stop watches

If apply_stimulus() is used in preset, the form is shown with the object id and the relevant buttons depending on the new state but then it fails to “create” the object because it was created already during the stimuli processing

Copy the folder itop-object-copier into the extensions folder of iTop and launch the setup again.

When prompted to select the extensions to install, check “Object copier” in the list of available extensions.

An action is specified as a string formatted as verb(arg1[,arg2[…]])
The same action can be requested multiple times.

The following verbs are available:

'itop-object-copier' => array(
    'rules' => array(
        0 => array(
		'source_scope' => 'SELECT UserRequest WHERE status IN ("assigned", "pending")',
		'allowed_profiles' => 'Administrator,Support Agent',
		'menu_label' => 'Issue a change ticket...',
		'form_label' => 'Issue a change from request %1$s [...]',
		'report_label' => 'Issued from the request %1$s. The request has been updated.',
		'dest_class' => 'Change',
		'preset' => array(
			'clone(contacts_list,functionalcis_list,org_id,title,caller_id)',
			'set(description,Original description:\n\$this->description\$)',
		),
		'retrofit' => array(
			'copy(id, parent_change_id)',
			'set(private_log,Issued change $this->ref$)',
		),
	),
	1 => array(
		'source_scope' => 'SELECT FunctionalCI',
		'allowed_profiles' => '',
		'dest_class' => '',
		'preset' => array(
			'clone_scalars(*)',
			'reset(name)',
		),
		'retrofit' => array(
		),
	),
    ),
),

In the above examples, 0 and 1 are the identifier of the rules.

• You can use a string instead of a number, for identifying an object copier rule.
• Internally the menu UID will be build this way: object_copier_ + the rule id you gave it.
• So UID of the above menus, we will be: object_copier_0 and object_copier_1

Here we want to copy a n:n relation, which would be of a similar nature but from 2 different Classes of links, for example you want to create a Change Ticket from a FunctionalCI and automatically retrieve Contacts associated to CI and link them to the Change.

class:Change

public function CopyContactsFromCI($oSource)
{
   // This method should be called from an object copier action triggered from a FunctionalCI.
   $sSourceClass = get_class($oSource);
   if (!MetaModel::IsParentClass('FunctionalCI', $sChildClass))
   {
      throw new Exception("Wrong source class '$sSourceClass' : 
        CopyContactsFromCI method should be called by a user action associated to a FunctionalCI!");
   }        
   // Problem: method is called twice, when new CreatedObject is displayed and when it is saved, 
   // resulting in executing the code twice.
   // Work around: don't perform operation when CreatedObject is being saved
   $sOperation = utils::ReadPostedParam('operation');
   if ($sOperation == 'apply_new') {  return;  }
 
   $id = $oSource->GetKey();
   // get the ids of Contacts linked to the SourceObject (a FunctionalCI)
   $sOQL = "SELECT lnkContactToFunctionalCI AS l WHERE l.functionalci_id = :id ";
   $oContactSetSrc = new CMDBObjectSet(DBObjectSearch::FromOQL($sOQL), array(), array('id' => $id));
   // ensure you get also the obsolete Contacts objects, in case the user preference hide them
   $oContactSetSrc->SetShowObsoleteData(utils::ShowObsoleteData());
 
   $oContactSetDst = $this->Get('contacts_list');
   // Copy the Contact linked objects one by one
   while ($oLnkSrc = $oContactSetSrc->Fetch())
   {
       $oLnkDst = MetaModel::NewObject('lnkContactToTicket');
       $oLnkDst->Set('contact_id', $oLnkSrc->Get('contact_id'));
       $oContactSetDst->AddItem($oLnkDst);
   }
   $this->Set('contacts_list', $oContactSetDst);
}

Configuration file

  3 => array (
    'source_scope' => 'SELECT FunctionalCI',
    'allowed_profiles' => 'Support Agent,Administrator',
    'menu_label' => 'Create a change...',
    'form_label' => 'Create a user request from  %1$s',
    'report_label' => 'Created from %1$s',
    'dest_class' => 'Change',
    'preset' => array (
         0 => 'copy(org_id,org_id)',
	 1 => 'add_to_list(id,functionalcis_list,impact,Impacted CI)',
         2 => 'call_method(CopyContactsFromCI)',
         ),
    'retrofit' => array (),
),

Example: to display the Clone… menu (rule id=1) in the toolbar after the New… and Modify.. buttons, set this:

  'shortcut_actions' => 'UI:Menu:Modify,UI:Menu:New,object_copier_1',

The result will look like this:

If the specified menu is not available for a given class, it's silently not displayed

All errors are logged to the file log/error.log

The behavior from the end-user perspective is:

• When the parameters source_scope is wrong, the rule is ignored
• When dest_class is not a valid class, the rule is ignored
• When source_scope/dest_class/allowed_profiles/preset/retrofit are missing, the rule is ignored
• When the list of profiles contain wrong names, those names are simply ignored, and if all the names in the list are wrong then no one will have the menu to clone the object.
• When a preset action is wrong (syntaxically or grammatically), the preset is stopped at that point, the form is displayed with a message explaining the issue: “An error has been encountered while presetting the object to create: <error message>. Please contact your administrator.” The user can proceed with the object creation.
• When a retrofit action is wrong, the retrofit is stopped at that point, the operation completes (object created as expected) and the report contains: “An error has been encountered while retrofitting some information back to the source object: <error message>. Please contact your administrator.”

Q: Can I copy the Request Template (service_details) while cloning a UserRequest?
A: It is currently not working correctly.

Q: Can I copy the Caselogs while cloning a Ticket?
A: It is covered by this extension, except for versions between 1.3.2 and 1.3.4. In 1.3.5, there is an known issue with duplication of the last entry.

Q: Can I copy the WorkOrders while cloning a Ticket?
A: It is covered by this extension, except for versions between 1.3.2 and 1.3.4.

So here is a workaround: you can write a method to do it.

• Limitations: Sub-objects are copied in the background on form submission. You will have to modify or delete those that are not applicable after.

Class::Ticket

public function CloneWorkorders($oSource)
{
    // Method called by Object-Copier
    // Change those 2 strings to match your needs
    $sAllowedSourceClass = 'Ticket'; // Class of the SourceObject
    $sSetAttCode = 'workorders_list'; // Attribute code of the n-1 relation to copy
 
    if (!MetaModel::IsValidAttCode(get_class($this), $sSetAttCode))
    {
	throw new Exception(__METHOD__.":Unknown attribute ".get_class($this)."::".$sSetAttCode);
    }
    if (!MetaModel::IsParentClass($sAllowedSourceClass, get_class($oSource)))
    {
        throw new Exception(__METHOD__.":Wrong source class 'get_class($oSource)' : 
            This method should be called by a user action associated to a '$sAllowedSourceClass'");
    }
    // Check that AttributeDef is an AttributeLinkedSet
    $oSourceAttDef = MetaModel::GetAttributeDef(get_class($oSource), $sSetAttCode);
    if (is_object($oSourceAttDef) && !$oSourceAttDef->IsLinkSet())
    {
	throw new Exception(__METHOD__.":Attribute ".$sSetAttCode
                ." is not a LinkSet on class ".get_class($this));
    }
    // To avoid confusing the user, we apply this only on submission
    // Otherwise the copied objects seems to appear on the form, but adding or removing some is ignored.
    $sOperation = utils::ReadPostedParam('operation');
    if ($sOperation != 'apply_new')
    {
        return;
    }
 
    $oDestSet = $this->Get($sSetAttCode);	    
    $oSet = $oSource->Get($sSetAttCode);
 
    while($oSourceObject = $oSet->Fetch())
    {	    
  	$sClass = get_class($oSourceObject);
    	$oClone = MetaModel::NewObject($sClass);
    	foreach(MetaModel::ListAttributeDefs($sClass) as $sAttCode => $oAttDef)
    	{
    	    // As of now, ignore other attribute than scalars
            if ($oAttDef->IsScalar() && $oAttDef->IsWritable())
    	    {
    		$oClone->Set($sAttCode, $oSourceObject->Get($sAttCode));
    	    }
    	}
    	$oDestSet->AddItem($oClone);
    }
    $this->Set($sSetAttCode,$oDestSet);
}