';
+
+// Form to add a new line
+$alabelisused=0;
+$var=false;
+
+$fieldlist=explode(',',$tabfield[$id]);
+
+if ($action != 'edit')
+{
+ // Line for title
+ print '';
+ foreach ($fieldlist as $field => $value)
+ {
+ // Determine le nom du champ par rapport aux noms possibles
+ // dans les dictionnaires de donnees
+ $valuetoshow=ucfirst($fieldlist[$field]); // Par defaut
+ $valuetoshow=$langs->trans($valuetoshow); // try to translate
+ $align="left";
+ if ($fieldlist[$field]=='lang') { $valuetoshow=$langs->trans("Language"); }
+ if ($fieldlist[$field]=='type') { $valuetoshow=$langs->trans("Type"); }
+ if ($fieldlist[$field]=='code') { $valuetoshow=$langs->trans("Code"); }
+ if ($fieldlist[$field]=='libelle' || $fieldlist[$field]=='label') { $valuetoshow=$langs->trans("Label"); }
+ if ($fieldlist[$field]=='type_template') { $valuetoshow=$langs->trans("TypeOfTemplate"); }
+ if ($fieldlist[$field]=='content') { $valuetoshow=''; }
+ if ($fieldlist[$field]=='content_lines') { $valuetoshow=''; }
+
+ if ($valuetoshow != '')
+ {
+ print '';
+ if (! empty($tabhelp[$id][$value]) && preg_match('/^http(s*):/i',$tabhelp[$id][$value])) print ''.$valuetoshow.' '.img_help(1,$valuetoshow).' ';
+ else if (! empty($tabhelp[$id][$value])) print $form->textwithpicto($valuetoshow,$tabhelp[$id][$value]);
+ else print $valuetoshow;
+ print ' ';
+ }
+ if ($fieldlist[$field]=='libelle' || $fieldlist[$field]=='label') $alabelisused=1;
+ }
+
+ print '';
+ print ' ';
+ print ' ';
+
+ // Line to enter new values
+ print "";
+
+ $obj = new stdClass();
+ // If data was already input, we define them in obj to populate input fields.
+ if (GETPOST('actionadd'))
+ {
+ foreach ($fieldlist as $key=>$val)
+ {
+ if (GETPOST($val) != '')
+ $obj->$val=GETPOST($val);
+ }
+ }
+
+ $tmpaction = 'create';
+ $parameters=array('fieldlist'=>$fieldlist, 'tabname'=>$tabname[$id]);
+ $reshook=$hookmanager->executeHooks('createDictionaryFieldlist',$parameters, $obj, $tmpaction); // Note that $action and $object may have been modified by some hooks
+ $error=$hookmanager->error; $errors=$hookmanager->errors;
+
+ if (empty($reshook))
+ {
+ if ($tabname[$id] == MAIN_DB_PREFIX.'c_email_templates' && $action == 'edit')
+ {
+ fieldList($fieldlist,$obj,$tabname[$id],'hide');
+ }
+ else
+ {
+ fieldList($fieldlist,$obj,$tabname[$id],'add');
+ }
+ }
+
+ print '';
+ print ' ';
+ print " ";
+
+ $fieldsforcontent = array('content');
+ if (! empty($conf->global->MAIN_EMAIL_TEMPLATES_FOR_OBJECT_LINES))
+ {
+ $fieldsforcontent = array('content', 'content_lines');
+ }
+ foreach ($fieldsforcontent as $tmpfieldlist)
+ {
+ print '';
+ if ($tmpfieldlist == 'content')
+ {
+ print ''.$form->textwithpicto($langs->trans("Content"),$tabhelp[$id][$tmpfieldlist]).' ';
+ if ($tmpfieldlist == 'content')
+ {
+ print '';
+ if ($action != 'edit')
+ {
+ print ' ';
+ }
+ //else print ' ';
+ print_fleche_navigation($page, $_SERVER["PHP_SELF"], $paramwithsearch, ($num > $listlimit), '');
+ print ' ';
+ foreach ($fieldlist as $field => $value)
+ {
+ // Determine le nom du champ par rapport aux noms possibles
+ // dans les dictionnaires de donnees
+ $showfield=1; // By defaut
+ $align="left";
+ $sortable=1;
+ $valuetoshow='';
+ /*
+ $tmparray=getLabelOfField($fieldlist[$field]);
+ $showfield=$tmp['showfield'];
+ $valuetoshow=$tmp['valuetoshow'];
+ $align=$tmp['align'];
+ $sortable=$tmp['sortable'];
+ */
+ $valuetoshow=ucfirst($fieldlist[$field]); // By defaut
+ $valuetoshow=$langs->trans($valuetoshow); // try to translate
+ if ($fieldlist[$field]=='lang') { $valuetoshow=$langs->trans("Language"); }
+ if ($fieldlist[$field]=='type') { $valuetoshow=$langs->trans("Type"); }
+ if ($fieldlist[$field]=='libelle' || $fieldlist[$field]=='label') { $valuetoshow=$langs->trans("Label"); }
+ if ($fieldlist[$field]=='type_template') { $valuetoshow=$langs->trans("TypeOfTemplate"); }
+ if ($fieldlist[$field]=='content') { $valuetoshow=$langs->trans("Content"); $showfield=0;}
+ if ($fieldlist[$field]=='content_lines') { $valuetoshow=$langs->trans("ContentLines"); $showfield=0; }
+
+ // Affiche nom du champ
+ if ($showfield)
+ {
+ if (! empty($tabhelp[$id][$value])) $valuetoshow = $form->textwithpicto($valuetoshow,$tabhelp[$id][$value]);
+ print getTitleFieldOfList($valuetoshow, 0, $_SERVER["PHP_SELF"], ($sortable?$fieldlist[$field]:''), ($page?'page='.$page.'&':''), $param, "align=".$align, $sortfield, $sortorder);
+ }
+ }
+
+ print getTitleFieldOfList($langs->trans("Status"), 0, $_SERVER["PHP_SELF"], "active", ($page?'page='.$page.'&':''), $param, 'align="center"', $sortfield, $sortorder);
+ print getTitleFieldOfList('');
+ print getTitleFieldOfList('');
+ print ' ';
+
+ // Title line with search boxes
+ print '';
+ $filterfound=0;
+ foreach ($fieldlist as $field => $value)
+ {
+ if (! in_array($field, array('content', 'content_lines'))) print ' ';
+
+ if ($num)
+ {
+ // Lines with values
+ while ($i < $num)
+ {
+ $var = ! $var;
+
+ $obj = $db->fetch_object($resql);
+ //print_r($obj);
+ print '';
+ if ($action == 'edit' && ($rowid == (! empty($obj->rowid)?$obj->rowid:$obj->code)))
+ {
+ $tmpaction='edit';
+ $parameters=array('fieldlist'=>$fieldlist, 'tabname'=>$tabname[$id]);
+ $reshook=$hookmanager->executeHooks('editDictionaryFieldlist',$parameters,$obj, $tmpaction); // Note that $action and $object may have been modified by some hooks
+ $error=$hookmanager->error; $errors=$hookmanager->errors;
+
+ // Show fields
+ if (empty($reshook)) fieldList($fieldlist,$obj,$tabname[$id],'edit');
+
+ print '';
+ print '
';
+ print ' ';
+
+ $fieldsforcontent = array('content');
+ if (! empty($conf->global->MAIN_EMAIL_TEMPLATES_FOR_OBJECT_LINES))
+ {
+ $fieldsforcontent = array('content', 'content_lines');
+ }
+ foreach ($fieldsforcontent as $tmpfieldlist)
+ {
+ $showfield = 1;
+ $align = "left";
+ $valuetoshow = $obj->{$tmpfieldlist};
+
+ $class = 'tddict';
+ // Show value for field
+ if ($showfield) {
+
+ print ' '; // To create an artificial CR for the current tr we are on
+ $okforextended = true;
+ if (empty($conf->global->FCKEDITOR_ENABLE_MAIL))
+ $okforextended = false;
+ $doleditor = new DolEditor($tmpfieldlist.'-'.($i+1), (! empty($obj->{$tmpfieldlist}) ? $obj->{$tmpfieldlist} : ''), '', 140, 'dolibarr_mailings', 'In', 0, false, $okforextended, ROWS_6, '90%');
+ print $doleditor->Create(1);
+ print ' ';
+ print ''.$valuetoshow.' ';
+ }
+ }
+ }
+
+ // Can an entry be erased or disabled ?
+ $iserasable=1;$canbedisabled=1;$canbemodified=1; // true by default
+ $canbemodified=$iserasable;
+
+ $url = $_SERVER["PHP_SELF"].'?'.($page?'page='.$page.'&':'').'sortfield='.$sortfield.'&sortorder='.$sortorder.'&rowid='.(! empty($obj->rowid)?$obj->rowid:(! empty($obj->code)?$obj->code:'')).'&code='.(! empty($obj->code)?urlencode($obj->code):'');
+ if ($param) $url .= '&'.$param;
+ $url.='&';
+
+ // Active
+ print '';
+ if ($canbedisabled) print ''.$actl[$obj->active].' ';
+ else
+ {
+ if (in_array($obj->code, array('AC_OTH','AC_OTH_AUTO'))) print $langs->trans("AlwaysActive");
+ else if (isset($obj->type) && in_array($obj->type, array('systemauto')) && empty($obj->active)) print $langs->trans("Deprecated");
+ else if (isset($obj->type) && in_array($obj->type, array('system')) && ! empty($obj->active) && $obj->code != 'AC_OTH') print $langs->trans("UsedOnlyWithTypeOption");
+ else print $langs->trans("AlwaysActive");
+ }
+ print " ";
+
+ // Modify link
+ if ($canbemodified) print ''.img_edit().' ';
+
+ // Delete link
+ if ($iserasable)
+ {
+ print '';
+ if ($user->admin) print ''.img_delete().' ';
+ //else print ''.img_delete().' '; // Some dictionnary can be edited by other profile than admin
+ print ' ';
+ }
+ else print ' ';
+
+ /*
+ $fieldsforcontent = array('content');
+ if (! empty($conf->global->MAIN_EMAIL_TEMPLATES_FOR_OBJECT_LINES))
+ {
+ $fieldsforcontent = array('content', 'content_lines');
+ }
+ foreach ($fieldsforcontent as $tmpfieldlist)
+ {
+ $showfield = 1;
+ $align = "left";
+ $valuetoshow = $obj->{$tmpfieldlist};
+
+ $class = 'tddict';
+ // Show value for field
+ if ($showfield) {
+
+ print ''; // To create an artificial CR for the current tr we are on
+ $okforextended = true;
+ if (empty($conf->global->FCKEDITOR_ENABLE_MAIL))
+ $okforextended = false;
+ $doleditor = new DolEditor($tmpfieldlist.'-'.$i, (! empty($obj->{$tmpfieldlist}) ? $obj->{$tmpfieldlist} : ''), '', 140, 'dolibarr_mailings', 'In', 0, false, $okforextended, ROWS_6, '90%', 1);
+ print $doleditor->Create(1);
+ print ' ';
+ print '
';
+
+print '