Mercurial > defr > DualBlog

annotate admin_xml.php @ 52:829d6b0d3d0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Lorsqu'on édite un billet ou un brouillon, on éplingle la zone. Cela permet de ne pas voir la zone de texte disparaitre si le curseur ne survole plus le li correspondant. A noter que le parentNode.parentNode n'est pas des plus esthétiques, et qu'il y reste quelques problèmes relatifs à la non suppression de l'état épinglé.
author Franck Deroche <webmaster@defr.org>
date Tue, 29 Jan 2008 11:33:33 +0100
parents 629389204276
children
rev   line source
webmaster@0 1 <?php
webmaster@0 2 require("classes.php");
webmaster@0 3
webmaster@0 4 $Req = new Requete();
webmaster@0 5 $Data = new DataAccess;
webmaster@0 6
webmaster@0 7 header("Content-Type: application/xml; charset=utf-8");
webmaster@0 8 $doc = new DOMDocument('1.0', 'utf-8');
webmaster@0 9 $root = $doc->createElementNS('http://defr.org/2005/blog-post', 'post');
webmaster@0 10 $doc->appendChild($root);
webmaster@0 11
webmaster@0 12 $mode = $Req->get('mode', 'GET', 'get');
webmaster@0 13 $type = $Req->get('type', 'GET', 'post');
webmaster@0 14 $id = $Req->get('id');
webmaster@0 15
webmaster@0 16 $root->appendChild($doc->createElement('id', $id));
webmaster@0 17 $root->appendChild(DOMUtils::createCDATAWrapper($doc, 'debug', var_export($Req, true)));
webmaster@0 18 switch($mode . '-' . $type)
webmaster@0 19 {
webmaster@0 20 case 'edit-post':
webmaster@0 21 $nvTitre = $Req->get('title');
webmaster@0 22 $nvContenu = $Req->get('content');
webmaster@0 23 $nvMood = $Req->get('mood');
webmaster@0 24 $Data->Query
webmaster@0 25 ("
webmaster@0 26 UPDATE Mess
webmaster@0 27 SET Titre='{$nvTitre}', Message='{$nvContenu}', Emot='{$nvMood}'
webmaster@0 28 WHERE num_mess={$id}
webmaster@0 29 ");
webmaster@0 30 // Récuperation des nouveaux tags à appliquer
webmaster@0 31 $arTags = TextUtils::splitTags($Req->get('tags'));
webmaster@0 32 // Récuperation des anciens tags
webmaster@0 33 $Data->Query
webmaster@0 34 ("
webmaster@0 35 SELECT T.idTag, T.Tag
webmaster@0 36 FROM Lien_Tags_Posts L
webmaster@0 37 LEFT JOIN Tags T ON L.idTag = T.idTag
webmaster@0 38 WHERE L.idMess = {$id}
webmaster@0 39 ");
webmaster@0 40
webmaster@0 41 $oldTags = array();
webmaster@0 42 while(0 !== ($row = $Data->GetRow()))
webmaster@0 43 {
webmaster@0 44 $oldTags[] = $row['Tag'];
webmaster@0 45 $mapOld[$row['Tag']] = $row['idTag'];
webmaster@0 46 }
webmaster@0 47 // Calcul des différences
webmaster@0 48 $tagsSupprimes = array_diff($oldTags, $arTags);
webmaster@0 49 $tagsAjoutes = array_diff($arTags, $oldTags);
webmaster@0 50 // Suppression des tags non affectés
webmaster@0 51 if(is_array($tagsSupprimes))
webmaster@0 52 {
webmaster@0 53 foreach($tagsSupprimes as $tagSuppr)
webmaster@0 54 {
webmaster@0 55 $supprIDs .= $mapOld[$tagSuppr] . ',';
webmaster@0 56 }
webmaster@0 57 $Data->Query
webmaster@0 58 ("
webmaster@0 59 DELETE FROM Lien_Tags_Posts
webmaster@0 60 WHERE idMess={$id} AND idTag IN ({$supprIDs}0)
webmaster@0 61 ");
webmaster@0 62 }
webmaster@0 63 // Ajout des tags ajoutés
webmaster@0 64 if(is_array($tagsAjoutes))
webmaster@0 65 {
webmaster@0 66 foreach($tagsAjoutes as $tagAj)
webmaster@0 67 {
webmaster@0 68 $n = $Data->Query("SELECT idTag FROM Tags WHERE Tag='{$tagAj}'");
webmaster@0 69 if($n == 0)
webmaster@0 70 {
webmaster@0 71 // Si le tag n'existe pas, on le crée
webmaster@0 72 $Data->Query("INSERT INTO Tags SET Tag='{$tagAj}'");
webmaster@0 73 $Data->Query("SELECT idTag FROM Tags WHERE Tag='{$tagAj}'");
webmaster@0 74 }
webmaster@0 75 $row = $Data->GetRow();
webmaster@0 76 $Data->Query
webmaster@0 77 ("
webmaster@0 78 INSERT INTO Lien_Tags_Posts
webmaster@0 79 SET idMess={$id}, idTag={$row['idTag']}
webmaster@0 80 ");
webmaster@0 81 }
webmaster@0 82 }
webmaster@0 83 case 'get-post':
webmaster@0 84 $Data->Query
webmaster@0 85 ("
webmaster@0 86 SELECT Titre, Message, Emot
webmaster@0 87 FROM Mess
webmaster@0 88 WHERE num_mess={$id}
webmaster@0 89 ");
webmaster@0 90 $row = $Data->GetRow();
webmaster@0 91 $titre_CDATA = $doc->createCDATASection($row['Titre']);
webmaster@0 92 $root->appendChild(DOMUtils::createCDATAWrapper($doc, 'titre', $row['Titre']));
webmaster@0 93 $root->appendChild(DOMUtils::createCDATAWrapper($doc, 'contenu', $row['Message']));
webmaster@0 94 $root->appendChild($doc->createElement('mood', $row['Emot']));
webmaster@0 95 // Obtention des tags
webmaster@0 96 $Data->Query
webmaster@0 97 ("
webmaster@0 98 SELECT T.idTag, T.Tag
webmaster@0 99 FROM Lien_Tags_Posts L
webmaster@0 100 LEFT JOIN Tags T ON L.idTag = T.idTag
webmaster@0 101 WHERE L.idMess = {$id}
webmaster@0 102 ");
webmaster@0 103 while(0 !== ($row = $Data->GetRow()))
webmaster@0 104 $root->appendChild($doc->createElement('tag', $row['Tag']));
webmaster@0 105 break;
webmaster@0 106 case 'edit-brouillon':
webmaster@0 107 $nvTitre = $Req->get('title');
webmaster@0 108 $nvContenu = $Req->get('content');
webmaster@0 109 $Data->Query
webmaster@0 110 ("
webmaster@0 111 UPDATE Brouillons
webmaster@0 112 SET Titre='{$nvTitre}', Contenu='{$nvContenu}'
webmaster@0 113 WHERE id_brouillon={$id}
webmaster@0 114 ");
webmaster@0 115 case 'get-brouillon':
webmaster@0 116 $Data->Query
webmaster@0 117 ("
webmaster@0 118 SELECT Titre, Contenu
webmaster@0 119 FROM Brouillons
webmaster@0 120 WHERE id_brouillon={$id}
webmaster@0 121 ");
webmaster@0 122 $row = $Data->GetRow();
webmaster@0 123 $root->appendChild(DOMUtils::createCDATAWrapper($doc, 'titre', $row['Titre']));
webmaster@0 124 $root->appendChild(DOMUtils::createCDATAWrapper($doc, 'contenu', $row['Contenu']));
webmaster@0 125 break;
webmaster@0 126 }
webmaster@0 127 echo $doc->saveXML();
webmaster@0 128 ?>