/**/';
$res['editable'] = true;
}
else
$res['redirect'] = parametre_url($retour,$id_table_objet,$id);
}
}
return $res;
}
// http://doc.spip.org/@formulaires_editer_objet_verifier
function formulaires_editer_objet_verifier($type,$id='new', $oblis = array()){
$erreurs = array();
if (intval($id)) {
$conflits = controler_contenu($type,$id);
if ($conflits AND count($conflits)) {
foreach($conflits as $champ=>$conflit) {
if (!isset($erreurs[$champ])) { $erreurs[$champ] = ''; }
$erreurs[$champ] .= _T("alerte_modif_info_concourante")." ";
}
}
}
foreach($oblis as $obli) {
if (!_request($obli)) {
if (!isset($erreurs[$obli])) { $erreurs[$obli] = ''; }
$erreurs[$obli] .= _T("info_obligatoire");
}
}
return $erreurs;
}
// http://doc.spip.org/@formulaires_editer_objet_charger
function formulaires_editer_objet_charger($type, $id='new', $id_parent=0, $lier_trad=0, $retour='', $config_fonc='articles_edit_config', $row=array(), $hidden=''){
$table_objet = table_objet($type);
$table_objet_sql = table_objet_sql($type);
$id_table_objet = id_table_objet($type);
$new = !is_numeric($id);
// Appel direct dans un squelette
if (!$row) {
if (!$new OR $lier_trad) {
if ($select = charger_fonction("precharger_" . $type, 'inc', true))
$row = $select($id, $id_parent, $lier_trad);
else $row = sql_fetsel('*',$table_objet_sql,$id_table_objet."=".intval($id));
if (!$new)
$md5 = controles_md5($row);
}
if (!$row) {
$trouver_table = charger_fonction('trouver_table','base');
if ($desc = $trouver_table($table_objet))
foreach($desc['field'] as $k=>$v) $row[$k]='';
}
}
// Gaffe: sans ceci, on ecrase systematiquement l'article d'origine
// (et donc: pas de lien de traduction)
$id = ($new OR $lier_trad)
? 'oui'
: $row[$id_table_objet];
$row[$id_table_objet] = $id;
$contexte = $row;
if (strlen($id_parent) && is_numeric($id_parent) && (!isset($contexte['id_parent']) OR $new)){
if (!isset($contexte['id_parent'])) unset($contexte['id_rubrique']);
$contexte['id_parent']=$id_parent;
}
elseif (!isset($contexte['id_parent'])){
// id_rubrique dans id_parent si possible
if (isset($contexte['id_rubrique'])) {
$contexte['id_parent'] = $contexte['id_rubrique'];
unset($contexte['id_rubrique']);
}
else{
$contexte['id_parent'] = '';
}
if (!$contexte['id_parent']
AND $preselectionner_parent_nouvel_objet = charger_fonction("preselectionner_parent_nouvel_objet","inc",true))
$contexte['id_parent'] = $preselectionner_parent_nouvel_objet($type,$row);
}
if ($config_fonc)
$contexte['config'] = $config = $config_fonc($contexte);
if (!isset($config['lignes'])) $config['lignes'] = 0;
$att_text = " class='textarea' "
. " rows='"
. ($config['lignes'] +15)
. "' cols='40'";
if (isset($contexte['texte']))
list($contexte['texte'],$contexte['_texte_trop_long']) = editer_texte_recolle($contexte['texte'],$att_text);
// on veut conserver la langue de l'interface ;
// on passe cette donnee sous un autre nom, au cas ou le squelette
// voudrait l'exploiter
if (isset($contexte['lang'])) {
$contexte['langue'] = $contexte['lang'];
unset($contexte['lang']);
}
$contexte['_hidden'] = "\n" .
(!$lier_trad ? '' :
("\n" .
"\n"))
. $hidden
. (isset($md5) ? $md5 : '');
if (isset($contexte['extra']))
$contexte['extra'] = unserialize($contexte['extra']);
// preciser que le formulaire doit passer dans un pipeline
$contexte['_pipeline'] = array('editer_contenu_objet',array('type'=>$type,'id'=>$id));
// preciser que le formulaire doit etre securise auteur/action
// n'est plus utile lorsque l'action accepte l'id en argument direct
// on le garde pour compat
$contexte['_action'] = array("editer_$type",$id);
return $contexte;
}
//
// Gestion des textes trop longs (limitation brouteurs)
// utile pour les textes > 32ko
// http://doc.spip.org/@coupe_trop_long
function coupe_trop_long($texte){
$aider = charger_fonction('aider', 'inc');
if (strlen($texte) > 28*1024) {
$texte = str_replace("\r\n","\n",$texte);
$pos = strpos($texte, "\n\n", 28*1024); // coupe para > 28 ko
if ($pos > 0 and $pos < 32 * 1024) {
$debut = substr($texte, 0, $pos)."\n\n\n";
$suite = substr($texte, $pos + 2);
} else {
$pos = strpos($texte, " ", 28*1024); // sinon coupe espace
if (!($pos > 0 and $pos < 32 * 1024)) {
$pos = 28*1024; // au pire (pas d'espace trouv'e)
$decalage = 0; // si y'a pas d'espace, il ne faut pas perdre le caract`ere
} else {
$decalage = 1;
}
$debut = substr($texte,0,$pos + $decalage); // Il faut conserver l'espace s'il y en a un
$suite = substr($texte,$pos + $decalage);
}
return (array($debut,$suite));
}
else
return (array($texte,''));
}
// http://doc.spip.org/@editer_texte_recolle
function editer_texte_recolle($texte, $att_text)
{
if ((strlen($texte)<29*1024)
OR (include_spip('inc/layer') AND ($GLOBALS['browser_name']!="MSIE")) )
return array($texte,"");
include_spip('inc/barre');
$textes_supplement = " "._T('info_texte_long')."\n";
$nombre = 0;
while (strlen($texte)>29*1024) {
$nombre ++;
list($texte1,$texte) = coupe_trop_long($texte);
$textes_supplement .= " " .
"\n";
}
return array($texte,$textes_supplement);
}
/**
* auto-renseigner le titre si il n'existe pas
*
* @param $champ_titre
* @param $champs_contenu
* @param int $longueur
*/
function titre_automatique($champ_titre,$champs_contenu,$longueur=null){
if (!_request($champ_titre)){
$titrer_contenu = charger_fonction('titrer_contenu','inc');
if (!is_null($longueur))
$t = $titrer_contenu($champs_contenu,null,$longueur);
else
$t = $titrer_contenu($champs_contenu);
if ($t)
set_request($champ_titre,$t);
}
}
/**
* Determiner un titre automatique,
* a partir des champs textes de contenu
*
* @param array $champs_contenu
* liste des champs contenu textuels
* @param array|null $c
* tableau qui contient les valeurs des champs de contenu
* si null on utilise les valeurs du POST
* @param int $longueur
* longueur de coupe
* @return string
*/
function inc_titrer_contenu_dist($champs_contenu, $c=null, $longueur=50){
// trouver un champ texte non vide
$t = "";
foreach($champs_contenu as $champ){
if ($t = _request($champ,$c))
break;
}
if ($t){
include_spip('inc/texte_mini');
$t = couper($t,$longueur,"...");
}
return $t;
}
// Produit la liste des md5 d'un tableau de donnees, sous forme
// de inputs html
// http://doc.spip.org/@controles_md5
function controles_md5($data, $prefixe='ctr_', $format='html'){
if (!is_array($data))
return false;
$ctr = array();
foreach ($data as $key => $val) {
$m = md5($val);
$k = $prefixe.$key;
switch ($format) {
case 'html':
$ctr[$k] = "";
break;
default:
$ctr[$k] = $m;
break;
}
}
if ($format == 'html')
return "\n\n\n".join("\n", $ctr)."\n\n";
else
return $ctr;
}
// http://doc.spip.org/@controler_contenu
function controler_contenu($type, $id, $options=array(), $c=false, $serveur='') {
include_spip('inc/filtres');
$table_objet = table_objet($type);
$spip_table_objet = table_objet_sql($type);
$id_table_objet = id_table_objet($type);
$trouver_table = charger_fonction('trouver_table', 'base');
$desc = $trouver_table($table_objet, $serveur);
// Appels incomplets (sans $c)
if (!is_array($c)) {
foreach($desc['field'] as $champ=>$ignore)
if(_request($champ))
$c[$champ] = _request($champ);
}
// Securite : certaines variables ne sont jamais acceptees ici
// car elles ne relevent pas de autoriser(article, modifier) ;
// il faut passer par instituer_XX()
// TODO: faut-il passer ces variables interdites
// dans un fichier de description separe ?
unset($c['statut']);
unset($c['id_parent']);
unset($c['id_rubrique']);
unset($c['id_secteur']);
// Gerer les champs non vides
if (isset($options['nonvide']) AND is_array($options['nonvide']))
foreach ($options['nonvide'] as $champ => $sinon)
if ($c[$champ] === '')
$c[$champ] = $sinon;
// N'accepter que les champs qui existent
// TODO: ici aussi on peut valider les contenus
// en fonction du type
$champs = array();
foreach($desc['field'] as $champ => $ignore)
if (isset($c[$champ]))
$champs[$champ] = $c[$champ];
// Nettoyer les valeurs
$champs = array_map('corriger_caracteres', $champs);
// Envoyer aux plugins
$champs = pipeline('pre_edition',
array(
'args' => array(
'table' => $spip_table_objet, // compatibilite
'table_objet' => $table_objet,
'spip_table_objet' => $spip_table_objet,
'type' =>$type,
'id_objet' => $id,
'champs' => isset($options['champs'])?$options['champs']:array(), // [doc] c'est quoi ?
'action' => 'controler'
),
'data' => $champs
)
);
if (!$champs) return false;
// Verifier si les mises a jour sont pertinentes, datees, en conflit etc
$conflits = controler_md5($champs, $_POST, $type, $id, $serveur, isset($options['prefix'])?$options['prefix']:'ctr_');
return $conflits;
}
// Controle la liste des md5 envoyes, supprime les inchanges,
// signale les modifies depuis telle date
// http://doc.spip.org/@controler_md5
function controler_md5(&$champs, $ctr, $type, $id, $serveur, $prefix = 'ctr_') {
$table_objet = table_objet($type);
$spip_table_objet = table_objet_sql($type);
$id_table_objet = id_table_objet($type);
// Controle des MD5 envoyes
// On elimine les donnees non modifiees par le formulaire (mais
// potentiellement modifiees entre temps par un autre utilisateur)
foreach ($champs as $key => $val) {
if (isset($ctr[$prefix.$key]) AND $m = $ctr[$prefix.$key]) {
if ($m == md5($val))
unset ($champs[$key]);
}
}
if (!$champs) return;
// On veut savoir si notre modif va avoir un impact
// par rapport aux donnees contenues dans la base
// (qui peuvent etre differentes de celles ayant servi a calculer le ctr)
$s = sql_fetsel(array_keys($champs), $spip_table_objet, "$id_table_objet=$id", $serveur);
$intact = true;
foreach ($champs as $ch => $val)
$intact &= ($s[$ch] == $val);
if ($intact) return;
// Detection de conflits :
// On verifie si notre modif ne provient pas d'un formulaire
// genere a partir de donnees modifiees dans l'intervalle ; ici
// on compare a ce qui est dans la base, et on bloque en cas
// de conflit.
$ctrh = $ctrq = $conflits = array();
foreach (array_keys($champs) as $key) {
if (isset($ctr[$prefix.$key]) AND $m = $ctr[$prefix.$key]) {
$ctrh[$key] = $m;
$ctrq[] = $key;
}
}
if ($ctrq) {
$ctrq = sql_fetsel($ctrq, $spip_table_objet, "$id_table_objet=$id", $serveur);
foreach ($ctrh as $key => $m) {
if ($m != md5($ctrq[$key])
AND $champs[$key] !== $ctrq[$key]) {
$conflits[$key] = array(
'base' => $ctrq[$key],
'post' => $champs[$key]
);
unset($champs[$key]); # stocker quand meme les modifs ?
}
}
}
return $conflits;
}
// http://doc.spip.org/@display_conflit_champ
function display_conflit_champ($x) {
if (strstr($x, "\n") OR strlen($x)>80)
return "\n";
else
return "\n";
}
// http://doc.spip.org/@signaler_conflits_edition
function signaler_conflits_edition($conflits, $redirect='') {
include_spip('inc/minipres');
include_spip('inc/revisions');
include_spip('afficher_diff/champ');
include_spip('inc/suivi_versions');
include_spip('inc/diff');
foreach ($conflits as $champ=>$a) {
// probleme de stockage ou conflit d'edition ?
$base = isset($a['save']) ? $a['save'] : $a['base'];
$diff = new Diff(new DiffTexte);
$n = preparer_diff($a['post']);
$o = preparer_diff($base);
$d = propre_diff(
afficher_para_modifies(afficher_diff($diff->comparer($n,$o))));
$titre = isset($a['save']) ? _L('Echec lors de l\'enregistrement du champ @champ@', array('champ' => $champ)) : $champ;
$diffs[] = "
"
. display_conflit_champ($base);
}
if ($redirect) {
$id = uniqid(rand());
$redirect = "\n";
// pour les documents, on est probablement en ajax : il faut ajaxer
if (_AJAX)
$redirect .= '\n";
}
echo minipres(
_T('titre_conflit_edition'),
''
.'