3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
14 include_spip('base/abstract_sql');
16 // http://doc.spip.org/@formulaires_editer_objet_traiter
17 function formulaires_editer_objet_traiter($type, $id='new', $id_parent=0, $lier_trad=0, $retour='', $config_fonc='articles_edit_config', $row=array(), $hidden=''){
20 // eviter la redirection forcee par l'action...
21 set_request('redirect');
22 if ($action_editer = charger_fonction("editer_$type",'action',true)) {
23 list($id,$err) = $action_editer($id);
26 $action_editer = charger_fonction("editer_objet",'action');
27 list($id,$err) = $action_editer($id,$type);
29 $id_table_objet = id_table_objet($type);
30 $res[$id_table_objet] = $id;
32 $res['message_erreur'] = ($err?
$err:_T('erreur'));
35 // Un lien de trad a prendre en compte
37 // referencer la traduction
38 $referencer_traduction = charger_fonction('referencer_traduction','action');
39 $referencer_traduction($type, $id, $lier_trad);
40 // dupliquer tous les liens sauf les auteurs : le nouvel auteur est celui qui traduit
41 // cf API editer_liens
42 include_spip('action/editer_liens');
43 objet_dupliquer_liens($type,$lier_trad,$id,null,array('auteur'));
46 $res['message_ok'] = _T('info_modification_enregistree');
48 if (strncmp($retour,'javascript:',11)==0){
49 $res['message_ok'] .= '<script type="text/javascript">/*<![CDATA[*/'.substr($retour,11).'/*]]>*/</script>';
50 $res['editable'] = true;
53 $res['redirect'] = parametre_url($retour,$id_table_objet,$id);
59 // http://doc.spip.org/@formulaires_editer_objet_verifier
60 function formulaires_editer_objet_verifier($type,$id='new', $oblis = array()){
63 $conflits = controler_contenu($type,$id);
64 if ($conflits AND count($conflits)) {
65 foreach($conflits as $champ=>$conflit) {
66 if (!isset($erreurs[$champ])) { $erreurs[$champ] = ''; }
67 $erreurs[$champ] .= _T("alerte_modif_info_concourante")."<br /><textarea readonly='readonly' class='forml'>".$conflit['base']."</textarea>";
71 foreach($oblis as $obli) {
72 $value = _request($obli);
73 if (is_null($value) OR !(is_array($value)?
count($value):strlen($value))) {
74 if (!isset($erreurs[$obli])) { $erreurs[$obli] = ''; }
75 $erreurs[$obli] .= _T("info_obligatoire");
81 // http://doc.spip.org/@formulaires_editer_objet_charger
82 function formulaires_editer_objet_charger($type, $id='new', $id_parent=0, $lier_trad=0, $retour='', $config_fonc='articles_edit_config', $row=array(), $hidden=''){
83 $table_objet = table_objet($type);
84 $table_objet_sql = table_objet_sql($type);
85 $id_table_objet = id_table_objet($type);
86 $new = !is_numeric($id);
87 // Appel direct dans un squelette
89 if (!$new OR $lier_trad) {
90 if ($select = charger_fonction("precharger_" . $type, 'inc', true))
91 $row = $select($id, $id_parent, $lier_trad);
92 else $row = sql_fetsel('*',$table_objet_sql,$id_table_objet."=".intval($id));
94 $md5 = controles_md5($row);
97 $trouver_table = charger_fonction('trouver_table','base');
98 if ($desc = $trouver_table($table_objet))
99 foreach($desc['field'] as $k=>$v) $row[$k]='';
103 // Gaffe: sans ceci, on ecrase systematiquement l'article d'origine
104 // (et donc: pas de lien de traduction)
105 $id = ($new OR $lier_trad)
107 : $row[$id_table_objet];
108 $row[$id_table_objet] = $id;
111 if (strlen($id_parent) && is_numeric($id_parent) && (!isset($contexte['id_parent']) OR $new)){
112 if (!isset($contexte['id_parent'])) unset($contexte['id_rubrique']);
113 $contexte['id_parent']=$id_parent;
115 elseif (!isset($contexte['id_parent'])){
116 // id_rubrique dans id_parent si possible
117 if (isset($contexte['id_rubrique'])) {
118 $contexte['id_parent'] = $contexte['id_rubrique'];
119 unset($contexte['id_rubrique']);
122 $contexte['id_parent'] = '';
124 if (!$contexte['id_parent']
125 AND $preselectionner_parent_nouvel_objet = charger_fonction("preselectionner_parent_nouvel_objet","inc",true))
126 $contexte['id_parent'] = $preselectionner_parent_nouvel_objet($type,$row);
130 $contexte['config'] = $config = $config_fonc($contexte);
131 if (!isset($config['lignes'])) $config['lignes'] = 0;
132 $att_text = " class='textarea' "
134 . ($config['lignes'] +
15)
136 if (isset($contexte['texte']))
137 list($contexte['texte'],$contexte['_texte_trop_long']) = editer_texte_recolle($contexte['texte'],$att_text);
139 // on veut conserver la langue de l'interface ;
140 // on passe cette donnee sous un autre nom, au cas ou le squelette
141 // voudrait l'exploiter
142 if (isset($contexte['lang'])) {
143 $contexte['langue'] = $contexte['lang'];
144 unset($contexte['lang']);
147 $contexte['_hidden'] = "<input type='hidden' name='editer_$type' value='oui' />\n" .
149 ("\n<input type='hidden' name='lier_trad' value='" .
152 "\n<input type='hidden' name='changer_lang' value='" .
156 . (isset($md5) ?
$md5 : '');
159 if (isset($contexte['extra']))
160 $contexte['extra'] = unserialize($contexte['extra']);
161 // preciser que le formulaire doit passer dans un pipeline
162 $contexte['_pipeline'] = array('editer_contenu_objet',array('type'=>$type,'id'=>$id));
164 // preciser que le formulaire doit etre securise auteur/action
165 // n'est plus utile lorsque l'action accepte l'id en argument direct
166 // on le garde pour compat
167 $contexte['_action'] = array("editer_$type",$id);
173 // Gestion des textes trop longs (limitation brouteurs)
174 // utile pour les textes > 32ko
176 // http://doc.spip.org/@coupe_trop_long
177 function coupe_trop_long($texte){
178 $aider = charger_fonction('aider', 'inc');
179 if (strlen($texte) > 28*1024) {
180 $texte = str_replace("\r\n","\n",$texte);
181 $pos = strpos($texte, "\n\n", 28*1024); // coupe para > 28 ko
182 if ($pos > 0 and $pos < 32 * 1024) {
183 $debut = substr($texte, 0, $pos)."\n\n<!--SPIP-->\n";
184 $suite = substr($texte, $pos +
2);
186 $pos = strpos($texte, " ", 28*1024); // sinon coupe espace
187 if (!($pos > 0 and $pos < 32 * 1024)) {
188 $pos = 28*1024; // au pire (pas d'espace trouv'e)
189 $decalage = 0; // si y'a pas d'espace, il ne faut pas perdre le caract`ere
193 $debut = substr($texte,0,$pos +
$decalage); // Il faut conserver l'espace s'il y en a un
194 $suite = substr($texte,$pos +
$decalage);
196 return (array($debut,$suite));
199 return (array($texte,''));
202 // http://doc.spip.org/@editer_texte_recolle
203 function editer_texte_recolle($texte, $att_text)
205 if ((strlen($texte)<29*1024)
206 OR (include_spip('inc/layer') AND ($GLOBALS['browser_name']!="MSIE")) )
207 return array($texte,"");
209 include_spip('inc/barre');
210 $textes_supplement = "<br /><span style='color: red'>"._T('info_texte_long')."</span>\n";
213 while (strlen($texte)>29*1024) {
215 list($texte1,$texte) = coupe_trop_long($texte);
216 $textes_supplement .= "<br />" .
217 "<textarea id='texte$nombre' name='texte_plus[$nombre]'$att_text>$texte1</textarea>\n";
219 return array($texte,$textes_supplement);
223 * auto-renseigner le titre si il n'existe pas
225 * @param $champ_titre
226 * @param $champs_contenu
227 * @param int $longueur
229 function titre_automatique($champ_titre,$champs_contenu,$longueur=null){
230 if (!_request($champ_titre)){
231 $titrer_contenu = charger_fonction('titrer_contenu','inc');
232 if (!is_null($longueur))
233 $t = $titrer_contenu($champs_contenu,null,$longueur);
235 $t = $titrer_contenu($champs_contenu);
237 set_request($champ_titre,$t);
242 * Determiner un titre automatique,
243 * a partir des champs textes de contenu
245 * @param array $champs_contenu
246 * liste des champs contenu textuels
247 * @param array|null $c
248 * tableau qui contient les valeurs des champs de contenu
249 * si null on utilise les valeurs du POST
250 * @param int $longueur
254 function inc_titrer_contenu_dist($champs_contenu, $c=null, $longueur=50){
255 // trouver un champ texte non vide
257 foreach($champs_contenu as $champ){
258 if ($t = _request($champ,$c))
263 include_spip('inc/texte_mini');
264 $t = couper($t,$longueur,"...");
270 // Produit la liste des md5 d'un tableau de donnees, sous forme
272 // http://doc.spip.org/@controles_md5
273 function controles_md5($data, $prefixe='ctr_', $format='html'){
274 if (!is_array($data))
278 foreach ($data as $key => $val) {
284 $ctr[$k] = "<input type='hidden' value='$m' name='$k' />";
292 if ($format == 'html')
293 return "\n\n<!-- controles md5 -->\n".join("\n", $ctr)."\n\n";
298 // http://doc.spip.org/@controler_contenu
299 function controler_contenu($type, $id, $options=array(), $c=false, $serveur='') {
300 include_spip('inc/filtres');
302 $table_objet = table_objet($type);
303 $spip_table_objet = table_objet_sql($type);
304 $id_table_objet = id_table_objet($type);
305 $trouver_table = charger_fonction('trouver_table', 'base');
306 $desc = $trouver_table($table_objet, $serveur);
308 // Appels incomplets (sans $c)
310 foreach($desc['field'] as $champ=>$ignore)
312 $c[$champ] = _request($champ);
315 // Securite : certaines variables ne sont jamais acceptees ici
316 // car elles ne relevent pas de autoriser(article, modifier) ;
317 // il faut passer par instituer_XX()
318 // TODO: faut-il passer ces variables interdites
319 // dans un fichier de description separe ?
321 unset($c['id_parent']);
322 unset($c['id_rubrique']);
323 unset($c['id_secteur']);
325 // Gerer les champs non vides
326 if (isset($options['nonvide']) AND is_array($options['nonvide']))
327 foreach ($options['nonvide'] as $champ => $sinon)
328 if ($c[$champ] === '')
331 // N'accepter que les champs qui existent
332 // TODO: ici aussi on peut valider les contenus
333 // en fonction du type
335 foreach($desc['field'] as $champ => $ignore)
336 if (isset($c[$champ]))
337 $champs[$champ] = $c[$champ];
339 // Nettoyer les valeurs
340 $champs = array_map('corriger_caracteres', $champs);
342 // Envoyer aux plugins
343 $champs = pipeline('pre_edition',
346 'table' => $spip_table_objet, // compatibilite
347 'table_objet' => $table_objet,
348 'spip_table_objet' => $spip_table_objet,
351 'champs' => isset($options['champs'])?
$options['champs']:array(), // [doc] c'est quoi ?
352 'action' => 'controler'
358 if (!$champs) return false;
360 // Verifier si les mises a jour sont pertinentes, datees, en conflit etc
361 $conflits = controler_md5($champs, $_POST, $type, $id, $serveur, isset($options['prefix'])?
$options['prefix']:'ctr_');
366 // Controle la liste des md5 envoyes, supprime les inchanges,
367 // signale les modifies depuis telle date
368 // http://doc.spip.org/@controler_md5
369 function controler_md5(&$champs, $ctr, $type, $id, $serveur, $prefix = 'ctr_') {
370 $table_objet = table_objet($type);
371 $spip_table_objet = table_objet_sql($type);
372 $id_table_objet = id_table_objet($type);
374 // Controle des MD5 envoyes
375 // On elimine les donnees non modifiees par le formulaire (mais
376 // potentiellement modifiees entre temps par un autre utilisateur)
377 foreach ($champs as $key => $val) {
378 if (isset($ctr[$prefix.$key]) AND $m = $ctr[$prefix.$key]) {
380 unset ($champs[$key]);
383 if (!$champs) return;
385 // On veut savoir si notre modif va avoir un impact
386 // par rapport aux donnees contenues dans la base
387 // (qui peuvent etre differentes de celles ayant servi a calculer le ctr)
388 $s = sql_fetsel(array_keys($champs), $spip_table_objet, "$id_table_objet=$id", $serveur);
390 foreach ($champs as $ch => $val)
391 $intact &= ($s[$ch] == $val);
394 // Detection de conflits :
395 // On verifie si notre modif ne provient pas d'un formulaire
396 // genere a partir de donnees modifiees dans l'intervalle ; ici
397 // on compare a ce qui est dans la base, et on bloque en cas
399 $ctrh = $ctrq = $conflits = array();
400 foreach (array_keys($champs) as $key) {
401 if (isset($ctr[$prefix.$key]) AND $m = $ctr[$prefix.$key]) {
407 $ctrq = sql_fetsel($ctrq, $spip_table_objet, "$id_table_objet=$id", $serveur);
408 foreach ($ctrh as $key => $m) {
409 if ($m != md5($ctrq[$key])
410 AND $champs[$key] !== $ctrq[$key]) {
411 $conflits[$key] = array(
412 'base' => $ctrq[$key],
413 'post' => $champs[$key]
415 unset($champs[$key]); # stocker quand meme les modifs ?
423 // http://doc.spip.org/@display_conflit_champ
424 function display_conflit_champ($x) {
425 if (strstr($x, "\n") OR strlen($x)>80)
426 return "<textarea style='width:99%; height:10em;'>".entites_html($x)."</textarea>\n";
428 return "<input type='text' size='40' style='width:99%' value=\"".entites_html($x)."\" />\n";
431 // http://doc.spip.org/@signaler_conflits_edition
432 function signaler_conflits_edition($conflits, $redirect='') {
433 include_spip('inc/minipres');
434 include_spip('inc/revisions');
435 include_spip('afficher_diff/champ');
436 include_spip('inc/suivi_versions');
437 include_spip('inc/diff');
438 foreach ($conflits as $champ=>$a) {
439 // probleme de stockage ou conflit d'edition ?
440 $base = isset($a['save']) ?
$a['save'] : $a['base'];
442 $diff = new Diff(new DiffTexte
);
443 $n = preparer_diff($a['post']);
444 $o = preparer_diff($base);
446 afficher_para_modifies(afficher_diff($diff->comparer($n,$o))));
448 $titre = isset($a['save']) ?
_L('Echec lors de l\'enregistrement du champ @champ@', array('champ' => $champ)) : $champ;
450 $diffs[] = "<h2>$titre</h2>\n"
451 . "<h3>"._T('info_conflit_edition_differences')."</h3>\n"
452 . "<div style='max-height:8em; overflow: auto; width:99%;'>".$d."</div>\n"
453 . "<h4>"._T('info_conflit_edition_votre_version')."</h4>"
454 . display_conflit_champ($a['post'])
455 . "<h4>"._T('info_conflit_edition_version_enregistree')."</h4>"
456 . display_conflit_champ($base);
460 $id = uniqid(rand());
461 $redirect = "<form action='$redirect' method='get'
463 style='float:".$GLOBALS['spip_lang_right']."; margin-top:2em;'>\n"
464 .form_hidden($redirect)
465 ."<input type='submit' value='"._T('icone_retour')."' />
468 // pour les documents, on est probablement en ajax : il faut ajaxer
470 $redirect .= '<script type="text/javascript">'
471 .'setTimeout(function(){$("#'.$id.'")
472 .ajaxForm({target:$("#'.$id.'").parent()});
479 _T('titre_conflit_edition'),
482 .diff-para-deplace { background: #e8e8ff; }
483 .diff-para-ajoute { background: #d0ffc0; color: #000; }
484 .diff-para-supprime { background: #ffd0c0; color: #904040; text-decoration: line-through; }
485 .diff-deplace { background: #e8e8ff; }
486 .diff-ajoute { background: #d0ffc0; }
487 .diff-supprime { background: #ffd0c0; color: #802020; text-decoration: line-through; }
488 .diff-para-deplace .diff-ajoute { background: #b8ffb8; border: 1px solid #808080; }
489 .diff-para-deplace .diff-supprime { background: #ffb8b8; border: 1px solid #808080; }
490 .diff-para-deplace .diff-deplace { background: #b8b8ff; border: 1px solid #808080; }
492 .'<p>'._T('info_conflit_edition_avis_non_sauvegarde').'</p>'
493 .'<p>'._T('texte_conflit_edition_correction').'</p>'
494 ."<div style='text-align:".$GLOBALS['spip_lang_left'].";'>"