Rev 130 | Rev 143 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This library is free software; you can redistribute it and/or |// | modify it under the terms of the GNU Lesser General Public |// | License as published by the Free Software Foundation; either |// | version 2.1 of the License, or (at your option) any later version. |// | |// | This library is distributed in the hope that it will be useful, |// | but WITHOUT ANY WARRANTY; without even the implied warranty of |// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |// | Lesser General Public License for more details. |// | |// | You should have received a copy of the GNU Lesser General Public |// | License along with this library; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: adme_menu_classique.fonct.php,v 1.7 2004-11-09 12:37:34 jpm Exp $/*** Fonctions de gestion des menus classiques** Permet de lister, d'ajouter, de modifier, et de déplacer des menus classiques.* Par menus classiques nous entendons tous les menus devant paraitre dans l'arborescences* des menus disponibles pour le site courant.**@package Admin_menu*@subpackage Fonctions//Auteur original :*@author Laurent COUDOUNEAU <lc@gsite.org>//Autres auteurs :*@author Alexandre GRANIER <alexandre@tela-botanica.org>*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.7 $ $Date: 2004-11-09 12:37:34 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | ENTÊTE du PROGRAMME |// +------------------------------------------------------------------------------------------------------+// +------------------------------------------------------------------------------------------------------+// | LISTE de FONCTIONS |// +------------------------------------------------------------------------------------------------------+/** Fonction ADME_afficherListeMenuClassique () - Affiche un arbre de menu en xhtml** Elle forme l'arbre des menus classiques à administrer.* Ancien nom : deployer_menu().** @param object objet Pear de connection à la base de données.* @param object objet Pear représentant l'url de base.* @param integer l'identifiant du menu à administrer.* @param integer l'identifiant du menu sur lequel on agit.* @param string le nom de l'action courante.* @param integer l'identifiant du menu en cours de déploiement.* @param boolean true indique que l'on a à faire au premier appel de cette fonction récursive.* @return string le code XHTML constituant l'arbre des menus à administrer.*/function ADME_afficherListeMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $id_menu_a_deployer, $bln_premier_appel = true){// Initialisation des variables :$retour = '';// Est-ce que ces menus comporte des sous-menus ?$requete_sous_menu = 'SELECT gm_id_menu '.'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR01.gmr_id_menu_02 = '.$id_menu_a_deployer.' '.'AND GMR01.gmr_id_menu_01 = gm_id_menu '.'AND gm_ce_site = '.$adme_site_id.' '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"'AND GMR02.gmr_id_menu_02 = gm_id_menu '.'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = type "menu classique"'ORDER BY GMR01.gmr_ordre ASC';$resultat_sous_menu = $db->query($requete_sous_menu) ;if (DB::isError($resultat_sous_menu)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_sous_menu->getMessage(), $requete_sous_menu));}// Gestion du stockage ou déstockage des menus ouvertsif (($adme_action == 'adme_menu_ouvrir' || $adme_action == 'ajouter_menu_classique') && $id_menu_a_deployer != 0) {$_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id] = $adme_menu_id;}if ($adme_action == 'adme_menu_fermer' && $id_menu_a_deployer != 0) {unset($_SESSION['adme_menus_classiques_ouverts'][$adme_menu_id]);foreach ($_SESSION['adme_menus_classiques_ouverts'] as $val) {if (GEN_etreAncetre($adme_menu_id, $val)) {unset($_SESSION['adme_menus_classiques_ouverts'][$val]);}}}// Gestion affichage des menusif ($resultat_sous_menu->numRows() > 0) {// Ici, on sait qu'un menu a des sous menus, on commence par l'afficher:if ($bln_premier_appel == false) {$retour .= '<li>'."\n";if (GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||($id_menu_a_deployer == $adme_menu_id && $adme_action == 'adme_menu_ouvrir') ||isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])){// Affiche un -$retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 1);} else if ( !GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||($id_menu_a_deployer == $adme_menu_id && $adme_action == 'adme_menu_fermer') ||!isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])){// Affiche un +$retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 2);}}if ($bln_premier_appel == true || GEN_etreAncetre($id_menu_a_deployer, $adme_menu_id) ||($id_menu_a_deployer == $adme_menu_id && $adme_action == 'adme_menu_ouvrir') ||isset($_SESSION['adme_menus_classiques_ouverts'][$id_menu_a_deployer])){$retour .= '<ul>'."\n";while ($ligne_sous_menu = $resultat_sous_menu->fetchRow(DB_FETCHMODE_OBJECT)) {$retour .= ADME_afficherListeMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $adme_action, $ligne_sous_menu->gm_id_menu, false);}$retour .= '</ul>'."\n";}if ($bln_premier_appel == false) {$retour .= '</li>'."\n";}} else if ($resultat_sous_menu->numRows() == 0 && $bln_premier_appel == false) {$retour .= '<li>'."\n";$retour .= ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $id_menu_a_deployer, 0);$retour .= '</li>'."\n";}return $retour;}/** Fonction ADME_retournerXhtmlMenuClassique() - Effectue une sortie d'un menu en XHTML** Retourne le XHTML d'une ligne de l'arbre des menus "classiques" permettant de l'administer.* Ancien nom : menu_toHtml().** @param object objet Pear de connection à la base de données.* @param object objet Pear représentant l'url de base.* @param integer l'identifiant du site à administrer.* @param integer l'identifiant du menu à administrer.* @param integer 0 indique que le menu ne possède pas de fils, 1 qu'il faut afficher un - et 2 un +.* @return string une ligne de liste XHTML*/function ADME_retournerXhtmlMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $int_deplier){$etiquette_annuler = 'Annuler';$etiquette_alt_modifier = 'Modifier';$etiquette_title_modifier = 'Modifier ce menu';$etiquette_alt_supprimer = 'Supprimer';$etiquette_title_supprimer = 'Supprimer ce menu';$etiquette_alt_ajouter = 'Ajouter';$etiquette_title_ajouter = 'Ajouter un menu inférieur';$etiquette_alt_monter = 'Monter';$etiquette_title_monter = 'Monter ce menu';$etiquette_alt_descendre = 'Descendre';$etiquette_title_descendre = 'Descendre ce menu';$etiquette_alt_redaction = 'Rédiger';$etiquette_title_redaction = 'Rédiger le contenu de ce menu';$etiquette_deplier = 'Déplier';$etiquette_plier = 'Plier';$requete = 'SELECT gen_menu.*, ga_prenom '.'FROM gen_menu, gen_annuaire '.'WHERE gm_id_menu = '.$adme_menu_id.' '.'AND gm_ce_admin = ga_id_administrateur';$resultat = $db->query($requete);if (DB::isError($resultat)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));}$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);// recherche de l'application liée$requete_app = 'SELECT gap_nom '.'FROM gen_application '.'WHERE gap_id_application = '.$ligne->gm_ce_application;$resultat_app = $db->query($requete_app);if (DB::isError($resultat_app)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_app->getMessage(), $requete_app));}$ligne_app = $resultat_app->fetchRow(DB_FETCHMODE_OBJECT);$resultat_app->free();//-------------------------------------------------------------------------------------------------------------------// XHTML image plier-déplier$url->addQueryString('adme_site_id', $adme_site_id);$url->addQueryString('adme_menu_id', $ligne->gm_id_menu);$xhtml_pd = '';if ($int_deplier != 0) {if ($int_deplier == 1) {// Afficher un -$image_plier_deplier = ADME_IMAGE_MOINS;$alt = $etiquette_plier;$url->addQueryString('adme_action', 'adme_menu_fermer');$url_plier_deplier = $url->getURL();} else if ($int_deplier == 2) {// Afficher un +$image_plier_deplier = ADME_IMAGE_PLUS;$alt = $etiquette_deplier;$url->addQueryString('adme_action', 'adme_menu_ouvrir');$url_plier_deplier = $url->getURL();}$xhtml_pd = '<a href="'.$url_plier_deplier.'" title="'.$alt.'">'.'<img class="'.ADME_CLASS_IMG_PD.'" src="'.$image_plier_deplier.'" alt="'.$alt.'" />'.'</a>'.' '."\n";}//-------------------------------------------------------------------------------------------------------------------// XHTML du nom du menu et de ses infos$xhtml_info = htmlentities(empty($ligne->gm_nom) ? '('.$ligne->gm_nom.')' : $ligne->gm_nom);$xhtml_info .= ' ';$xhtml_info .= '('.$ligne_app->gap_nom.' / '.$ligne->ga_prenom.')';$xhtml_info .= ' '."\n";//-------------------------------------------------------------------------------------------------------------------// XHTML actions$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'modifier_menu_classique');$xhtml_action = '<a href="'.$url->getURL().'" title="'.$etiquette_title_modifier.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_VOIR.'" alt="'.$etiquette_alt_modifier.'" />'.'</a> '."\n";$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'monter_menu_classique');$xhtml_action .= '<a href="'.$url->getURL().'" title="'.$etiquette_title_monter.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_HAUT.'" alt="'.$etiquette_alt_monter.'" />'.'</a> '."\n";$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'descendre_menu_classique');$xhtml_action .= '<a href="'.$url->getURL().'" title="'.$etiquette_title_descendre.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_FLECHE_BAS.'" alt="'.$etiquette_alt_descendre.'" />'.'</a> '."\n";$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'supprimer_menu_classique');$xhtml_action .= '<a href="'.$url->getURL().'" title="'.$etiquette_title_supprimer.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_SUPPRIMER.'" alt="'.$etiquette_alt_supprimer.'" />'.'</a> '."\n";$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'ajouter_menu_classique');$xhtml_action .= '<a href="'.$url->getURL().'" title="'.$etiquette_title_ajouter.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="'.$etiquette_alt_ajouter.'" />'.'</a>'.' '."\n";// Si l'application liée est "texte simple", on ajoute un icone avec un lien vers// l'administration de cette application.if ($ligne->gm_ce_application == 3) { // l'appli afficheur a pour id 3$url->removeQueryString('adme_action');$url->addQueryString('adme_action', 'contenu_rediger');$xhtml_action .= '<a href="'.$url->getURL().'" title="'.$etiquette_title_redaction.'">'.'<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_TEXTE.'" alt="'.$etiquette_alt_redaction.'" />'.'</a>'.' '."\n";}//-------------------------------------------------------------------------------------------------------------------// Envoi du menu.$retour = $xhtml_pd.$xhtml_info.$xhtml_action;return $retour;}/** Fonction ADME_ajouterMenuClassique() - Ajoute un sous menu au menu courant** Cette fonction permet d'ajouter un sous-menu de type "classique" au menu courant.* Ancien nom : addMenu()** @param object objet Pear de connection à la base de données.* @param object objet Pear d'authentification.* @param integer l'identifiant du site à administrer.* @param integer l'identifiant du menu à administrer.* @return void le menu classique est ajouté à la base de données.*/function ADME_ajouterMenuClassique($db, $auth, $adme_site_id, $adme_menu_id){//----------------------------------------------------------------------------// Récupération d'infos sur le site principal.$objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);if ($objet_site == false) {die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.'ID du site : '.$adme_site_id.'<br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier n° : '. __FILE__ .'<br />');}$nouveau_id_menu = SQL_obtenirNouveauId($db, 'gen_menu', 'gm_id_menu');$auteur = $auth->getAuthData('ga_prenom').' '.$auth->getAuthData('ga_nom');//----------------------------------------------------------------------------// Ajout du nouveau menu$requete = 'INSERT INTO gen_menu '.'SET gm_id_menu = '.$nouveau_id_menu.', '.'gm_ce_site = '.$adme_site_id.', '.'gm_ce_i18n = "'.$objet_site->gs_ce_i18n.'", '.'gm_ce_application = 0, '.'gm_code_num = '.$nouveau_id_menu.', '.'gm_code_alpha = "menu_'.$nouveau_id_menu.'", '.'gm_nom = "menu_'.$nouveau_id_menu.'", '.'gm_titre = "menu_'.$nouveau_id_menu.'", '.'gm_description_resume = "menu_'.$nouveau_id_menu.'", '.'gm_auteur = "'.$auteur.'", '.'gm_editeur = "'.$objet_site->gs_auteur.'", '.'gm_date_creation = "'.date('Y-m-d H:i:s').'", '.'gm_date_soumission = "'.date('Y-m-d H:i:s').'", '.'gm_date_acceptation = "'.date('Y-m-d H:i:s').'", '.'gm_date_publication = "'.date('Y-m-d H:i:s').'", '.'gm_date_debut_validite = "'.date('Y-m-d H:i:s').'", '.'gm_date_copyright = "'.date('Y-00-00 00:00:00').'", '.'gm_categorie = "menu", '.'gm_ce_admin = '.$auth->getAuthData('ga_id_administrateur').' ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';//----------------------------------------------------------------------------// Ajout de la relation "père"if (!isset($adme_menu_id) && empty($adme_menu_id)) {$adme_menu_id = 0 ;// Identifiant du père}//----------------------------------------------------------------------------// Récupération d'infos sur la hierarchie du menu$requete = 'SELECT GMR01.gmr_ordre '.'FROM gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR01.gmr_id_menu_02 = '.$adme_menu_id.' '.'AND GMR01.gmr_id_valeur = 1 '.// 1 = avoir "père"'AND GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.'AND GMR02.gmr_id_menu_01 = GMR02.gmr_id_menu_02 '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"'ORDER BY GMR01.gmr_ordre DESC';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);$nouveau_ordre_menu = $ligne->gmr_ordre + 1;$resultat->free();$requete = 'INSERT INTO gen_menu_relation '.'SET gmr_id_menu_02 = '.$adme_menu_id.', '.'gmr_id_menu_01 = '.$nouveau_id_menu.', '.'gmr_id_valeur = 1, '.'gmr_ordre = '.$nouveau_ordre_menu;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';//----------------------------------------------------------------------------// Ajout de la relation-type "menu classique"// Récupération d'infos sur la hierarchie du menu$requete = 'SELECT * '.'FROM gen_menu_relation, gen_menu '.'WHERE gmr_id_menu_02 = gmr_id_menu_01 '.'AND gmr_id_valeur = 100 '.// 100 = type menu "classique"'AND gmr_id_menu_01 = gm_id_menu '.'AND gm_ce_site = '.$adme_site_id.' '.'ORDER BY gmr_ordre DESC';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);$nouveau_ordre_menu_classique = $ligne->gmr_ordre + 1;$resultat->free();$requete = 'INSERT INTO gen_menu_relation '.'SET gmr_id_menu_01 = '.$nouveau_id_menu.', '.'gmr_id_menu_02 = '.$nouveau_id_menu.', '.'gmr_id_valeur = 100, '.'gmr_ordre = '.$nouveau_ordre_menu_classique;$result = $db->query($requete);(DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';}/** Fonction ADME_afficherFormMenuClassique() - Affiche le formulaire pour un menu classique** Utilise HTML_QuickForm pour générer le formulaire.* Ancien nom : showMenu()** @param object objet Pear de connection à la base de données.* @param object objet Pear représentant l'url de base.* @param integer l'identifiant du site à administrer.* @param integer l'identifiant du menu à administrer.* @param array le tableau associatif des valeurs à afficher dans le formulaire.* @return string le formulaire XHTML.*/function ADME_afficherFormMenuClassique($db, $url, $adme_site_id, $adme_menu_id, $aso_valeurs){// Initialisation de variable$url->addQueryString('adme_site_id', $adme_site_id);$url->addQueryString('adme_menu_id', $adme_menu_id);// Nous sommes toujours en modification car un menu est ajouter automatiquement!// Récupération des informations du menu concerné.if (!isset($aso_valeurs['menu_classique_verifier'])) {$aso_valeurs = GEN_lireInfoMenu($db, $adme_menu_id, DB_FETCHMODE_ASSOC);if ($aso_valeurs == false) {die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du menu.<br />'.'Idenitifiant du menu n° : '. $adme_menu_id .'<br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier n° : '. __FILE__ .'<br />');}}// Titre de la page$retour = '<h1>'.'Modification menu'.'</h1>'."\n";// Création du formulaire// Notes : Quickform semble remplacer les & des & à nouveau par des & solution utiliser str_replace()...$form =& new HTML_QuickForm('form_menu_classique', 'post', str_replace('&', '&', $url->getUrl()));$tab_index = 1000;$squelette =& $form->defaultRenderer();$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n".'</form>'."\n");$squelette->setElementTemplate( '<li>'."\n".'{label}'."\n".'{element}'."\n".'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n".'</li>'."\n");$squelette->setRequiredNoteTemplate("\n".'<p><span class="symbole_obligatoire">*</span> {requiredNote}</p>'."\n");$partie_menu_debut = '<fieldset>'."\n".'<legend>Configuration du menu</legend>'."\n".'<ul>'."\n";$form->addElement('html', $partie_menu_debut);$id = 'gm_code_num';$aso_attributs = array('id'=>$id, 'tabindex' => $tab_index++, 'size' => 5, 'maxlength' => 100);$label = '<label for="'.$id.'">'.'Code numérique du menu'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$form->addRule($id, 'Un code numérique est requis pour le menu !', 'required', '', 'client');$id = 'gm_code_alpha';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 20, 'maxlength' => 20);$label = '<label for="'.$id.'">'.'Code alphanumérique du menu'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$form->addRule($id, 'Un code alphanumérique est requis pour le menu !', 'required', '', 'client');$id = 'gm_nom';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 100);$label = '<label for="'.$id.'">'.'Nom du menu'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$form->addRule($id, 'Un nom est requis pour le menu !', 'required', '', 'client');$form->applyFilter($id, 'trim');$id = 'gm_raccourci_clavier';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 1, 'maxlength' => 1);$label = '<label for="'.$id.'">'.'Raccourci clavier'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'defaut';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);$label = '<label for="'.$id.'">'.'En faire le menu par défaut'.'</label>';$form->addElement('checkbox', $id, $label, '', $aso_attributs);$id = 'gm_fichier_squelette';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 50, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Fichier squelette'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_description_resume';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 50);$label = '<label for="'.$id.'">'.'Contenu info-bulle'.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$form->addRule($id, 'Une description courte pour l\'info-bulle est requise pour ce menu !', 'required', '', 'client');// Requête sur les applications$requete = 'SELECT gap_id_application, gap_nom '.'FROM gen_application '.'WHERE gap_bool_applette = 0';// Pour éviter d'afficher les applettes.$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$aso_options = array();while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {$aso_options[$ligne->gap_id_application] = $ligne->gap_nom;}$resultat->free();$id = 'gm_ce_application';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);$label = '<label for="'.$id.'">'.'Application'.'</label>';$form->addElement('select', $id, $label, $aso_options, $aso_attributs);$id = 'gm_application_arguments';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Arguments de l\'application'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$partie_menu_fin = '</ul>'."\n".'</fieldset>'."\n";$form->addElement('html', $partie_menu_fin);$partie_entete_debut = '<fieldset>'."\n".'<legend>Entête des pages du menu</legend>'."\n".'<ul>'."\n";$form->addElement('html', $partie_entete_debut);$id = 'gm_robot';$aso_options = array( 'index,follow' => 'Indexer cette page et les suivantes','index' => 'Indexer seulement cette page','noindex' => 'Ne pas indexer cette page','noindex,nofollow' => 'Ne pas indexer cette page et les suivantes','' => 'Auncune');$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);$label = '<label for="'.$id.'">'.'Indexation par robots'.'</label>';$form->addElement('select', $id, $label, $aso_options, $aso_attributs);$id = 'gm_titre';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Titre de la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_titre_alternatif';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Titre alternatif de la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_mots_cles';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 50);$label = '<label for="'.$id.'">'.'Mots-clés'.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$id = 'gm_description_libre';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);$label = '<label for="'.$id.'">'.'Description du contenu '.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$id = 'gm_description_table_matieres';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 3, 'cols' => 45);$label = '<label for="'.$id.'">'.'Table des matières'.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$id = 'gm_source';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Source'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_auteur';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Auteur'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_contributeur';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);$label = '<label for="'.$id.'">'.'Contributeur'.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$id = 'gm_editeur';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'rows' => 2, 'cols' => 45);$label = '<label for="'.$id.'">'.'Editeur'.'</label>';$form->addElement('textarea', $id, $label, $aso_attributs);$id = 'gm_date_debut_validite';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);$label = '<label for="'.$id.'">'.'Date de début de validité'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_date_fin_validite';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);$label = '<label for="'.$id.'">'.'Date de fin de validité'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_date_copyright';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 19, 'maxlength' => 19);$label = '<label for="'.$id.'">'.'Année pour le copyright'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_licence';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'URL de la licence'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_categorie';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);$label = '<label for="'.$id.'">'.'Catégorie'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_public';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 255);$label = '<label for="'.$id.'">'.'Public pour la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_public_niveau';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 25, 'maxlength' => 45);$label = '<label for="'.$id.'">'.'Niveau du public pour la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_ce_type_portee_spatiale';$aso_options = array( '' => 'Aucun','iso3166' => 'Code de pays sur deux lettres (iso3166)','Point' => 'Point géographique','Box' => 'Représenation des régions géographiques du Dublin Core','TGN' => 'Noms issus du Getty Thesaurus of Geographic Names');$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);$label = '<label for="'.$id.'">'.'Type de portée spatiale'.'</label>';$form->addElement('select', $id, $label, $aso_options, $aso_attributs);$id = 'gm_portee_spatiale';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);$label = '<label for="'.$id.'">'.'Portée spatiale de la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$id = 'gm_ce_type_portee_temporelle';$aso_options = array( '' => 'Aucun','W3CDTF' => 'Codage des dates et heures du W3C','Period' => 'Représentation des intervalles de temps du Dublin Core');$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++);$label = '<label for="'.$id.'">'.'Type de portée temporelle'.'</label>';$form->addElement('select', $id, $label, $aso_options, $aso_attributs);$id = 'gm_portee_temporelle';$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'size' => 45, 'maxlength' => 100);$label = '<label for="'.$id.'">'.'Portée temporelle de la page'.'</label>';$form->addElement('text', $id, $label, $aso_attributs);$partie_entete_fin = '</ul>'."\n".'</fieldset>'."\n";$liste_bouton_debut = '<ul class="liste_bouton">'."\n";$form->addElement('html', $liste_bouton_debut);$form->addElement('submit', 'menu_classique_verifier', 'Enregistrer');$bouton_annuler = '<li><a class="bouton" href="'.$url->getURL().'" title="'.'Annuler'.'" >'.'Annuler'.'</a>'.'</li>'."\n";$form->addElement('html', $bouton_annuler);$liste_bouton_fin = '</ul>'."\n";$form->addElement('html', $liste_bouton_fin);// Instanciation avec les valeur par défaut$form->setDefaults($aso_valeurs);// Javascript pour la validation côté client$regles_javascript = $form->getValidationScript();// Suppression des balises déjà créées par GEN_stockerCodeScript()$regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);$regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);$regles_javascript = ereg_replace ( '\/\/-->', '', $regles_javascript);$regles_javascript = ereg_replace ( '<\/script>', '', $regles_javascript);GEN_stockerCodeScript($regles_javascript);// Note de fin de formulaire$form->setRequiredNote('Indique les champs obligatoires');$retour .= $form->toHTML()."\n";return $retour;}/** Fonction ADME_validerFormAjouterMenuClassique() - Valide les données issues du formulaire pour gen_menu.** Cette fonction valide les données à ajouter dans la table gen_menu.** @param string l'objet pear de connexion à la base de données.* @param string le tableau contenant les valeurs du formulaire.* @return string retourne les messages d'erreurs sinon rien.*/function ADME_validerFormAjouterMenuClassique($db, $aso_valeurs){$message = '';// Requete pour vérifier l'abscence du code numérique et alphanumérique de la table gen_menuif (GEN_verifierPresenceCodeMenu($db, 'int', $aso_valeurs['gm_code_num'])) {$message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gm_code_num'].'" pour le champ "Code numérique" existe déjà.</p>';}if (GEN_verifierPresenceCodeMenu($db, 'int', $aso_valeurs['gm_code_alpha'])) {$message .= '<p class="pap_erreur">La valeur "'.$aso_valeurs['gm_code_alpha'].'" pour le champ "Code alphanumérique" existe déjà.</p>';}return $message;}/** Fonction ADME_modifierMenuClassique() - Met à jour les infos d'un menu classique** Fonction modifiant un menu commun à Papyrus.* Ancien nom : commitUpdateLevel()** @param object objet Pear de connection à la base de données.* @param object objet Pear représentant l'authentification.* @param integer l'identifiant du menu à administrer.* @param array le tableau des valeurs à modifier.* @return void les changement sont fait dans la base de données.*/function ADME_modifierMenuClassique($db, $auth, $adme_menu_id, $aso_valeurs){$requete = 'UPDATE gen_menu SET '.'gm_ce_application = '.$aso_valeurs['gm_ce_application'].', '.'gm_application_arguments = "'.$aso_valeurs['gm_application_arguments'].'", '.'gm_fichier_squelette = "'.$aso_valeurs['gm_fichier_squelette'].'", '.'gm_code_num = '.$aso_valeurs['gm_code_num'].', '.'gm_code_alpha = "'.$aso_valeurs['gm_code_alpha'].'", '.'gm_nom = "'.$aso_valeurs['gm_nom'].'", '.'gm_raccourci_clavier = "'.$aso_valeurs['gm_raccourci_clavier'].'", '.'gm_robot = "'.$aso_valeurs['gm_robot'].'", '.'gm_titre = "'.$aso_valeurs['gm_titre'].'", '.'gm_titre_alternatif = "'.$aso_valeurs['gm_titre_alternatif'].'", '.'gm_mots_cles = "'.$aso_valeurs['gm_mots_cles'].'", '.'gm_description_libre = "'.$aso_valeurs['gm_description_libre'].'", '.'gm_description_resume = "'.$aso_valeurs['gm_description_resume'].'", '.'gm_description_table_matieres = "'.$aso_valeurs['gm_description_table_matieres'].'", '.'gm_source = "'.$aso_valeurs['gm_source'].'", '.'gm_auteur = "'.$aso_valeurs['gm_auteur'].'", '.'gm_contributeur = "'.$aso_valeurs['gm_contributeur'].'", '.'gm_editeur = "'.$aso_valeurs['gm_editeur'].'", '.'gm_date_debut_validite = "'.$aso_valeurs['gm_date_debut_validite'].'", '.'gm_date_fin_validite = "'.$aso_valeurs['gm_date_fin_validite'].'", '.'gm_date_copyright = "'.$aso_valeurs['gm_date_copyright'].'", '.'gm_licence = "'.$aso_valeurs['gm_licence'].'", '.'gm_categorie = "'.$aso_valeurs['gm_categorie'].'", '.'gm_public = "'.$aso_valeurs['gm_public'].'", '.'gm_public_niveau = "'.$aso_valeurs['gm_public_niveau'].'", '.'gm_ce_type_portee_spatiale = "'.$aso_valeurs['gm_ce_type_portee_spatiale'].'", '.'gm_portee_spatiale = "'.$aso_valeurs['gm_portee_spatiale'].'", '.'gm_ce_type_portee_temporelle = "'.$aso_valeurs['gm_ce_type_portee_temporelle'].'", '.'gm_portee_temporelle = "'.$aso_valeurs['gm_portee_temporelle'].'", '.'gm_ce_admin = "'.$auth->getAuthData('ga_id_administrateur').'" '.'WHERE gm_id_menu = '.$adme_menu_id;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';// Gestion de la relation menu par défautif (isset($aso_valeurs['defaut']) && $aso_valeurs['defaut'] == 1) {$requete_id_menu_supr_defaut = 'SELECT GM01.gm_id_menu AS id_menu_supr_defaut '.'FROM gen_menu AS GM01, gen_menu AS GM02, gen_menu_relation '.'WHERE GM02.gm_id_menu = '.$adme_menu_id.' '.'AND GM02.gm_ce_site = GM01.gm_ce_site '.'AND GM01.gm_id_menu = gmr_id_menu_01 '.'AND gmr_id_valeur = 101 ';// 101 = menu par "defaut"$resultat_menu_supr_defaut = $db->query($requete_id_menu_supr_defaut);if (DB::isError($resultat_menu_supr_defaut)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu_supr_defaut->getMessage(), $requete_id_menu_supr_defaut));}if ($resultat_menu_supr_defaut->numRows() > 0 ) {$requete_supr_defaut = 'DELETE FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = gmr_id_menu_02 '.'AND gmr_id_valeur = 101 '.// 101 = menu par "defaut"'AND gmr_id_menu_01 = '.$resultat_menu_supr_defaut->id_menu_supr_defaut;$resultat_supr_defaut = $db->query($requete_supr_defaut);if (DB::isError($resultat_supr_defaut)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_supr_defaut->getMessage(), $requete_supr_defaut));}}// Requete d'insertion de la relation menu par défaut$requete = 'INSERT INTO gen_menu_relation '.'SET gmr_id_menu_01 = '.$adme_menu_id.', '.'gmr_id_menu_02 = '.$adme_menu_id.', '.'gmr_id_valeur = 101, '.'gmr_ordre = NULL ';$resultat = $db->query($requete);if (DB::isError($resultat)) {die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete));}}}/** Fonction ADME_deplacerMenuClassique() - Permet de déplacer un menu dans la hiérarchie.** Permet de déplacer un menu dans la hiérarchie des menus classiques.* Ancien nom : moveMenu()** @param mixed objet Pear DB de connexion à la base de données.* @param string identifiant du site administré.* @param integer identifiant du menu à déplacer.* @param boolean indique si on veut monter le menu (true) ou le descendre (false).* @return void modifie la base de données.*/function ADME_deplacerMenuClassique($db, $adme_site_id, $adme_menu_id, $bln_monter){//-------------------------------------------------------------------------------------------------------------------// Récupération d'information sur le site de ce menu.$objet_site = GEN_lireInfoSitePrincipal($db, $adme_site_id);if ($objet_site == false) {die('ERREUR Papyrus Administrateur de Menus : impossible de lire les infos du site.<br />'.'Id du site : '. $adme_site_id .'<br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier n° : '. __FILE__ .'<br />');}//-------------------------------------------------------------------------------------------------------------------// Récupération d'informations sur les relations du menu courant.$ligne_menu_courant_relation = GEN_lireInfoMenuRelation($db, $adme_menu_id, '1');if ($ligne_menu_courant_relation == false) {die('ERREUR Papyrus Administrateur de Menus : impossible de lire les infos sur les relations du menu.<br />'.'Identifiant menu : '. $adme_menu_id .'<br />'.'Identifiant valeur relation : 1 <br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier n° : '. __FILE__ .'<br />');}//-------------------------------------------------------------------------------------------------------------------// Récupération de l'identifiant du menu pére$id_pere = GEN_lireIdentifiantMenuPere($adme_menu_id);if ($id_pere === false) {die('ERREUR Papyrus Administrateur de Menus : impossible de lire identifiant du menu père.<br />'.'Identifiant menu fils : '. $adme_menu_id .'<br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier n° : '. __FILE__ .'<br />');}//-------------------------------------------------------------------------------------------------------------------// Recherche d'information sur le menu précédent ou suivant le menu courant$requete = 'SELECT GMR01.gmr_ordre AS nouvel_ordre, GMR01.gmr_id_menu_01 AS id_menu_remplace '.'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '.'WHERE GMR02.gmr_id_menu_01 = GMR01.gmr_id_menu_01 '.'AND GMR01.gmr_id_menu_01 = gm_id_menu './/jonction avec la table GEN_MENU'AND gm_ce_site = '.$objet_site->gs_id_site.' '.'AND GMR02.gmr_id_valeur = 100 '.// 100 = menu type "classique"'AND GMR01.gmr_id_menu_02 = '.$id_pere.' '.'AND GMR01.gmr_id_valeur = 1 ';// 1 = relation menu "père"if ($bln_monter) {$requete .= 'AND GMR01.gmr_ordre < '.$ligne_menu_courant_relation->gmr_ordre.' '.'ORDER BY GMR01.gmr_ordre DESC';} else {$requete .= 'AND GMR01.gmr_ordre > '.$ligne_menu_courant_relation->gmr_ordre.' '.'ORDER BY GMR01.gmr_ordre ASC';}$resultat_menu = $db->query($requete);(DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';$ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);$resultat_menu->free();//-------------------------------------------------------------------------------------------------------------------// Si la requete ne retourne rien nous ne faisons rien.if (! $ligne_menu) {return null;}//-------------------------------------------------------------------------------------------------------------------// Mise à jour des relations du menu courant$requete = 'UPDATE gen_menu_relation SET '.'gmr_ordre = '.$ligne_menu->nouvel_ordre.' '.'WHERE gmr_id_menu_01 = '.$ligne_menu_courant_relation->gmr_id_menu_01.' '.'AND gmr_id_valeur = 1';// 1 = relation menu "père"$resultat_update = $db->query($requete);(DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';//-------------------------------------------------------------------------------------------------------------------// Mise à jour des relations du menu précédent ou suivant$requete = 'UPDATE gen_menu_relation SET '.'gmr_ordre = '.$ligne_menu_courant_relation->gmr_ordre.' '.'WHERE gmr_id_menu_01 = '.$ligne_menu->id_menu_remplace.' '.'AND gmr_id_valeur = 1';// 1 = relation menu "père"$resultat_update = $db->query($requete);(DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';}/** Fonction ADME_supprimerMenuClassique() - Supprime un menu classique.** Supprime de la base de données de Génésia toutes les traces du menu classiques* passé en paramètre.* Ancien nom : deleteMenu()** @param mixed l'objet Pear DB de connexion à la base de données.* @param string l'identifiant du menu à supprimer* @return void le menu classique est supprimé de la base de données.*/function ADME_supprimerMenuClassique($db, $id_menu_a_supprimer){//----------------------------------------------------------------------------// Y a t'il des sous_menus$requete = 'SELECT COUNT(gm_id_menu) AS compte '.'FROM gen_menu, gen_menu_relation '.'WHERE gmr_id_menu_02 = '.$id_menu_a_supprimer.' '.'AND gmr_id_valeur = 1 '.'AND gmr_id_menu_01 = gm_id_menu ';$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT);if ($ligne && ($ligne->compte > 0)) {return 'Ce menu contient encore des sous menus. Veuillez commencez par supprimer ces sous menus.';}//----------------------------------------------------------------------------// S'il n'y a plus de sous niveau, on supprime le menu$requete = 'DELETE FROM gen_menu '.'WHERE gm_id_menu = '.$id_menu_a_supprimer;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';//----------------------------------------------------------------------------// Puis on supprime les relations de ce menu$requete = 'DELETE FROM gen_menu_relation '.'WHERE gmr_id_menu_01 = '.$id_menu_a_supprimer;$resultat = $db->query($requete);(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';}// +------------------------------------------------------------------------------------------------------+// | PIED du PROGRAMME |// +------------------------------------------------------------------------------------------------------+/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.6 2004/11/08 17:40:07 jpm* Gestion correcte de l'ouverture et fermeture des menus.* Utilisation des sessions.** Revision 1.5 2004/11/04 19:11:38 jpm* Mise en conformité vis à vis de la convention de codage.* Amélioration de la récursivité de la gestion de l'affichage des menus.** Revision 1.4 2004/10/25 16:27:42 jpm* Correction d'un bogue dans la gestion du déplacement des menus.** Revision 1.3 2004/09/23 17:45:13 jpm* Amélioration de la gestion des liens annuler et du selecteur de sites.** Revision 1.2 2004/07/06 17:07:37 jpm* Modification de la documentation pour une mailleur analyse par PhpDocumentor.** Revision 1.1 2004/06/16 15:04:32 jpm* Changement de nom de Génésia en Papyrus.* Changement de l'arborescence.** Revision 1.27 2004/05/10 12:13:03 jpm* Modification des formulaires.** Revision 1.26 2004/05/07 16:31:20 jpm* Amélioration du formulaire d'un menu classique.** Revision 1.25 2004/05/07 07:23:53 jpm* Amélioration du code, des commentaires et correction de bogues.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>