| 448 |
ddelon |
1 |
<?php
|
|
|
2 |
// +--------------------------------------------------------------------------------+
|
|
|
3 |
// | fonctions.php |
|
|
|
4 |
// +--------------------------------------------------------------------------------+
|
|
|
5 |
// | Copyright (c) 2002 Tela Botanica |
|
|
|
6 |
// +--------------------------------------------------------------------------------+
|
|
|
7 |
// | Fonctions diverses |
|
|
|
8 |
// +--------------------------------------------------------------------------------+
|
|
|
9 |
// | Auteur : Alexandre Granier <alexandre@tela-botanica.org> |
|
|
|
10 |
// +--------------------------------------------------------------------------------+
|
|
|
11 |
//
|
|
|
12 |
// $Id: fonctions.php,v 1.1 2005-09-22 14:02:49 ddelon Exp $
|
|
|
13 |
|
|
|
14 |
// effectue une requete sur un colonne unique et renvoie le resultat sous la forme
|
|
|
15 |
// d'un tableau
|
|
|
16 |
|
|
|
17 |
function get($query) {
|
|
|
18 |
$tableau = array() ;
|
|
|
19 |
$query = "SELECT " . $query;
|
|
|
20 |
$result = mysql_query($query) or die ("Echec de la requête sur AGORA");
|
|
|
21 |
while ($row = mysql_fetch_row($result)) {
|
|
|
22 |
array_push ($tableau,$row[0]);
|
|
|
23 |
}
|
|
|
24 |
|
|
|
25 |
return $tableau ;
|
|
|
26 |
}
|
|
|
27 |
|
|
|
28 |
function textecourt($texte, $taille) {
|
|
|
29 |
if (strlen($texte) > $taille) return substr($texte, 0, $taille-3)."...";
|
|
|
30 |
return $texte;
|
|
|
31 |
}
|
|
|
32 |
|
|
|
33 |
// formulaire, prend en parametre les valeurs par defaut
|
|
|
34 |
|
|
|
35 |
function formulaire($titre="",$description="", $abreviation="", $internet="", $selectedForums="", $selectedProjet="",$origine="NOUVEAU") {
|
|
|
36 |
global $baseURL, $forums, $projets, $projetAb ;
|
|
|
37 |
$forums = get("AGO_A_ALIAS FROM agora") ;
|
|
|
38 |
$IDforums = get ("AGO_A_ID FROM agora");
|
|
|
39 |
$projets = get("TITRE FROM PROJET_PROJET ORDER BY ABREVIATION");
|
|
|
40 |
$projetAb = get("ABREVIATION FROM PROJET_PROJET ORDER BY ABREVIATION") ;
|
|
|
41 |
if ($selectedForums == "") $selectedForums = array() ;
|
|
|
42 |
if ($selectedProjet == "") $selectedProjet = array() ;
|
|
|
43 |
$res ="<table>\n";
|
|
|
44 |
if ($origine == "NOUVEAU") {
|
|
|
45 |
$res .="<form action=\"$baseURL&menuProjet=projetadm&action=2\" method=\"post\">\n";
|
|
|
46 |
} else {
|
|
|
47 |
$res .="<form action=\"$baseURL&menuProjet=projetgest&projet=$abreviation&action=2\" method=\"post\">\n";
|
|
|
48 |
}
|
|
|
49 |
$res .="<tr class=\"text\"><td style=\"text-align:right;font-weight:bold;\">Titre :</td><td><input type=\"text\"
|
|
|
50 |
class=\"insInputForm\" name=\"titre\" size=\"60\" value=\"$titre\"></td></tr>\n";
|
|
|
51 |
$res .="<tr class=\"text\"><td valign=\"top\" style=\"text-align:right;font-weight:bold;\">Description :</td><td><textarea name=\"description\"
|
|
|
52 |
class=\"insInputForm\" cols=\"60\" rows=\"20\">$description</textarea></td></tr>\n";
|
|
|
53 |
if ($origine == "NOUVEAU") {
|
|
|
54 |
$res .="<tr class=\"text\"><td style=\"text-align:right;font-weight:bold;\">Abréviation :</td>\n";
|
|
|
55 |
$res .="<td><input class=\"insInputForm\" type=\"text\" name=\"abreviation\" size=\"5\" value=\"$abreviation\"> ";
|
|
|
56 |
$res .=" Au maximum 5 caractères, de préférence en majuscule.</td></tr>\n";
|
|
|
57 |
}
|
|
|
58 |
$res .="<tr class=\"text\"><td style=\"text-align:right;font-weight:bold;\">Espace Internet :</td>\n";
|
|
|
59 |
$res .="<td><input class=\"insInputForm\" type=\"text\" name=\"internet\" size=\"60\" value=\"$internet\"></td></tr>\n";
|
|
|
60 |
$res .="<tr class=\"text\"><td valign=\"top\" style=\"text-align:right;font-weight:bold;\">Forums associés :</td><td><select class=\"insInputForm\" name=forumsS[] size=\"";
|
|
|
61 |
$res .=count($forums);
|
|
|
62 |
$res .="\" multiple>\n";
|
|
|
63 |
for ($i = 0 ; $i < count($forums) ; $i++) {
|
|
|
64 |
$res .="<option value=\"$IDforums[$i]\"";
|
|
|
65 |
if (in_array($forums[$i],$selectedForums)) $res .=" selected";
|
|
|
66 |
$res .=">";
|
|
|
67 |
$res .=$forums[$i];
|
|
|
68 |
$res .="</option>\n";
|
|
|
69 |
}
|
|
|
70 |
$res .="</select>\n";
|
|
|
71 |
$res .="<tr class=\"text\"><td valign=\"top\" style=\"text-align:right;font-weight:bold;\">Projets associés :</td>\n<td><select class=\"insInputForm\" name=projetsS[] size=\"";
|
|
|
72 |
$res .=count($projets);
|
|
|
73 |
$res .="\" multiple>\n";
|
|
|
74 |
for ($i = 0 ; $i < count($projets) ; $i++) {
|
|
|
75 |
$res .="<option value=\"";
|
|
|
76 |
$res .=$projetAb[$i];
|
|
|
77 |
$res .="\"";
|
|
|
78 |
if (in_array($projetAb[$i],$selectedProjet)) $res .=" selected";
|
|
|
79 |
$res .=">";
|
|
|
80 |
$res .=$projets[$i];
|
|
|
81 |
$res .="</option>\n";
|
|
|
82 |
}
|
|
|
83 |
$res .="</select></td></tr>\n";
|
|
|
84 |
$res .="<tr><td colspan=\"2\" align=\"center\">\n";
|
|
|
85 |
if ($origine != "NOUVEAU") $res .="<input style=\"background-color:#FFFFFF\" type=\"button\" onclick=\"Javascript:history.go(-1);\" value=\"Annuler\">\n" ;
|
|
|
86 |
$res .="<input style=\"background-color:#FFFFFF\" type=\"submit\"";
|
|
|
87 |
|
|
|
88 |
if ($origine == "NOUVEAU") {
|
|
|
89 |
$res .=" value=\"Créer\">";
|
|
|
90 |
} else { $res .=" value=\"Valider\">";
|
|
|
91 |
}
|
|
|
92 |
$res .="</td></tr>\n";
|
|
|
93 |
$res .="</form>\n";
|
|
|
94 |
$res .="</table>\n";
|
|
|
95 |
return $res ;
|
|
|
96 |
}
|
|
|
97 |
|
|
|
98 |
function getExtension($filename) {
|
|
|
99 |
$extension = explode (".",$filename) ;
|
|
|
100 |
return $extension[1] ;
|
|
|
101 |
}
|
|
|
102 |
|
|
|
103 |
#--------------------------------------------------------------
|
|
|
104 |
# Insere $num espace insecable
|
|
|
105 |
#--------------------------------------------------------------
|
|
|
106 |
|
|
|
107 |
function insert_spaces($num) {
|
|
|
108 |
$res = "" ;
|
|
|
109 |
for ($i = 0; $i < $num; $i++) $res .= " ";
|
|
|
110 |
return $res ;
|
|
|
111 |
}
|
|
|
112 |
|
|
|
113 |
function getEnumSet($text) {
|
|
|
114 |
$resultat = explode("'", $text) ;
|
|
|
115 |
$retour = array() ; $j = 0 ;
|
|
|
116 |
for ($i = 1 ; $i < count ($resultat)-1 ; $i = $i + 2) {
|
|
|
117 |
$retour[$j] = $resultat[$i] ;
|
|
|
118 |
$j++ ;
|
|
|
119 |
}
|
|
|
120 |
return $retour ;
|
|
|
121 |
}
|
|
|
122 |
|
|
|
123 |
$jour = array("lundi","mardi", "mercredi", "jeudi", "vendredi", "samedi","dimanche");
|
|
|
124 |
$moi = array("janvier","février","mars","avril","mai","juin","juillet","septembre","octobre","novembre","décembre") ;
|
|
|
125 |
|
|
|
126 |
function parcourrirAnnu($event) {
|
|
|
127 |
global $baseURL, $lettre, $menuProjet ;
|
|
|
128 |
$outputText = "" ;
|
|
|
129 |
$outputText .= "<tr><td> </td></tr>\n";
|
|
|
130 |
$outputText .= "<tr><td><table align=\"center\">";
|
|
|
131 |
$outputText .= "<tr class=\"texte_tb\">";
|
|
|
132 |
// ecrire toutes les lettres avec un lien
|
|
|
133 |
for ($i = 65 ; $i <91 ; $i++) {
|
|
|
134 |
$outputText .= "\t<td><a style=\"font-size:15px;\" href=\"$baseURL&menuProjet=$menuProjet&action=$event&lettre=";
|
|
|
135 |
$outputText .= chr($i) ;
|
|
|
136 |
$outputText .= "\">";
|
|
|
137 |
$outputText .= chr($i) ;
|
|
|
138 |
$outputText .= "</a></td>\n";
|
|
|
139 |
}
|
|
|
140 |
$outputText .= "<td> <a href=\"$baseURL&menuProjet=$menuProjet&action=$event&lettre=tous\">Tous</a></td>\n" ;
|
|
|
141 |
$outputText .= "</tr></table></td></tr>\n";
|
|
|
142 |
|
|
|
143 |
// si une lettre est selectionne
|
|
|
144 |
if (!empty($lettre)) {
|
|
|
145 |
$query = "SELECT annuaire_tela.U_NAME,annuaire_tela.U_SURNAME,annuaire_tela.U_MAIL,annuaire_tela.U_CITY,
|
|
|
146 |
annuaire_tela.U_ZIP_CODE,gen_COUNTRY.GC_NAME FROM annuaire_tela,gen_COUNTRY WHERE";
|
|
|
147 |
if ($lettre != "tous") $query .= " U_NAME LIKE \"$lettre%\" AND" ;
|
|
|
148 |
$query .= " annuaire_tela.U_COUNTRY=gen_COUNTRY.GC_ID AND gen_COUNTRY.GC_LOCALE=\"fr\"
|
|
|
149 |
AND U_NAME<>\"\" and U_SHOW=3 ORDER BY U_NAME" ;
|
|
|
150 |
$result = mysql_query($query) or die ("Echec de la requête sur annuaire_tela...");
|
|
|
151 |
if (mysql_num_rows($result) != 0) {
|
|
|
152 |
// pour chaque nom, on inscrit les infos
|
|
|
153 |
$outputText .= "<tr><td> </td></tr>\n";
|
|
|
154 |
$outputText .= "<tr class=\"insTitle1\"><td>Liste des inscrits à la lettre : $lettre</td></tr>\n";
|
|
|
155 |
$outputText .= "<tr><td><table width=\"100%\">";
|
|
|
156 |
$outputText .= "<tr class=\"insTitle1\"><td>Nom</td>";
|
|
|
157 |
$outputText .= "<td>Prénom</td><td align=\"center\">E-mail</td>\n";
|
|
|
158 |
$outputText .= "<td align=\"center\">Code postal</td><td>Pays</td></tr>\n";
|
|
|
159 |
$pair = true ;
|
|
|
160 |
while ($row = mysql_fetch_object($result)) {
|
|
|
161 |
$outputText .= "<tr class=\"texte_tb2\"";
|
|
|
162 |
if ($pair) {
|
|
|
163 |
$outputText .= " bgcolor=\"#E8FFE5\"";
|
|
|
164 |
$pair = false ;
|
|
|
165 |
} else {
|
|
|
166 |
$pair = true ;
|
|
|
167 |
}
|
|
|
168 |
$outputText .= "><td>$row->U_NAME</td><td>$row->U_SURNAME</td>\n";
|
|
|
169 |
$outputText .= "<td align=\"left\"><a href=\"mailto:$row->U_MAIL\">$row->U_MAIL</a></td>\n";
|
|
|
170 |
$outputText .= "<td align=\"center\">$row->U_ZIP_CODE</td>\n";
|
|
|
171 |
$outputText .= "<td>$row->GC_NAME</td>\n" ;
|
|
|
172 |
$outputText .= "</tr>\n";
|
|
|
173 |
}
|
|
|
174 |
$outputText .= "</table></td></tr>\n";
|
|
|
175 |
} else {
|
|
|
176 |
$outputText .= "<tr><td> </td></tr>\n";
|
|
|
177 |
$outputText .= "<tr class=\"texte_tb\"><td>Pas d'inscrit</td></tr>\n";
|
|
|
178 |
}
|
|
|
179 |
}
|
|
|
180 |
return $outputText ;
|
|
|
181 |
|
|
|
182 |
}
|
|
|
183 |
function formRep($nom="", $description="", $origine="NOUVEAU", $visibilite="") {
|
|
|
184 |
global $baseURL, $projet, $repcourant, $id ;
|
|
|
185 |
if ($origine == "NOUVEAU") {
|
|
|
186 |
$res = "<form action=$baseURL&action=20\" method=\"post\">\n" ;
|
|
|
187 |
} else {
|
|
|
188 |
$res = "<form action=$baseURL&action=19\" method=\"post\"\n>" ;
|
|
|
189 |
}
|
|
|
190 |
$res .= "\t<table align=\"center\">\n\t" ;
|
|
|
191 |
$res .= "<tr class=\"texte_tb\"><td colspan=\"2\">N'utilisez pas d'accents, ni d'espace pour le nom du répertoire.</td></tr>\n";
|
|
|
192 |
$res .= "<tr class=\"text\"><td style=\"font-weight:bold;text-align:right\">" ;
|
|
|
193 |
$res .= "Nom : </td><td><input class=\"insInputForm\" type=\"text\" name=\"nom\" size=\"80\" value=\"$nom\"></td></tr>\n" ;
|
|
|
194 |
$res .= "<tr class=\"text\"><td style=\"font-weight:bold;text-align:right;vertical-align:top\">Description : </td>\n" ;
|
|
|
195 |
$res .= "<td><textarea class=\"insInputForm\" name=\"description\" cols=\"81\">$description</textarea></td></tr>\n" ;
|
|
|
196 |
$res .= "<tr class=\"text\"><td align=\"right\"><b>Visibilité :</b></td>\n";
|
|
|
197 |
$res .= "<td align=\"left\">\n";
|
|
|
198 |
$res .= "<input style=\"background-color:#FFFFFF;\" type=\"radio\" name=\"visible\" value=\"public\"" ;
|
|
|
199 |
if ($visibilite == "public" or $visibilite == "") $res .= " checked" ;
|
|
|
200 |
$res .= ">Tout public ";
|
|
|
201 |
$res .= "<input style=\"background-color:#FFFFFF;\" type=\"radio\" name=\"visible\" value=\"prive\"" ;
|
|
|
202 |
if ($visibilite == "prive") $res.= " checked" ;
|
|
|
203 |
$res .= ">Projet seulement</td></tr>\n";
|
|
|
204 |
$res .= "<tr class=\"text\"><td><input type=\"hidden\" name=\"repcourant\" value=\"$repcourant\"</td><td>\n" ;
|
|
|
205 |
$res .= "<input type=\"hidden\" name=\"id\" value=\"$id\">" ;
|
|
|
206 |
$res .= "<input type=\"submit\" style=\"background-color:#FFFFFF;\"" ;
|
|
|
207 |
if ($origine == "NOUVEAU") { $res.= "value=\"Valider\"" ; } else { $res .= "value=\"Modifier\"" ; }
|
|
|
208 |
$res .= "></td></tr></table></form>\n" ;
|
|
|
209 |
return $res ;
|
|
|
210 |
}
|
|
|
211 |
|
|
|
212 |
// renvoie le chemin complet depuis la racine de l'application
|
|
|
213 |
// on indique en argument l'identifiant du repertoire en cour
|
|
|
214 |
// la fonction remonte d'etage en etage jusqu'a ce que gen_voiraussi.PERE soit NULL
|
|
|
215 |
function getPath($ID_rep) {
|
|
|
216 |
$path = "" ;
|
|
|
217 |
$query = "SELECT PERE,NOM FROM gen_repertoire WHERE ID='$ID_rep'" ;
|
|
|
218 |
$result = mysql_query($query) or die ("Echec de la requête dans gen_voiraussi, au cours de la recherche
|
|
|
219 |
du chemin des repertoire") ;
|
|
|
220 |
$row = mysql_fetch_object($result) ;
|
|
|
221 |
|
|
|
222 |
if ($row->PERE != NULL) {
|
|
|
223 |
$path .= getPath($row->PERE)."/".$row->NOM ;
|
|
|
224 |
}
|
|
|
225 |
return $path ;
|
|
|
226 |
}
|
|
|
227 |
|
|
|
228 |
|
|
|
229 |
// renvoie le chemin avec les tag <a href
|
|
|
230 |
|
|
|
231 |
function getHTMLPath($ID_rep) {
|
|
|
232 |
global $baseURL ;
|
|
|
233 |
$query = "SELECT PERE,NOM FROM gen_repertoire WHERE ID='$ID_rep'" ;
|
|
|
234 |
$result = mysql_query($query) or die ("Echec de la requête dans gen_voiraussi, au cours de la recherche
|
|
|
235 |
du chemin des repertoire") ;
|
|
|
236 |
$row = mysql_fetch_object($result) ;
|
|
|
237 |
|
|
|
238 |
if ($row->PERE != NULL) {
|
|
|
239 |
$path .= " <b>></b><a href=\"$baseURL&repcourant=$ID_rep\">" ;
|
|
|
240 |
$path .= $row->NOM ;
|
|
|
241 |
$path .= "</a>\n" ;
|
|
|
242 |
$path = getHTMLPath($row->PERE).$path ;
|
|
|
243 |
}
|
|
|
244 |
return $path ;
|
|
|
245 |
}
|
|
|
246 |
|
|
|
247 |
function nettoieAccent(&$texte) {
|
|
|
248 |
|
|
|
249 |
// un peu barbare
|
|
|
250 |
$texte = ereg_replace("é","e",$texte) ;
|
|
|
251 |
$texte = ereg_replace("è","e",$texte) ;
|
|
|
252 |
$texte = ereg_replace("ê","e",$texte) ;
|
|
|
253 |
$texte = ereg_replace("à","a",$texte) ;
|
|
|
254 |
$texte = ereg_replace("ù","u",$texte) ;
|
|
|
255 |
$texte = ereg_replace("â","a",$texte) ;
|
|
|
256 |
$texte = ereg_replace("ä","a",$texte) ;
|
|
|
257 |
$texte = ereg_replace("ë","e",$texte) ;
|
|
|
258 |
$texte = ereg_replace("î","i",$texte) ;
|
|
|
259 |
$texte = ereg_replace("ô","o",$texte) ;
|
|
|
260 |
$texte = ereg_replace("û","u",$texte) ;
|
|
|
261 |
$texte = ereg_replace("ö","o",$texte) ;
|
|
|
262 |
$texte = ereg_replace("ü","u",$texte) ;
|
|
|
263 |
|
|
|
264 |
return $texte ;
|
|
|
265 |
}
|
|
|
266 |
|
|
|
267 |
?>
|