36 global
$conf, $langs, $db;
39 require_once DOL_DOCUMENT_ROOT.
'/core/class/html.formother.class.php';
43 $dirskins = array(
'/includes/ckeditor/ckeditor/skins');
44 if (!empty(
$conf->modules_parts[
'theme'])) {
45 foreach (
$conf->modules_parts[
'theme'] as $reldir) {
46 $dirskins = array_merge($dirskins, (array) ($reldir.
'theme'));
49 $dirskins = array_unique($dirskins);
57 print
'<table class="noborder centpercent">';
62 print
'<tr class="liste_titre"><th width="35%">'.$langs->trans(
"DefaultSkin").
'</th>';
63 print
'<th class="right">';
66 print
'<tr class="oddeven">';
67 print
'<td>'.$langs->trans(
"ThemeDir").
'</td>';
69 foreach ($dirskins as $dirskin) {
70 echo
'"'.$dirskin.
'" ';
76 print
'<tr class="oddeven"><td colspan="'.$colspan.
'">';
78 print
'<table class="nobordernopadding" width="100%"><tr><td><div class="center">';
81 foreach ($dirskins as $dir) {
86 if (is_dir($dirskin)) {
87 $handle = opendir($dirskin);
88 if (is_resource($handle)) {
89 while (($subdir = readdir($handle)) !==
false) {
90 if (is_dir($dirskin.
"/".$subdir) && substr($subdir, 0, 1) !=
'.'
91 && substr($subdir, 0, 3) !=
'CVS' && !preg_match(
'/common|phones/i', $subdir)) {
93 if (
getDolGlobalInt(
'MAIN_FEATURES_LEVEL') < 2 && preg_match(
'/_dev$/i', $subdir)) {
96 if (
getDolGlobalInt(
'MAIN_FEATURES_LEVEL') < 1 && preg_match(
'/_exp$/i', $subdir)) {
100 print
'<div class="inline-block" style="margin-top: 10px; margin-bottom: 10px; margin-right: 20px; margin-left: 20px;">';
101 if ($subdir == $selected_theme) {
102 print
'<input '.($edit ?
'' :
'disabled').
' type="radio" '.$bc[$var].
' style="border: 0px;" checked name="fckeditor_skin" value="'.$subdir.
'"> <b>'.$subdir.
'</b>';
104 print
'<input '.($edit ?
'' :
'disabled').
' type="radio" '.$bc[$var].
' style="border: 0px;" name="fckeditor_skin" value="'.$subdir.
'"> '.$subdir;
115 print
'</div></td></tr></table>';
show_skin($fuser, $edit=0)
Show list of ckeditor's themes.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
dol_buildpath($path, $type=0, $returnemptyifnotfound=0)
Return path of url or filesystem.
getDolGlobalString($key, $default='')
Return a Dolibarr global constant string value.
global $conf
The following vars must be defined: $type2label $form $conf, $lang, The following vars may also be de...