LSrelation : add possibilty to handle relation with multiple key values

doc/conf/LSobject/LSrelation.docbook

@@ -21,7 +21,8 @@
 
     // Liaison simple
     'linkAttribute' => '[attribut de liaison]',
-    'linkAttributeValue' => '[value de l'attribut de liaison]',
+    'linkAttributeValue' => '[valeur de l'attribut de liaison]',
+    'linkAttributeOtherValues' => array('[autres valeurs possible de l'attribut de liaison]', [...]),
 
     // Liaison complexe
     'list_function' => '[méthode1]',
@@ -81,12 +82,25 @@
 <varlistentry>
   <term>linkAttributeValue</term>
   <listitem>
-    <simpara>Dans le cadre d'une relation simple, il s'agit du type de valeur pris
+    <simpara>Dans le cadre d'une relation simple, il s'agit du type de valeur prisent
     par l'attribut de liaison du type d'&LSobject; en relation avec le type courant.
     Il peut s'agir du mot clé <literal>dn</literal> si l'attribut de liaison contient
     le <emphasis>DN</emphasis> de l'objet courant ou bien le nom d'un attribut du type
     d'objet courant dont la première valeur sera stockée par l'attribut de liaison.
-    <emphasis>(Facultatif en cas de liaison simple)</emphasis></simpara>
+    <emphasis>(Facultatif en cas de liaison complexe)</emphasis></simpara>
+  </listitem>
+</varlistentry>
+
+<varlistentry>
+  <term>linkAttributeOtherValues</term>
+  <listitem>
+    <simpara>Dans le cadre d'une relation simple, il s'agit d'autres types de valeur
+    possiblement prisent par l'attribut en plus de celui défini par le paramètre
+    <literal>linkAttributeValue</literal>. Ce paramètre ne sert qu'a détecter des
+    liaisons établies à l'aide de valeurs autres que celle relative au paramètre
+    <literal>linkAttributeValue</literal> : en cas de nouvelle liaison, c'est la
+    valeur associée à ce dernier qui sera utilisée pour établir la liaison.
+    <emphasis>(Facultatif en cas de liaison complexe)</emphasis></simpara>
   </listitem>
 </varlistentry>
 

public_html/includes/class/class.LSldapObject.php

@@ -1307,25 +1307,31 @@ class LSldapObject {
    * 
    * @param[in] $object Un object de type $objectType
    * @param[in] $objectType Le type d'objet en relation
-   * @param[in] $value La valeur que doit avoir l'attribut :
+   * @param[in] $attrValues La/les valeur(s) que doit/peut avoir l'attribut :
-   *                      - soit le dn (par defaut)
+   *                        - soit le dn (par defaut)
-   *                      - soit la valeur [0] d'un attribut
+   *                        - soit une des valeurs d'un attribut
    * 
    * @retval Mixed La valeur clef d'un objet en relation
    **/
-  function getObjectKeyValueInRelation($object,$objectType,$attrValue='dn') {
+  function getObjectKeyValueInRelation($object,$objectType,$attrValues='dn') {
     if (!$objectType) {
       LSerror :: addErrorCode('LSrelations_05','getObjectKeyValueInRelation');
       return;
     }
-    if ($attrValue=='dn') {
+    if (!is_array($attrValues)) $attrValues=array($attrValues);
-      $val = $object -> getDn();
+    $keyValues=array();
+    foreach ($attrValues as $attrValue) {
+      if ($attrValue=='dn') {
+        $dn=$object -> getDn();
+        if (!in_array($dn,$keyValues))
+          $keyValues[] = $dn;
+      }
+      else {
+        foreach ($object -> getValue($attrValue) as $keyValue)
+          if (!in_array($keyValue,$keyValues)) $keyValues[]=$keyValue;
+      }
     }
-    else {
+    return $keyValues;
-      $val = $object -> getValue($attrValue);
-      $val = $val[0];
-    }
-    return $val;
   }
   
   /**
@@ -1340,29 +1346,29 @@ class LSldapObject {
    * @param[in] $object Un object de type $objectType
    * @param[in] $attr L'attribut dans lequel l'objet doit apparaitre
    * @param[in] $objectType Le type d'objet en relation
-   * @param[in] $value La valeur que doit avoir l'attribut :
+   * @param[in] $attrValues La/les valeur(s) que doit/peut avoir l'attribut :
    *                      - soit le dn (par defaut)
-   *                      - soit la valeur [0] d'un attribut
+   *                      - soit une des valeurs d'un attribut
    * 
    * @retval Array of $objectType Les objets en relations
    **/
-  function listObjectsInRelation($object,$attr,$objectType,$attrValue='dn') {
+  function listObjectsInRelation($object,$attr,$objectType,$attrValues='dn') {
     if ((!$attr)||(!$objectType)) {
       LSerror :: addErrorCode('LSrelations_05','listObjectsInRelation');
       return;
     }
-    if ($attrValue=='dn') {
+    if (!is_array($attrValues)) $attrValues=array($attrValues);
-      $val = $object -> getDn();
+    $keyValues=self :: getObjectKeyValueInRelation($object,$objectType,$attrValues);
-    }
+    if (!empty($keyValues)) {
-    else {
+      $keyValuesFilters=array();
-      $val = $object -> getValue($attrValue);
+      foreach($keyValues as $keyValue) {
-      $val = $val[0];
+        $keyValuesFilters[] = Net_LDAP2_Filter::create($attr,'equals',$keyValue);
-    }
+      }
-    if ($val) {
+      $filter = LSldap::combineFilters('or', $keyValuesFilters);
-      $filter = Net_LDAP2_Filter::create($attr,'equals',$val);
       return $this -> listObjects($filter,LSsession :: getRootDn(),array('scope' => 'sub','recursive' => true,'withoutCache'=>true, 'onlyAccessible' => false));
     }
-    return;
+
+    return array();
   }
 
   /**
@@ -1438,10 +1444,13 @@ class LSldapObject {
    *                      - soit la valeur [0] d'un attribut
    * @param[in] $canEditFunction  Le nom de la fonction pour vérifier que la
    *                              relation avec l'objet est éditable par le user
+   * @param[in] $attrValues L'ensembe des valeurs que peut avoir l'attribut avant mise à jour :
+   *                        - soit le dn (par defaut)
+   *                        - soit une des valeurs d'un attribut
    * 
    * @retval boolean true si l'objet à été supprimé, False sinon
    **/  
-  function deleteOneObjectInRelation($object,$attr,$objectType,$attrValue='dn',$canEditFunction=NULL) {
+  function deleteOneObjectInRelation($object,$attr,$objectType,$attrValue='dn',$canEditFunction=NULL,$attrValues=null) {
     if ((!$attr)||(!$objectType)) {
       LSerror :: addErrorCode('LSrelations_05','deleteOneObjectInRelation');
       return;
@@ -1458,13 +1467,8 @@ class LSldapObject {
         return;
       }
       if ($this -> attrs[$attr] instanceof LSattribute) {
-        if ($attrValue=='dn') {
+        if (!is_array($attrValues)) $attrValues=array($attrValue);
-          $val = $object -> getDn();
+        $keyValues=self :: getObjectKeyValueInRelation($object,$objectType,$attrValues);
-        }
-        else {
-          $val = $object -> getValue($attrValue);
-          $val = $val[0];
-        }
         $values = $this -> attrs[$attr] -> getValue();
         if ((!is_array($values)) && (!empty($values))) {
           $values = array($values);
@@ -1472,7 +1476,7 @@ class LSldapObject {
         if (is_array($values)) {
           $updateData=array();
           foreach($values as $value) {
-            if ($value!=$val) {
+            if (!in_array($value,$keyValues)) {
               $updateData[]=$value;
             }
           }
@@ -1487,7 +1491,8 @@ class LSldapObject {
   * Renome un objet en relation dans l'attribut $attr de $this
   * 
   * @param[in] $object Un objet de type $objectType à renomer
-  * @param[in] $oldValue string L'ancienne valeur faisant référence à l'objet
+  * @param[in] $oldValues array|string Le(s) ancienne(s) valeur(s possible(s)
+  *                                    faisant référence à l'objet
   * @param[in] $attr L'attribut dans lequel l'objet doit être supprimé
   * @param[in] $objectType Le type d'objet en relation
   * @param[in] $attrValue La valeur que doit avoir l'attribut :
@@ -1496,11 +1501,12 @@ class LSldapObject {
   *  
   * @retval boolean True en cas de succès, False sinon
   */
-  function renameOneObjectInRelation($object,$oldValue,$attr,$objectType,$attrValue='dn') {
+  function renameOneObjectInRelation($object,$oldValues,$attr,$objectType,$attrValue='dn') {
     if ((!$attr)||(!$objectType)) {
       LSerror :: addErrorCode('LSrelations_05','renameOneObjectInRelation');
       return;
     }
+    if (!is_array($oldValues)) $oldValues=array($oldValues);
     if ($object instanceof $objectType) {
       if ($this -> attrs[$attr] instanceof LSattribute) {
         $values = $this -> attrs[$attr] -> getValue();
@@ -1510,7 +1516,7 @@ class LSldapObject {
         if (is_array($values)) {
           $updateData=array();
           foreach($values as $value) {
-            if ($value!=$oldValue) {
+            if (!in_array($value,$oldValues)) {
               $updateData[] = $value;
             }
             else {
@@ -1545,94 +1551,48 @@ class LSldapObject {
    *                      - soit la valeur [0] d'un attribut
    * @param[in] $canEditFunction  Le nom de la fonction pour vérifier que la
    *                              relation avec l'objet est éditable par le user
+   * @param[in] $attrValues L'ensembe des valeurs que peut avoir l'attribut avant mise à jour :
+   *                        - soit le dn (par defaut)
+   *                        - soit une des valeurs d'un attribut
    * 
    * @retval boolean true si tout c'est bien passé, False sinon
    **/  
-  function updateObjectsInRelation($object,$listDns,$attr,$objectType,$attrValue='dn',$canEditFunction=NULL) {
+  function updateObjectsInRelation($object,$listDns,$attr,$objectType,$attrValue='dn',$canEditFunction=NULL,$attrValues=null) {
     if ((!$attr)||(!$objectType)) {
       LSerror :: addErrorCode('LSrelations_05','updateObjectsInRelation');
       return;
     }
-    $currentObjects = $this -> listObjectsInRelation($object,$attr,$objectType,$attrValue);
+    if (!is_array($attrValues)) $attrValues=array($attrValue);
-    $type=$this -> getType();
+    $currentDns=array();
+    $currentObjects = $this -> listObjectsInRelation($object,$attr,$objectType,$attrValues);
     if(is_array($currentObjects)) {
-      if (is_array($listDns)) {
+      for ($i=0;$i<count($currentObjects);$i++) {
-        $values=array();
+        $currentDns[]=$currentObjects[$i] -> getDn();
-        if ($attrValue!='dn') {
-          $obj=new $objectType();
-          foreach ($listDns as $dn) {
-            $obj -> loadData($dn);
-            $val = $obj -> getValue($attrValue);
-            $values[$dn] = $val[0];
-          }
-        }
-        else {
-          foreach($listDns as $dn) {
-            $values[$dn] = $dn;
-          }
-        }
-        $dontDelete=array();
-        $dontAdd=array();
-        for ($i=0;$i<count($currentObjects);$i++) {
-          if ($attrValue=='dn') {
-            $val = $currentObjects[$i] -> getDn();
-          }
-          else {
-            $val = $currentObjects[$i] -> getValue($attrValue);
-            $val = $val[0];
-          }
-          if (in_array($val, $listDns)) {
-            $dontDelete[$i]=true;
-            $dontAdd[]=$val;
-          }
-        }
-        
-        for($i=0;$i<count($currentObjects);$i++) {
-          if ($dontDelete[$i]) {
-            continue;
-          }
-          else {
-            if (!$currentObjects[$i] -> deleteOneObjectInRelation($object,$attr,$objectType,$attrValue,$canEditFunction)) {
-              return;
-            }
-          }
-        }
-        
-        foreach($values as $dn => $val) {
-          if (in_array($val,$dontAdd)) {
-            continue;
-          }
-          else {
-            $obj = new $type();
-            if ($obj -> loadData($dn)) {
-              if (!$obj -> addOneObjectInRelation($object,$attr,$objectType,$attrValue,$canEditFunction)) {
-                return;
-              }
-            }
-            else {
-              return;
-            }
-          }
-        }
-        return true;
       }
     }
-    else {
+    $dontTouch=array_intersect($listDns,$currentDns);
-      if(!is_array($listDns)) {
+
-        return true;
+    for($i=0;$i<count($currentObjects);$i++) {
+      if (in_array($currentObjects[$i] -> getDn(),$dontTouch)) continue;
+      if (!$currentObjects[$i] -> deleteOneObjectInRelation($object,$attr,$objectType,$attrValue,$canEditFunction,$attrValues)) {
+        return;
       }
-      foreach($listDns as $dn) {
+    }
-        $obj = new $type();
+
-        if ($obj -> loadData($dn)) {
+    $type=$this -> getType();
-          if (!$obj -> addOneObjectInRelation($object,$attr,$objectType,$attrValue,$canEditFunction)) {
+    foreach($listDns as $dn) {
-            return;
+      if (in_array($dn,$dontTouch)) continue;
-          }
+      $obj = new $type();
-        }
+      if ($obj -> loadData($dn)) {
-        else {
+        if (!$obj -> addOneObjectInRelation($object,$attr,$objectType,$attrValue,$canEditFunction)) {
           return;
         }
       }
+      else {
+        return;
+      }
     }
+    return true;
   }
   
   /**

public_html/includes/class/class.LSrelation.php

@@ -52,7 +52,7 @@ class LSrelation {
         return False;
       }
       elseif (isset($this -> config['linkAttribute']) && isset($this -> config['linkAttributeValue'])) {
-        return $objRel -> listObjectsInRelation($this -> obj, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> config['linkAttributeValue']);
+        return $objRel -> listObjectsInRelation($this -> obj, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> getLinkAttributeValues());
       }
       else {
         LSerror :: addErrorCode('LSrelations_05',array('relation' => $this -> relationName,'LSobject' => $this -> config['LSobject'],'action' => _('listing related objects')));
@@ -64,6 +64,17 @@ class LSrelation {
     return;
   }
 
+  public function getLinkAttributeValues() {
+    if (isset($this -> config['linkAttributeOtherValues'])) {
+      $linkAttributeValues=$this -> config['linkAttributeOtherValues'];
+      $linkAttributeValues[]=$this -> config['linkAttributeValue'];
+      return $linkAttributeValues;
+    }
+    else {
+      return $this -> config['linkAttributeValue'];
+    }
+  }
+
   public function getRelatedKeyValue() {
     if (LSsession :: loadLSobject($this -> config['LSobject'])) {
       $objRel = new $this -> config['LSobject']();
@@ -121,7 +132,7 @@ class LSrelation {
       return False;
     }
     elseif (isset($this -> config['linkAttribute']) && isset($this -> config['linkAttributeValue'])) {
-      return $objRel -> deleteOneObjectInRelation($this -> obj, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> config['linkAttributeValue']);
+      return $objRel -> deleteOneObjectInRelation($this -> obj, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> config['linkAttributeValue'], null, $this -> getLinkAttributeValues());
     }
     else {
       LSerror :: addErrorCode('LSrelations_05',array('relation' => $this -> relationName,'LSobject' => $this -> config['LSobject'],'action' => _('removing relation with specific object')));
@@ -156,7 +167,7 @@ class LSrelation {
         LSerror :: addErrorCode('LSrelations_01',array('function' => $this -> config['update_function'], 'action' =>  _('updating'), 'relation' => $this -> relationName));
       }
       elseif (isset($this -> config['linkAttribute']) && isset($this -> config['linkAttributeValue'])) {
-        return $objRel -> updateObjectsInRelation($this -> obj, $listDns, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> config['linkAttributeValue'],null);
+        return $objRel -> updateObjectsInRelation($this -> obj, $listDns, $this -> config['linkAttribute'], $this -> obj -> getType(), $this -> config['linkAttributeValue'],null,$this -> getLinkAttributeValues());
       }
       else {
         LSerror :: addErrorCode('LSrelations_05',array('relation' => $this -> relationName,'LSobject' => $this -> config['LSobject'],'action' => _('updating relations')));