| /trunk/papyrus/applettes/vous_etes_ici/vous_etes_ici.php |
|---|
| New file |
| 0,0 → 1,178 |
| <?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: vous_etes_ici.php,v 1.1 2004-06-15 15:06:25 jpm Exp $ |
| /** |
| * Applette : Vous Etes Ici |
| * |
| * Affiche les liens contenant la suite des menus visités pour arriver |
| * au menu courant visioné par l'utilisateur. |
| * Nécessite : |
| * - Constantes et variable de Papyrus. |
| * - Base de données de Papyrus |
| * - Pear Net_URL |
| * - Pear DB |
| * - API Débogage 1.0 |
| * |
| *@package Applette |
| *@subpackage Vous Etes Ici |
| //Auteur original : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:06:25 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $_GEN_commun['info_applette_nom_fonction'] = 'VEI_afficherVousEtesIci'; |
| $_GEN_commun['info_applette_balise'] = 'VOUS_ETES_ICI'; |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Fonction VEI_afficherVousEtesIci() - Déploie le "vous êtes ici" d'un menu. |
| * |
| * Affiche la suite des menus visité, sous forme de lien, pour arriver |
| * au menu courant visioné par l'utilisateur. |
| * Necessite : |
| * - Constantes et variable de Papyrus. |
| * - Pear Net_URL |
| * - Pear DB |
| * |
| * @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction. |
| * @param array tableau global de Papyrus. |
| * @param int identifiant du menu courant qui représentent la fin du "vous êtes ici". |
| * @param boolean indique que nous avons à faire au premier appel de cette fonction récursive. |
| * @return string une liste de listes XHTML représentant le plan du site. |
| */ |
| function VEI_afficherVousEtesIci($tab_arguments, $_GEN_commun, $id_menu_courant = '', $premier_appel = true) |
| { |
| // Initialisation de variable. |
| $objet_pear_db = $_GEN_commun['pear_db']; |
| (empty($id_menu_courant)) ? $id_menu_courant = $_GEN_commun['info_menu']->gm_id_menu : ''; |
| $url_id_type_site = GEN_URL_ID_TYPE_SITE; |
| $url_id_type_menu = GEN_URL_ID_TYPE_MENU; |
| $url_cle_site = GEN_URL_CLE_SITE; |
| $url_cle_menu = GEN_URL_CLE_MENU; |
| $i18n_url = '';// Evite d'écrire l'i18n dans l'url demandée. |
| if (!empty($_GEN_commun['url_i18n'])) { |
| // L'écriture de l'i18n dans les urls des menus est demandée. |
| $i18n_url = $_GEN_commun['url_i18n']; |
| $url_cle_i18n = GEN_URL_CLE_I18N; |
| } |
| $vei = ''; |
| $requete = 'SELECT gm_id_menu, gm_ce_i18n, gm_code_num, gm_code_alpha, gm_nom, gmr_id_menu_02 '. |
| 'FROM gen_menu, gen_menu_relation '. |
| 'WHERE gm_id_menu = '.$id_menu_courant.' '. |
| 'AND gmr_id_menu_01 = gm_id_menu '. |
| 'AND gmr_id_valeur = 1 ';// 1 = avoir "père" |
| $resultat = $objet_pear_db->query($requete); |
| if (DB::isError($resultat)) { |
| die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)); |
| } |
| $ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT); |
| $resultat->free(); |
| // Création de l'url du menu courant |
| $objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']); |
| $requete_site_code = 'SELECT gs_code_num, gs_code_alpha '. |
| 'FROM gen_menu, gen_site '. |
| 'WHERE gm_id_menu = '.$ligne->gm_id_menu.' '. |
| 'AND gm_ce_site = gs_id_site'; |
| $resultat_site_code = $objet_pear_db->query($requete_site_code); |
| if (DB::isError($resultat_site_code)) { |
| die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_site_code->getMessage(), $requete_site_code)); |
| } |
| $ligne_site_code = $resultat_site_code->fetchRow(DB_FETCHMODE_OBJECT); |
| if ($url_id_type_site == 'int') { |
| $objet_pear_url->addQueryString($url_cle_site, $ligne_site_code->gs_code_num); |
| } else { |
| $objet_pear_url->addQueryString($url_cle_site, $ligne_site_code->gs_code_alpha); |
| } |
| if ($url_id_type_menu == 'int') { |
| $objet_pear_url->addQueryString($url_cle_menu, $ligne->gm_code_num); |
| } else { |
| $objet_pear_url->addQueryString($url_cle_menu, $ligne->gm_code_alpha); |
| } |
| if (!empty($i18n_url)) { |
| $objet_pear_url->addQueryString($url_cle_i18n, $i18n_url); |
| } |
| $url = $objet_pear_url->getURL(); |
| if ($ligne->gmr_id_menu_02 != 0) {// C'est le menu racine! |
| $vei .= '<a href="'.$url.'">'.$ligne->gm_nom.'</a> >>> '; |
| $vei .= VEI_afficherVousEtesIci($tab_arguments, $_GEN_commun, $ligne->gmr_id_menu_02, false); |
| } else { |
| $vei .= '<a href="'.$url.'">'.$ligne->gm_nom.'</a>'; |
| } |
| if ($premier_appel) { |
| $tab_vei = explode(' >>> ', $vei); |
| $retour = ''; |
| for ($i = (count($tab_vei) - 1); $i >= 0 ;$i--) { |
| $retour .= $tab_vei[$i]; |
| $retour .= ($i != 0) ? "\n".'<span class="separateur_vei"> > </span>'."\n" : '' ; |
| } |
| return $retour; |
| } |
| return $vei; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.4 2004/05/05 14:33:19 jpm |
| * Gestion de l'indication de langue dans l'url. |
| * Utile que si on veut forcer la langue. |
| * |
| * Revision 1.2 2004/05/05 06:44:33 jpm |
| * Complément des commentaires indiquant les paquetages nécessaire à l'applette. |
| * |
| * Revision 1.1 2004/05/05 06:39:18 jpm |
| * Transformation en applette de la fonction générant le "vous êtes ici". |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |
| /trunk/papyrus/applettes/selecteur_sites/selecteur_sites.php |
|---|
| New file |
| 0,0 → 1,186 |
| <?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: selecteur_sites.php,v 1.1 2004-06-15 15:05:47 jpm Exp $ |
| /** |
| * Applette : selecteur sites |
| * |
| * Génère un formulaire contenant un menu déroulant permettant de choisir un site parmis les disponibles. |
| * Nécessite : |
| * - Constantes et globales de Papyrus. |
| * - Base de données de Papyrus |
| * - Pear Net_URL |
| * - Pear DB |
| * - API Débogage 1.0 |
| * |
| *@package Applette |
| *@subpackage Selecteur sites |
| //Auteur original : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:05:47 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $_GEN_commun['info_applette_nom_fonction'] = 'afficherSelecteurSite'; |
| $_GEN_commun['info_applette_balise'] = 'SELECTEUR_SITES'; |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Fonnction GEN_afficherContenuApplette() - Fournit un formulaire de sélection des sites. |
| * |
| * Renvoie un formulaire permettant de passer de site en site pour une langue donnée. |
| * Le formulaire affiche les noms des sites en fonctions de la langue passée dans l'url. |
| * L'url renvoyée comporte seulement le nom du site, ainsi la langue par défaut défini |
| * par l'utilisateur est employée pour implémenter la variable $_GEN_commun['url_i18n']. |
| * Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction. |
| * |
| * @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction. |
| * @param array tableau global de Papyrus. |
| * @return string formulaire XHTML contenant les sites disponibles. |
| */ |
| function afficherSelecteurSite($tab_arguments, $_GEN_commun) |
| { |
| // Initialisation de variable de configuration. |
| $objet_pear_db = $_GEN_commun['pear_db'];//objet Pear créé par DB contenant la connexion à la base de données. |
| $code_site = $_GEN_commun['url_site'];//identifiant du site courant. |
| $id_langue = $_GEN_commun['url_i18n'];//identifiant de la langue principale du site courant. |
| $url_cle_site = GEN_URL_CLE_SITE; |
| $url_cle_i18n = GEN_URL_CLE_I18N; |
| $url_id_type_site = GEN_URL_ID_TYPE_SITE; |
| $indent_origine = 12;// Indentation de départ en nombre d'espace |
| $indent_pas = 4;// Pas d'indentation en nombre d'espace |
| // Texte à traduire |
| $etiquette_legende = 'Sélecteur de monde'; |
| $etiquette_option_defaut = 'changer de monde'; |
| $etiquette_bouton_valider = 'OK'; |
| $etiquette_erreur = 'Un seul site disponible dans Génésia.'; |
| // On recherche l'ensemble des sites principaux en excluant le site admin (administration de Génésia). |
| $requete = 'SELECT gs_id_site, gs_code_num, gs_code_alpha, gs_nom '. |
| 'FROM gen_site, gen_site_relation '. |
| 'WHERE './/gs_id_site <> 1 '.// 1 correspond à l'identifiant du site Admin par défaut. |
| 'gsr_id_site_01 = gsr_id_site_02 './/'AND |
| 'AND gsr_id_valeur = 102 '.// 102 = site "principal" |
| 'AND gs_id_site = gsr_id_site_01'; |
| $resultat = $objet_pear_db->query($requete); |
| (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : ''; |
| if ( $resultat->numRows() == 0 ) { |
| $res = str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '<!-- '.$etiquette_erreur.' -->'; |
| } else { |
| // Préparation de l'url de retour du formulaire |
| $objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']); |
| $objet_pear_url->addQueryString($url_cle_i18n, $id_langue); |
| // Préparation du code du sites |
| $champs_code_site = ($url_id_type_site == 'int') ? 'gs_code_num' : 'gs_code_alpha'; |
| // Préparation du formulaire |
| $res = str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '<form id="selecteur_sites" name="selecteur_sites" action="'.$objet_pear_url->getURL().'" method="get">'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)). |
| '<fieldset>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<legend>'.$etiquette_legende.'</legend>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<select id="'.$url_cle_site.'" name="'.$url_cle_site.'">'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)). |
| '<option value="'.$code_site.'" selected="selected">'.$etiquette_option_defaut.'</option>'."\n"; |
| while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) { |
| // Initialisation des variables |
| $nom = ''; |
| // Recherche de traduction |
| $requete_traduction = 'SELECT gs_ce_i18n, gs_nom '. |
| 'FROM gen_site, gen_site_relation '. |
| 'WHERE '.$ligne['gs_id_site'].' = gsr_id_site_01 '. |
| 'AND gsr_id_valeur = 1 '. // 1 = "avoir traduction" |
| 'AND gsr_id_site_02 = gs_id_site '. |
| 'AND gs_ce_i18n = "'.$id_langue.'"'; |
| $resultat_traduction = $objet_pear_db->query($requete_traduction); |
| (DB::isError($resultat_traduction)) |
| ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_traduction->getMessage(), $requete_traduction)) |
| : ''; |
| if ( $resultat_traduction->numRows() != 0 ) { |
| $ligne_traduction = $resultat_traduction->fetchRow(DB_FETCHMODE_OBJECT); |
| $nom = $ligne_traduction->gs_nom; |
| } else { |
| $nom = $ligne['gs_nom']; |
| } |
| $resultat_traduction->free(); |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 3)). |
| '<option value="'.$ligne[$champs_code_site].'">'.$nom.'</option>'."\n"; |
| } |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '</select>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 2)). |
| '<input type="submit" value="'.$etiquette_bouton_valider.'"/>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)). |
| '</fieldset>'."\n"; |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 0)). |
| '</form>'."\n"; |
| } |
| $resultat->free(); |
| return $res; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.5 2004/05/05 08:27:12 jpm |
| * Ajout du paramétrage de l'indentation et l'utilisation de variable pour contenir les textes de l'appli. |
| * |
| * Revision 1.4 2004/05/05 06:44:28 jpm |
| * Complément des commentaires indiquant les paquetages nécessaire à l'applette. |
| * |
| * Revision 1.3 2004/05/03 11:19:10 jpm |
| * Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette. |
| * |
| * Revision 1.2 2004/05/01 16:13:11 jpm |
| * Ajout du nom de la balise de l'applette dans le code de l'applette. |
| * |
| * Revision 1.1 2004/05/01 10:30:59 jpm |
| * Ajout de l'applette selecteur de sites. |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |
| /trunk/papyrus/applettes/menu/menu.php |
|---|
| New file |
| 0,0 → 1,296 |
| <?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: menu.php,v 1.1 2004-06-15 15:04:14 jpm Exp $ |
| /** |
| * Applette : menu |
| * |
| * Génère une liste de listes comportant tous les niveaux des menus "classiques" d'un site. |
| * Nécessite : |
| * - Variable de Papyrus. |
| * - Base de données de Papyrus |
| * - Pear DB |
| * - Pear Net_URL |
| * - API Débogage 1.0 |
| * |
| *@package Applette |
| *@subpackage Menu |
| //Auteur original : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:04:14 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $_GEN_commun['info_applette_nom_fonction'] = 'afficherMenuNiveauMultiple'; |
| $_GEN_commun['info_applette_balise'] = 'MENU_([0-9])_([0-9])'; |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Fonction GEN_afficherMenuNiveauMultiple() - Retourne la liste des listes de menus. |
| * |
| * Cette fonction retourne ne fait qu'encapsuler une fonction récursive |
| * retournant les listes de menus de l'arborescence d'un site dans une |
| * langue donnée. |
| * |
| * @param array contient les arguments de la fonction en 1 le niveau de départ et en 2 le niveau d'arrivée (profondeur max demandée). |
| * @param array tableau global de Papyrus. |
| * @return string HTML la liste des listes de menus. |
| */ |
| function afficherMenuNiveauMultiple($tab_applette_arguments, $_GEN_commun) |
| { |
| // Initialisation de variable. |
| $objet_pear_db = $_GEN_commun['pear_db']; |
| $id_site = $_GEN_commun['info_site']->gs_id_site; |
| $id_menu = $_GEN_commun['info_menu']->gm_id_menu; |
| $id_langue = $_GEN_commun['i18n']; |
| $i18n_url = '';// Evite d'écrire l'i18n dans l'url demandée. |
| if (!empty($_GEN_commun['url_i18n'])) { |
| // L'écriture de l'i18n dans les urls des menus est demandée. |
| $i18n_url = $_GEN_commun['url_i18n']; |
| } |
| $indent_origine = 12;// Indentation de départ en nombre d'espace |
| $indent_pas = 4;// Pas d'indentation en nombre d'espace |
| // Récupérations des arguments passés dans la balise. |
| $niveau_depart = $tab_applette_arguments[2]; |
| $profondeur = $tab_applette_arguments[3]; |
| // Remplacement des valeurs variables du nom de la balise par celles trouvées. |
| //global $_GEN_commun; |
| //$_GEN_commun['info_applette_balise'] = 'MENU_'.$niveau_depart.'_'.$profondeur; |
| //Construction du menu |
| $xhtml_menu = afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url ,$niveau_depart, $profondeur, 0, $indent_origine, $indent_pas); |
| //Si nous avons un |
| if (! empty($xhtml_menu)) { |
| //$res = str_repeat(' ', $indent_origine).'<ul id="menu_niveau_'.$niveau_depart.'">'."\n"; |
| $res = $xhtml_menu; |
| //$res .= str_repeat(' ', $indent_origine).'</ul>'; |
| } else { |
| $res = '<!-- '.$_GEN_commun['info_applette_balise'].' : aucun menu trouvé ! -->'; |
| } |
| return $res; |
| } |
| /** Fonction afficherListeNiveauMultiple() - Affiche une arborescence des menu classiques d'un site. |
| * |
| * Créé et retourne une liste pour chaque niveau de menu classique trouvé dans l'arborescence |
| * des menus d'un site dans une langue donnée. |
| * C'est une fonction récursive. |
| * |
| * @param mixed objet Pear DB de connexion à la base de données. |
| * @param integer identifiant d'un site. |
| * @param integer identifiant de la langue demandée. |
| * @param integer niveau de départ. |
| * @param integer niveau d'arrivée (profondeur max demandée). |
| * @param integer identifiant d'un menu pére. |
| * @return string les listes de menus au format XHTML. |
| */ |
| function afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur, $id_pere_menu_a_deployer, $indent_origine = 12, $indent_pas = 4) |
| { |
| // Initialisation des variables |
| static $niveau_actuel = 1; |
| $res = ''; |
| // On affiche un menu que si $profondeur <= $niveau_actuel <= $depart |
| if ($niveau_actuel > $profondeur) { |
| return ; |
| } |
| if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) { |
| $res = str_repeat(' ', $indent_origine + ($indent_pas * 1)).'<ul id="menus_niveau_'.$niveau_actuel.'">'."\n"; |
| } |
| $requete = 'SELECT gm_id_menu, GMR01.gmr_ordre '. |
| 'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '. |
| 'WHERE GMR01.gmr_id_menu_02 = '.$id_pere_menu_a_deployer.' '. |
| 'AND GMR01.gmr_id_menu_01 = gm_id_menu '. |
| 'AND GMR01.gmr_id_valeur = 1 '.// 1 = "avoir père" |
| 'AND gm_ce_site = '.$id_site.' '. |
| '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 = $objet_pear_db->query($requete); |
| (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : ''; |
| while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) { |
| // On commence par regarder si le menu existe dans la langue demandée |
| if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) { |
| $requete_i18n = 'SELECT gm_id_menu '. |
| 'FROM gen_menu, gen_menu_relation '. |
| 'WHERE gmr_id_menu_01 = '.$ligne->gm_id_menu.' '. |
| 'AND gmr_id_menu_02 = gm_id_menu '. |
| 'AND gmr_id_valeur = 2 '.// 2 = "avoir traduction" |
| 'AND gm_ce_i18n = "'.$id_langue.'"'; |
| $resultat_i18n = $objet_pear_db->query($requete_i18n); |
| (DB::isError($resultat_i18n)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_i18n->getMessage(), $requete_i18n)) : ''; |
| if ($resultat_i18n->numRows() != 0) { |
| $id_menu_i18n = $resultat_i18n->fetchRow(DB_FETCHMODE_OBJECT); |
| $resultat_i18n->free(); |
| $res .= afficherEntreeListeMenu($objet_pear_db, $id_menu_i18n->gm_id_menu, $i18n_url, |
| $niveau_actuel, $ligne->gmr_ordre, $indent_origine, $indent_pas); |
| } else { |
| $res .= afficherEntreeListeMenu($objet_pear_db, $ligne->gm_id_menu, $i18n_url, $niveau_actuel, |
| $ligne->gmr_ordre, $indent_origine, $indent_pas); |
| } |
| } |
| // pour chaque menu on regarde s'il y a des fils. Si oui, on les déploie. |
| $requete_fils = 'SELECT gm_id_menu '. |
| 'FROM gen_menu, gen_menu_relation AS GMR01, gen_menu_relation AS GMR02 '. |
| 'WHERE GMR01.gmr_id_menu_02 = '.$ligne->gm_id_menu.' '. |
| 'AND GMR01.gmr_id_menu_01 = gm_id_menu '. |
| '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 '. |
| 'LIMIT 0,1'; |
| $resultat_fils = $objet_pear_db->query($requete_fils); |
| (DB::isError($resultat_fils)) |
| ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_fils->getMessage(), $requete_fils)) |
| : ''; |
| if ($resultat_fils->numRows() != 0) { |
| $niveau_actuel++; |
| $res .= afficherListeNiveauMultiple($objet_pear_db, $id_site, $id_langue, $i18n_url, $niveau_depart, $profondeur, $ligne->gm_id_menu); |
| // On ramène $niveau_actuel un cran plus bas |
| $niveau_actuel--; |
| $res .= '</li>'."\n"; |
| } else { |
| $res .= '</li>'."\n"; |
| } |
| $resultat_fils->free(); |
| } |
| $resultat->free() ; |
| if ($niveau_actuel >= $niveau_depart && $niveau_actuel <= $profondeur) { |
| $res .= str_repeat(' ', $indent_origine + ($indent_pas * 1)).'</ul>'."\n"; |
| } |
| return $res; |
| } |
| /** Fonction afficherEntreeListeMenu() - Contruit une entrée dans une liste du menu d'un site. |
| * |
| * Cette fonction retourne une entrée (<li></li>) dans la liste du menu d'un site. |
| * Le menu est un lien. |
| * Necessite l'utilisation de Pear Net_URL par le programme appelant cette fonction. |
| * |
| * @param mixed objet Pear DB de connexion à la base de données. |
| * @param integer niveau du menu. |
| * @param integer ordre du menu dans le niveau. |
| * @return string liste représentant le menu duHTML |
| */ |
| function afficherEntreeListeMenu($objet_pear_db, $id_menu, $i18n_url, $niveau, $ordre, $indent_origine = 12, $indent_pas = 4) |
| { |
| // Préparation des noms des champs des codes pour le site et le menu |
| $champs_code_site = (GEN_URL_ID_TYPE_SITE == 'int') ? 'gs_code_num' : 'gs_code_alpha'; |
| $champs_code_menu = (GEN_URL_ID_TYPE_MENU == 'int') ? 'gm_code_num' : 'gm_code_alpha'; |
| // Récupération du nom de l'entrée du menu à afficher |
| $requete = 'SELECT '.$champs_code_site.', '.$champs_code_menu.', '. |
| 'gm_nom, gm_description_resume, gm_raccourci_clavier, gm_ce_i18n '. |
| 'FROM gen_menu, gen_site '. |
| 'WHERE gm_id_menu = '.$id_menu.' '. |
| 'AND gm_ce_site = gs_id_site '; |
| $resultat = $objet_pear_db->query($requete); |
| (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : ''; |
| $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC); |
| // Préparation d'une entrée dans la liste du menu |
| $menu_nom = htmlentities($ligne['gm_nom']); |
| $menu_texte_title = htmlentities($ligne['gm_description_resume']); |
| // Préparation de l'url de l'entrée |
| $objet_pear_url = & new Net_URL('http://'.$_SERVER['HTTP_HOST'].$_SERVER['PHP_SELF']); |
| $objet_pear_url->addQueryString(GEN_URL_CLE_SITE, $ligne[$champs_code_site]); |
| $objet_pear_url->addQueryString(GEN_URL_CLE_MENU, $ligne[$champs_code_menu]); |
| if (!empty($i18n_url)) { |
| $objet_pear_url->addQueryString(GEN_URL_CLE_I18N, $i18n_url); |
| } |
| $url = $objet_pear_url->getURL(); |
| //Création d'une entrée dans la liste du menu |
| $lien_menu = '<a href="'.$url.'" title="'.$menu_texte_title.'">'.$menu_nom.'</a>'; |
| $retour = str_repeat(' ', $indent_origine + ($indent_pas * 2)); |
| $retour .= '<li id="menu_'.$niveau.'_'.$ordre.'">'.$lien_menu; |
| return $retour; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.10 2004/05/05 14:33:04 jpm |
| * Gestion de l'indication de langue dans l'url. |
| * Utile que si on veut forcer la langue. |
| * |
| * Revision 1.8 2004/05/05 06:44:19 jpm |
| * Complément des commentaires indiquant les paquetages nécessaire à l'applette. |
| * |
| * Revision 1.7 2004/05/04 14:19:37 jpm |
| * Mise entre guillemet simple d'un texte. |
| * |
| * Revision 1.6 2004/05/03 14:11:01 jpm |
| * Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia INUTILE! |
| * |
| * Revision 1.5 2004/05/03 14:09:32 jpm |
| * Intégration du fichier bibliothèquie de fonctions sur gen_menu provenant de la bibliothèque de Génésia. |
| * |
| * Revision 1.4 2004/05/03 11:19:00 jpm |
| * Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette. |
| * |
| * Revision 1.3 2004/05/03 08:52:44 jpm |
| * Modification pour intégrer les sous listes (ul) de menus à l'intèrieur de l'entrée (li) du menu supérieur. |
| * |
| * Revision 1.2 2004/05/01 17:22:23 jpm |
| * Changement de nom de l'applette dans les commentaires. |
| * |
| * Revision 1.1 2004/05/01 16:12:39 jpm |
| * Ajout de l'applette gérant les menus multi niveaux ou niveau unique. |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |
| /trunk/papyrus/applettes/identification/identification.php |
|---|
| New file |
| 0,0 → 1,160 |
| <?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: identification.php,v 1.1 2004-06-15 15:01:41 jpm Exp $ |
| /** |
| * Applette : identification |
| * |
| * Génère un formulaire les champs nécessaires pour s'identifier. |
| * Nécessite : |
| * - Variable globale de Génésia. |
| * - Pear Auth |
| * - Pear Net_URL |
| * |
| *@package Applette |
| *@subpackage Identification |
| //Auteur original : |
| *@author Jean-Pascal MILCENT <jpm@tela-botanica.org> |
| //Autres auteurs : |
| *@author Aucun |
| *@copyright Tela-Botanica 2000-2004 |
| *@version $Revision: 1.1 $ $Date: 2004-06-15 15:01:41 $ |
| // +------------------------------------------------------------------------------------------------------+ |
| */ |
| // +------------------------------------------------------------------------------------------------------+ |
| // | ENTÊTE du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| $_GEN_commun['info_applette_nom_fonction'] = 'afficherFormIdentification'; |
| $_GEN_commun['info_applette_balise'] = 'IDENTIFICATION'; |
| // +------------------------------------------------------------------------------------------------------+ |
| // | CORPS du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| // Si le site utilise une authentification. |
| if ($_GEN_commun['info_auth']->gsa_ce_type_auth == 1) { |
| // Si un formulaire nous renvoie en POST une variable "deconnexion", nous délogons l'utilisateur. |
| if (isset($_POST['deconnexion'])) { |
| $_GEN_commun['pear_auth']->logout(); |
| $_GEN_commun['pear_auth']->start(); |
| } |
| // Si un formulaire nous renvoie en POST une variable "connexion", nous logons l'utilisateur. |
| if (isset($_POST['connexion'])) { |
| $_GEN_commun['pear_auth']->login(); |
| $_SESSION['username'] = $username; |
| } |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | LISTE de FONCTIONS | |
| // +------------------------------------------------------------------------------------------------------+ |
| /** Fonction afficherFormIdentification() - Retourne une formulaire pour s'identifier. |
| * |
| * Retourne un formulaire d'identificatin ou de déconnexion suivant que l'utilisateur est |
| * identifié ou pas. |
| * |
| * @param array tableau d'éventuel arguments présent dans la balise transmis à la fonction. |
| * @param array tableau global de Papyrus. |
| * @return string formulaire de connexion ou de déconnexion. |
| */ |
| function afficherFormIdentification($tab_arguments, $_GEN_commun) |
| { |
| // Initialisation de variable. |
| $objet_pear_auth = $_GEN_commun['pear_auth']; |
| $url = $_GEN_commun['url']->getUrl(); |
| // Récupération des valeurs pour le login et le mot de passe |
| $mot_de_passe = (! isset($_POST['password'])) ? '' : $_POST['password']; |
| $login = (! isset($_POST['username'])) ? '' : $_POST['username']; |
| // ATTENTION : Partie à supprimer une fois les mise à jour effectué dans l'annuaire de Tela Botanica |
| // Devrait être déplacer dans l'appli inscription de Tela. |
| if (isset($_GEN_commun['auth_info']->gsab_nom_table) && $_GEN_commun['auth_info']->gsab_nom_table == 'annuaire_tela') { |
| verification_mot_de_passe($db, $mot_de_passe, $login); |
| } |
| if (! $objet_pear_auth->getAuth()) { |
| // L'utilisateur n'est pas identifié: |
| $res = str_repeat(' ', 16).'<form id="form_connexion" action="'.$url.'" method="post">'."\n"; |
| $res .= str_repeat(' ', 16).'<fieldset>'."\n"; |
| $res .= str_repeat(' ', 20).'<legend>'.'Identification'.'</legend>'."\n"; |
| $res .= str_repeat(' ', 20).'<p>'."\n"; |
| $res .= str_repeat(' ', 24).'<label for="username">'.'Courriel :'.'</label>'."\n"; |
| $res .= str_repeat(' ', 24).'<input type="text" id="username" name="username" size="15" tabindex="1" value="'.'courriel'.'" />'."\n"; |
| $res .= str_repeat(' ', 20).'</p>'."\n"; |
| $res .= str_repeat(' ', 20).'<p>'."\n"; |
| $res .= str_repeat(' ', 24).'<label for="password">'.'Mot de passe :'.'</label>'."\n"; |
| $res .= str_repeat(' ', 24).'<input type="password" id="password" name="password" size="15" tabindex="2" value="'.'mot de passe'.'" />'."\n"; |
| $res .= str_repeat(' ', 20).'</p>'."\n"; |
| $res .= str_repeat(' ', 20).'<p>'."\n"; |
| $res .= str_repeat(' ', 24).'<input type="submit" id="connexion" name="connexion" tabindex="3" value="'.'s\'identifier'.'" />'."\n"; |
| $res .= str_repeat(' ', 20).'</p>'."\n"; |
| $res .= str_repeat(' ', 16).'</fieldset>'."\n"; |
| $res .= str_repeat(' ', 16).'</form>'; |
| } else { |
| // L'utilisateur est identifié. Nous affichons ses informations. |
| // Amélioré la récupération des informations sur l'utilisateur. |
| //$nom_utilisateur = $objet_pear_auth->getAuthData($champ_nom); |
| $res = str_repeat(' ', 16).'<form id="form_deconnexion" action="'.$url.'" method="post">'."\n"; |
| $res .= str_repeat(' ', 16).'<fieldset>'."\n"; |
| $res .= str_repeat(' ', 20).'<legend>'.'Identification'.'</legend>'."\n"; |
| // Il faudrait mettre dans la base de données le prénom et le nom ou chercher comment définir ces champs en fonction |
| // de l'annuaire utilisé, si on veut les afficher après le message de bienvenue. |
| $res .= str_repeat(' ', 20).'<p>'.'Bienvenue!'.'</p>'."\n"; |
| $res .= str_repeat(' ', 20).'<p>'."\n"; |
| $res .= str_repeat(' ', 24).'<input type="submit" id="deconnexion" name="deconnexion" tabindex="1" value="'.'se déconnecter'.'" />'."\n"; |
| $res .= str_repeat(' ', 20).'</p>'."\n"; |
| $res .= str_repeat(' ', 16).'</fieldset>'."\n"; |
| $res .= str_repeat(' ', 16).'</form>'; |
| } |
| return $res ; |
| } |
| // +------------------------------------------------------------------------------------------------------+ |
| // | PIED du PROGRAMME | |
| // +------------------------------------------------------------------------------------------------------+ |
| /* +--Fin du code ----------------------------------------------------------------------------------------+ |
| * |
| * $Log: not supported by cvs2svn $ |
| * Revision 1.5 2004/05/05 06:44:15 jpm |
| * Complément des commentaires indiquant les paquetages nécessaire à l'applette. |
| * |
| * Revision 1.4 2004/05/03 11:18:55 jpm |
| * Intégration de la variable globale de Génésia dans les arguments de la fonction de l'applette. |
| * |
| * Revision 1.3 2004/05/01 17:21:16 jpm |
| * Ajout d'un fieldset et d'une légende au formulaire. |
| * |
| * Revision 1.2 2004/05/01 16:13:07 jpm |
| * Ajout du nom de la balise de l'applette dans le code de l'applette. |
| * |
| * Revision 1.1 2004/05/01 11:42:01 jpm |
| * Ajout de l'applette identification. |
| * |
| * |
| * +-- Fin du code ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |