|
|
|
|
@ -6763,6 +6763,9 @@ abstract class CommonObject
|
|
|
|
|
} elseif (preg_match('/^(sellist):(.*):(.*)/i', $val['type'], $reg)) {
|
|
|
|
|
$param['options'] = array($reg[2].':'.$reg[3] => 'N');
|
|
|
|
|
$type = 'sellist';
|
|
|
|
|
} elseif (preg_match('/^chkbxlst:(.*)/i', $val['type'], $reg)) {
|
|
|
|
|
$param['options'] = array($reg[1] => 'N');
|
|
|
|
|
$type = 'chkbxlst';
|
|
|
|
|
} elseif (preg_match('/varchar\((\d+)\)/', $val['type'], $reg)) {
|
|
|
|
|
$param['options'] = array();
|
|
|
|
|
$type = 'varchar';
|
|
|
|
|
@ -6941,6 +6944,8 @@ abstract class CommonObject
|
|
|
|
|
// 2 : key fields name (if differ of rowid)
|
|
|
|
|
// 3 : key field parent (for dependent lists)
|
|
|
|
|
// 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value
|
|
|
|
|
// 5 : id category type
|
|
|
|
|
// 6 : ids categories list separated by comma for category root
|
|
|
|
|
$keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2].' as rowid');
|
|
|
|
|
|
|
|
|
|
if (count($InfoFieldList) > 4 && !empty($InfoFieldList[4])) {
|
|
|
|
|
@ -6955,112 +6960,130 @@ abstract class CommonObject
|
|
|
|
|
$keyList .= ', '.$parentField;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($fields_label)) {
|
|
|
|
|
$keyList .= ', ';
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
$filter_categorie = false;
|
|
|
|
|
if (count($InfoFieldList) > 5) {
|
|
|
|
|
if ($InfoFieldList[0] == 'categorie') {
|
|
|
|
|
$filter_categorie = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$sqlwhere = '';
|
|
|
|
|
$sql = "SELECT ".$keyList;
|
|
|
|
|
$sql .= " FROM ".$this->db->prefix().$InfoFieldList[0];
|
|
|
|
|
if (!empty($InfoFieldList[4])) {
|
|
|
|
|
// can use SELECT request
|
|
|
|
|
if (strpos($InfoFieldList[4], '$SEL$') !== false) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
|
|
|
|
|
if ($filter_categorie === false) {
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($fields_label)) {
|
|
|
|
|
$keyList .= ', ';
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// current object id can be use into filter
|
|
|
|
|
if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', $objectid, $InfoFieldList[4]);
|
|
|
|
|
} else {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//We have to join on extrafield table
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
$sql .= " as main, ".$this->db->prefix().$InfoFieldList[0]."_extrafields as extra";
|
|
|
|
|
$sqlwhere .= " WHERE extra.fk_object=main.".$InfoFieldList[2]." AND ".$InfoFieldList[4];
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= " WHERE ".$InfoFieldList[4];
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= ' WHERE 1=1';
|
|
|
|
|
}
|
|
|
|
|
// Some tables may have field, some other not. For the moment we disable it.
|
|
|
|
|
if (in_array($InfoFieldList[0], array('tablewithentity'))) {
|
|
|
|
|
$sqlwhere .= " AND entity = ".((int) $conf->entity);
|
|
|
|
|
}
|
|
|
|
|
$sql .= $sqlwhere;
|
|
|
|
|
//print $sql;
|
|
|
|
|
|
|
|
|
|
$sql .= ' ORDER BY '.implode(', ', $fields_label);
|
|
|
|
|
|
|
|
|
|
dol_syslog(get_class($this).'::showInputField type=sellist', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$out .= '<option value="0"> </option>';
|
|
|
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
|
$i = 0;
|
|
|
|
|
while ($i < $num) {
|
|
|
|
|
$labeltoshow = '';
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$notrans = false;
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (count($fields_label) > 1) {
|
|
|
|
|
$notrans = true;
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$labeltoshow .= $obj->$field_toshow.' ';
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = $obj->{$InfoFieldList[1]};
|
|
|
|
|
$sqlwhere = '';
|
|
|
|
|
$sql = "SELECT " . $keyList;
|
|
|
|
|
$sql .= " FROM " . $this->db->prefix() . $InfoFieldList[0];
|
|
|
|
|
if (!empty($InfoFieldList[4])) {
|
|
|
|
|
// can use SELECT request
|
|
|
|
|
if (strpos($InfoFieldList[4], '$SEL$') !== false) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
$labeltoshow = dol_trunc($labeltoshow, 45);
|
|
|
|
|
|
|
|
|
|
if ($value == $obj->rowid) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if ($translabel != $obj->$field_toshow) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel).' ';
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->$field_toshow).' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$out .= '<option value="'.$obj->rowid.'" selected>'.$labeltoshow.'</option>';
|
|
|
|
|
// current object id can be use into filter
|
|
|
|
|
if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', $objectid, $InfoFieldList[4]);
|
|
|
|
|
} else {
|
|
|
|
|
if (!$notrans) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->{$InfoFieldList[1]});
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
//We have to join on extrafield table
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
$sql .= " as main, " . $this->db->prefix() . $InfoFieldList[0] . "_extrafields as extra";
|
|
|
|
|
$sqlwhere .= " WHERE extra.fk_object=main." . $InfoFieldList[2] . " AND " . $InfoFieldList[4];
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= " WHERE " . $InfoFieldList[4];
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= ' WHERE 1=1';
|
|
|
|
|
}
|
|
|
|
|
// Some tables may have field, some other not. For the moment we disable it.
|
|
|
|
|
if (in_array($InfoFieldList[0], array('tablewithentity'))) {
|
|
|
|
|
$sqlwhere .= " AND entity = " . ((int) $conf->entity);
|
|
|
|
|
}
|
|
|
|
|
$sql .= $sqlwhere;
|
|
|
|
|
//print $sql;
|
|
|
|
|
|
|
|
|
|
$sql .= ' ORDER BY ' . implode(', ', $fields_label);
|
|
|
|
|
|
|
|
|
|
dol_syslog(get_class($this) . '::showInputField type=sellist', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$out .= '<option value="0"> </option>';
|
|
|
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
|
$i = 0;
|
|
|
|
|
while ($i < $num) {
|
|
|
|
|
$labeltoshow = '';
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$notrans = false;
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (count($fields_label) > 1) {
|
|
|
|
|
$notrans = true;
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$labeltoshow .= $obj->$field_toshow . ' ';
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = $obj->{$InfoFieldList[1]};
|
|
|
|
|
}
|
|
|
|
|
if (empty($labeltoshow)) {
|
|
|
|
|
$labeltoshow = '(not defined)';
|
|
|
|
|
}
|
|
|
|
|
$labeltoshow = dol_trunc($labeltoshow, 45);
|
|
|
|
|
|
|
|
|
|
if ($value == $obj->rowid) {
|
|
|
|
|
$out .= '<option value="'.$obj->rowid.'" selected>'.$labeltoshow.'</option>';
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if ($translabel != $obj->$field_toshow) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel) . ' ';
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->$field_toshow) . ' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
|
|
|
|
|
} else {
|
|
|
|
|
if (!$notrans) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->{$InfoFieldList[1]});
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (empty($labeltoshow)) {
|
|
|
|
|
$labeltoshow = '(not defined)';
|
|
|
|
|
}
|
|
|
|
|
if ($value == $obj->rowid) {
|
|
|
|
|
$out .= '<option value="' . $obj->rowid . '" selected>' . $labeltoshow . '</option>';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!empty($InfoFieldList[3]) && $parentField) {
|
|
|
|
|
$parent = $parentName . ':' . $obj->{$parentField};
|
|
|
|
|
$isDependList = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$out .= '<option value="' . $obj->rowid . '"';
|
|
|
|
|
$out .= ($value == $obj->rowid ? ' selected' : '');
|
|
|
|
|
$out .= (!empty($parent) ? ' parent="' . $parent . '"' : '');
|
|
|
|
|
$out .= '>' . $labeltoshow . '</option>';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!empty($InfoFieldList[3]) && $parentField) {
|
|
|
|
|
$parent = $parentName.':'.$obj->{$parentField};
|
|
|
|
|
$isDependList = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$out .= '<option value="'.$obj->rowid.'"';
|
|
|
|
|
$out .= ($value == $obj->rowid ? ' selected' : '');
|
|
|
|
|
$out .= (!empty($parent) ? ' parent="'.$parent.'"' : '');
|
|
|
|
|
$out .= '>'.$labeltoshow.'</option>';
|
|
|
|
|
$i++;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$i++;
|
|
|
|
|
$this->db->free($resql);
|
|
|
|
|
} else {
|
|
|
|
|
print 'Error in request ' . $sql . ' ' . $this->db->lasterror() . '. Check setup of extra parameters.<br>';
|
|
|
|
|
}
|
|
|
|
|
$this->db->free($resql);
|
|
|
|
|
} else {
|
|
|
|
|
print 'Error in request '.$sql.' '.$this->db->lasterror().'. Check setup of extra parameters.<br>';
|
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
|
|
|
|
|
$data = $form->select_all_categories(Categorie::$MAP_ID_TO_CODE[$InfoFieldList[5]], '', 'parent', 64, $InfoFieldList[6], 1, 1);
|
|
|
|
|
$out .= '<option value="0"> </option>';
|
|
|
|
|
foreach ($data as $data_key => $data_value) {
|
|
|
|
|
$out .= '<option value="' . $data_key . '"';
|
|
|
|
|
$out .= ($value == $data_key ? ' selected' : '');
|
|
|
|
|
$out .= '>' . $data_value . '</option>';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
$out .= '</select>';
|
|
|
|
|
@ -7093,6 +7116,8 @@ abstract class CommonObject
|
|
|
|
|
// 2 : key fields name (if differ of rowid)
|
|
|
|
|
// 3 : key field parent (for dependent lists)
|
|
|
|
|
// 4 : where clause filter on column or table extrafield, syntax field='value' or extra.field=value
|
|
|
|
|
// 5 : id category type
|
|
|
|
|
// 6 : ids categories list separated by comma for category root
|
|
|
|
|
$keyList = (empty($InfoFieldList[2]) ? 'rowid' : $InfoFieldList[2].' as rowid');
|
|
|
|
|
|
|
|
|
|
if (count($InfoFieldList) > 3 && !empty($InfoFieldList[3])) {
|
|
|
|
|
@ -7107,114 +7132,127 @@ abstract class CommonObject
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($fields_label)) {
|
|
|
|
|
$keyList .= ', ';
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
$filter_categorie = false;
|
|
|
|
|
if (count($InfoFieldList) > 5) {
|
|
|
|
|
if ($InfoFieldList[0] == 'categorie') {
|
|
|
|
|
$filter_categorie = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$sqlwhere = '';
|
|
|
|
|
$sql = "SELECT ".$keyList;
|
|
|
|
|
$sql .= ' FROM '.$this->db->prefix().$InfoFieldList[0];
|
|
|
|
|
if (!empty($InfoFieldList[4])) {
|
|
|
|
|
// can use SELECT request
|
|
|
|
|
if (strpos($InfoFieldList[4], '$SEL$') !== false) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
|
|
|
|
|
if ($filter_categorie === false) {
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($fields_label)) {
|
|
|
|
|
$keyList .= ', ';
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// current object id can be use into filter
|
|
|
|
|
if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', $objectid, $InfoFieldList[4]);
|
|
|
|
|
} else {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// We have to join on extrafield table
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
$sql .= ' as main, '.$this->db->prefix().$InfoFieldList[0].'_extrafields as extra';
|
|
|
|
|
$sqlwhere .= " WHERE extra.fk_object=main.".$InfoFieldList[2]." AND ".$InfoFieldList[4];
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= " WHERE ".$InfoFieldList[4];
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= ' WHERE 1=1';
|
|
|
|
|
}
|
|
|
|
|
// Some tables may have field, some other not. For the moment we disable it.
|
|
|
|
|
if (in_array($InfoFieldList[0], array('tablewithentity'))) {
|
|
|
|
|
$sqlwhere .= " AND entity = ".((int) $conf->entity);
|
|
|
|
|
}
|
|
|
|
|
// $sql.=preg_replace('/^ AND /','',$sqlwhere);
|
|
|
|
|
// print $sql;
|
|
|
|
|
|
|
|
|
|
$sql .= $sqlwhere;
|
|
|
|
|
dol_syslog(get_class($this).'::showInputField type=chkbxlst', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
|
$i = 0;
|
|
|
|
|
|
|
|
|
|
$data = array();
|
|
|
|
|
|
|
|
|
|
while ($i < $num) {
|
|
|
|
|
$labeltoshow = '';
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
|
|
|
|
|
$notrans = false;
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (count($fields_label) > 1) {
|
|
|
|
|
$notrans = true;
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$labeltoshow .= $obj->$field_toshow.' ';
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = $obj->{$InfoFieldList[1]};
|
|
|
|
|
$sqlwhere = '';
|
|
|
|
|
$sql = "SELECT " . $keyList;
|
|
|
|
|
$sql .= ' FROM ' . $this->db->prefix() . $InfoFieldList[0];
|
|
|
|
|
if (!empty($InfoFieldList[4])) {
|
|
|
|
|
// can use SELECT request
|
|
|
|
|
if (strpos($InfoFieldList[4], '$SEL$') !== false) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$SEL$', 'SELECT', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
$labeltoshow = dol_trunc($labeltoshow, 45);
|
|
|
|
|
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if ($translabel != $obj->$field_toshow) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18).' ';
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->$field_toshow, 18).' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$data[$obj->rowid] = $labeltoshow;
|
|
|
|
|
// current object id can be use into filter
|
|
|
|
|
if (strpos($InfoFieldList[4], '$ID$') !== false && !empty($objectid)) {
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', $objectid, $InfoFieldList[4]);
|
|
|
|
|
} else {
|
|
|
|
|
if (!$notrans) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->{$InfoFieldList[1]}, 18);
|
|
|
|
|
$InfoFieldList[4] = str_replace('$ID$', '0', $InfoFieldList[4]);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
// We have to join on extrafield table
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
$sql .= ' as main, ' . $this->db->prefix() . $InfoFieldList[0] . '_extrafields as extra';
|
|
|
|
|
$sqlwhere .= " WHERE extra.fk_object=main." . $InfoFieldList[2] . " AND " . $InfoFieldList[4];
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= " WHERE " . $InfoFieldList[4];
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$sqlwhere .= ' WHERE 1=1';
|
|
|
|
|
}
|
|
|
|
|
// Some tables may have field, some other not. For the moment we disable it.
|
|
|
|
|
if (in_array($InfoFieldList[0], array('tablewithentity'))) {
|
|
|
|
|
$sqlwhere .= " AND entity = " . ((int) $conf->entity);
|
|
|
|
|
}
|
|
|
|
|
// $sql.=preg_replace('/^ AND /','',$sqlwhere);
|
|
|
|
|
// print $sql;
|
|
|
|
|
|
|
|
|
|
$sql .= $sqlwhere;
|
|
|
|
|
dol_syslog(get_class($this) . '::showInputField type=chkbxlst', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$num = $this->db->num_rows($resql);
|
|
|
|
|
$i = 0;
|
|
|
|
|
|
|
|
|
|
$data = array();
|
|
|
|
|
|
|
|
|
|
while ($i < $num) {
|
|
|
|
|
$labeltoshow = '';
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
|
|
|
|
|
$notrans = false;
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (count($fields_label) > 1) {
|
|
|
|
|
$notrans = true;
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$labeltoshow .= $obj->$field_toshow . ' ';
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = $obj->{$InfoFieldList[1]};
|
|
|
|
|
}
|
|
|
|
|
if (empty($labeltoshow)) {
|
|
|
|
|
$labeltoshow = '(not defined)';
|
|
|
|
|
}
|
|
|
|
|
$labeltoshow = dol_trunc($labeltoshow, 45);
|
|
|
|
|
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if ($translabel != $obj->$field_toshow) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18) . ' ';
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->$field_toshow, 18) . ' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$data[$obj->rowid] = $labeltoshow;
|
|
|
|
|
} else {
|
|
|
|
|
if (!$notrans) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$labeltoshow = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$labeltoshow = dol_trunc($obj->{$InfoFieldList[1]}, 18);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if (empty($labeltoshow)) {
|
|
|
|
|
$labeltoshow = '(not defined)';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
$data[$obj->rowid] = $labeltoshow;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!empty($InfoFieldList[3]) && $parentField) {
|
|
|
|
|
$parent = $parentName . ':' . $obj->{$parentField};
|
|
|
|
|
$isDependList = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$data[$obj->rowid] = $labeltoshow;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
if (!empty($InfoFieldList[3]) && $parentField) {
|
|
|
|
|
$parent = $parentName.':'.$obj->{$parentField};
|
|
|
|
|
$isDependList = 1;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$data[$obj->rowid] = $labeltoshow;
|
|
|
|
|
$i++;
|
|
|
|
|
}
|
|
|
|
|
$this->db->free($resql);
|
|
|
|
|
|
|
|
|
|
$i++;
|
|
|
|
|
$out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, '', 0, $morecss, 0, '100%');
|
|
|
|
|
} else {
|
|
|
|
|
print 'Error in request ' . $sql . ' ' . $this->db->lasterror() . '. Check setup of extra parameters.<br>';
|
|
|
|
|
}
|
|
|
|
|
$this->db->free($resql);
|
|
|
|
|
|
|
|
|
|
$out = $form->multiselectarray($keyprefix.$key.$keysuffix, $data, $value_arr, '', 0, '', 0, '100%');
|
|
|
|
|
} else {
|
|
|
|
|
print 'Error in request '.$sql.' '.$this->db->lasterror().'. Check setup of extra parameters.<br>';
|
|
|
|
|
require_once DOL_DOCUMENT_ROOT.'/categories/class/categorie.class.php';
|
|
|
|
|
$data = $form->select_all_categories(Categorie::$MAP_ID_TO_CODE[$InfoFieldList[5]], '', 'parent', 64, $InfoFieldList[6], 1, 1);
|
|
|
|
|
$out = $form->multiselectarray($keyprefix . $key . $keysuffix, $data, $value_arr, '', 0, $morecss, 0, '100%');
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} elseif ($type == 'link') {
|
|
|
|
|
@ -7375,6 +7413,9 @@ abstract class CommonObject
|
|
|
|
|
} elseif (preg_match('/^sellist:(.*):(.*)/i', $val['type'], $reg)) {
|
|
|
|
|
$param['options'] = array($reg[1].':'.$reg[2] => 'N');
|
|
|
|
|
$type = 'sellist';
|
|
|
|
|
} elseif (preg_match('/^chkbxlst:(.*)/i', $val['type'], $reg)) {
|
|
|
|
|
$param['options'] = array($reg[1] => 'N');
|
|
|
|
|
$type = 'chkbxlst';
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$langfile = empty($val['langfile']) ? '' : $val['langfile'];
|
|
|
|
|
@ -7479,6 +7520,13 @@ abstract class CommonObject
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$filter_categorie = false;
|
|
|
|
|
if (count($InfoFieldList) > 5) {
|
|
|
|
|
if ($InfoFieldList[0] == 'categorie') {
|
|
|
|
|
$filter_categorie = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$sql = "SELECT ".$keyList;
|
|
|
|
|
$sql .= ' FROM '.$this->db->prefix().$InfoFieldList[0];
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
@ -7497,37 +7545,51 @@ abstract class CommonObject
|
|
|
|
|
dol_syslog(get_class($this).':showOutputField:$type=sellist', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$value = ''; // value was used, so now we reste it to use it to build final output
|
|
|
|
|
$numrows = $this->db->num_rows($resql);
|
|
|
|
|
if ($numrows) {
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
if ($filter_categorie === false) {
|
|
|
|
|
$value = ''; // value was used, so now we reste it to use it to build final output
|
|
|
|
|
$numrows = $this->db->num_rows($resql);
|
|
|
|
|
if ($numrows) {
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
|
|
|
|
|
if (is_array($fields_label) && count($fields_label) > 1) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->$field_toshow)) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if (is_array($fields_label) && count($fields_label) > 1) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->$field_toshow)) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $field_toshow) {
|
|
|
|
|
$value .= dol_trunc($translabel, 18) . ' ';
|
|
|
|
|
} else {
|
|
|
|
|
$value .= $obj->$field_toshow . ' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $field_toshow) {
|
|
|
|
|
$value .= dol_trunc($translabel, 18).' ';
|
|
|
|
|
} else {
|
|
|
|
|
$value .= $obj->$field_toshow.' ';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->{$InfoFieldList[1]})) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$value = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$value = $obj->{$InfoFieldList[1]};
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->{$InfoFieldList[1]})) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$value = dol_trunc($translabel, 18);
|
|
|
|
|
} else {
|
|
|
|
|
$value = $obj->{$InfoFieldList[1]};
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
|
|
|
|
|
|
|
|
|
|
$toprint = array();
|
|
|
|
|
$obj = $this->db->fetch_object($resql);
|
|
|
|
|
$c = new Categorie($this->db);
|
|
|
|
|
$c->fetch($obj->rowid);
|
|
|
|
|
$ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
|
|
|
|
|
foreach ($ways as $way) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories"' . ($c->color ? ' style="background: #' . $c->color . ';"' : ' style="background: #aaa"') . '>' . img_object('', 'category') . ' ' . $way . '</li>';
|
|
|
|
|
}
|
|
|
|
|
$value = '<div class="select2-container-multi-dolibarr" style="width: 90%;"><ul class="select2-choices-dolibarr">'.implode(' ', $toprint).'</ul></div>';
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
dol_syslog(get_class($this).'::showOutputField error '.$this->db->lasterror(), LOG_WARNING);
|
|
|
|
|
@ -7564,6 +7626,13 @@ abstract class CommonObject
|
|
|
|
|
$keyList .= implode(', ', $fields_label);
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$filter_categorie = false;
|
|
|
|
|
if (count($InfoFieldList) > 5) {
|
|
|
|
|
if ($InfoFieldList[0] == 'categorie') {
|
|
|
|
|
$filter_categorie = true;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
$sql = "SELECT ".$keyList;
|
|
|
|
|
$sql .= ' FROM '.$this->db->prefix().$InfoFieldList[0];
|
|
|
|
|
if (strpos($InfoFieldList[4], 'extra') !== false) {
|
|
|
|
|
@ -7575,33 +7644,49 @@ abstract class CommonObject
|
|
|
|
|
dol_syslog(get_class($this).':showOutputField:$type=chkbxlst', LOG_DEBUG);
|
|
|
|
|
$resql = $this->db->query($sql);
|
|
|
|
|
if ($resql) {
|
|
|
|
|
$value = ''; // value was used, so now we reste it to use it to build final output
|
|
|
|
|
$toprint = array();
|
|
|
|
|
while ($obj = $this->db->fetch_object($resql)) {
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
if (is_array($fields_label) && count($fields_label) > 1) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->$field_toshow)) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
if ($filter_categorie === false) {
|
|
|
|
|
$value = ''; // value was used, so now we reste it to use it to build final output
|
|
|
|
|
$toprint = array();
|
|
|
|
|
while ($obj = $this->db->fetch_object($resql)) {
|
|
|
|
|
// Several field into label (eq table:code|libelle:rowid)
|
|
|
|
|
$fields_label = explode('|', $InfoFieldList[1]);
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
if (is_array($fields_label) && count($fields_label) > 1) {
|
|
|
|
|
foreach ($fields_label as $field_toshow) {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->$field_toshow)) {
|
|
|
|
|
$translabel = $langs->trans($obj->$field_toshow);
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $field_toshow) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . dol_trunc($translabel, 18) . '</li>';
|
|
|
|
|
} else {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $obj->$field_toshow . '</li>';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $field_toshow) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">'.dol_trunc($translabel, 18).'</li>';
|
|
|
|
|
} else {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">'.$obj->$field_toshow.'</li>';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->{$InfoFieldList[1]})) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">'.dol_trunc($translabel, 18).'</li>';
|
|
|
|
|
} else {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">'.$obj->{$InfoFieldList[1]}.'</li>';
|
|
|
|
|
$translabel = '';
|
|
|
|
|
if (!empty($obj->{$InfoFieldList[1]})) {
|
|
|
|
|
$translabel = $langs->trans($obj->{$InfoFieldList[1]});
|
|
|
|
|
}
|
|
|
|
|
if ($translabel != $obj->{$InfoFieldList[1]}) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . dol_trunc($translabel, 18) . '</li>';
|
|
|
|
|
} else {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories" style="background: #bbb">' . $obj->{$InfoFieldList[1]} . '</li>';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
require_once DOL_DOCUMENT_ROOT . '/categories/class/categorie.class.php';
|
|
|
|
|
|
|
|
|
|
$toprint = array();
|
|
|
|
|
while ($obj = $this->db->fetch_object($resql)) {
|
|
|
|
|
if (is_array($value_arr) && in_array($obj->rowid, $value_arr)) {
|
|
|
|
|
$c = new Categorie($this->db);
|
|
|
|
|
$c->fetch($obj->rowid);
|
|
|
|
|
$ways = $c->print_all_ways(); // $ways[0] = "ccc2 >> ccc2a >> ccc2a1" with html formatted text
|
|
|
|
|
foreach ($ways as $way) {
|
|
|
|
|
$toprint[] = '<li class="select2-search-choice-dolibarr noborderoncategories"' . ($c->color ? ' style="background: #' . $c->color . ';"' : ' style="background: #aaa"') . '>' . img_object('', 'category') . ' ' . $way . '</li>';
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|