Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 109 → Rev 110

/trunk/papyrus/applications/admin_menu/bibliotheque/adme_menu_classique.fonct.php
19,7 → 19,7
// | 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.3 2004-09-23 17:45:13 jpm Exp $
// CVS : $Id: adme_menu_classique.fonct.php,v 1.4 2004-10-25 16:27:42 jpm Exp $
/**
* Fonctions de gestion des menus classiques
*
35,7 → 35,7
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.3 $ $Date: 2004-09-23 17:45:13 $
*@version $Revision: 1.4 $ $Date: 2004-10-25 16:27:42 $
// +------------------------------------------------------------------------------------------------------+
*/
 
42,7 → 42,6
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/*Mettre ici les inclusions de fichiers*/
 
 
 
49,7 → 48,6
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/*Mettre ici le code du programme*/
 
 
 
56,7 → 54,7
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
/*Mettre ici la liste de fonctions.*/
 
function lister_menu_racine($db,
$baseURL, $baseURLjs, $baseHidden,
$adminProject, $adminLocale, $adminAnnu,
645,8 → 643,8
{
//----------------------------------------------------------------------------
// Récupération d'information sur le site de ce menu.
$PRJrow = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
if ($PRJrow == false) {
$objet_site = GEN_lireInfoSitePrincipalCodeAlpha($db, $adminProject);
if ($objet_site == false) {
die('ERREUR Génésia Administrateur de Menus : impossible de lire les infos du site.<br />'.
'Code alpha du site : '. $adminProject .'<br />'.
'Ligne n° : '. __LINE__ .'<br />'.
662,25 → 660,22
'Ligne n° : '. __LINE__ .'<br />'.
'Fichier n° : '. __FILE__ .'<br />');
}
$id_pere = $ligne_menu_courant_relation->gmr_id_menu_02;
// Il serait mieux d'utiliser la fonction ci-dessous.
// Mais cela ne semble pas fonctionner!!!
/*
//----------------------------------------------------------------------------
// Récupération de l'identifiant du menu pére
$id_pere = GEN_lireIdentifiantMenuPere($menuid);
if ($id_pere == false) {
if ($id_pere === false) {
die('ERREUR Génésia Administrateur de Menus : impossible de lire identifiant du menu père.<br />'.
'Identifiant menu fils : '. $menuid .'<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_relation AS GMR01, gen_menu_relation AS GMR02 '.
'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"
692,36 → 687,34
'ORDER BY GMR01.gmr_ordre ASC';
}
$MENUresult = $db->query($requete);
(DB::isError($MENUresult)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $MENUresult->getMessage(), $requete)) : '';
$resultat_menu = $db->query($requete);
(DB::isError($resultat_menu)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_menu->getMessage(), $requete)) : '';
$MENUrow = $MENUresult->fetchRow(DB_FETCHMODE_OBJECT);
$MENUresult->free();
$ligne_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
$resultat_menu->free();
//----------------------------------------------------------------------------
// Si la requete ne retourne rien nous ne faisons rien.
if (! $MENUrow) {
if (! $ligne_menu) {
return;
}
//----------------------------------------------------------------------------
// Mise à jour des relations du menu courant
$requete = 'UPDATE gen_menu_relation SET '.
'gmr_ordre = '.$MENUrow->nouvel_ordre.' '.
'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"
$result = $db->query($requete);
(DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
$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 = '.$MENUrow->id_menu_remplace.' '.
'WHERE gmr_id_menu_01 = '.$ligne_menu->id_menu_remplace.' '.
'AND gmr_id_valeur = 1';// 1 = relation menu "père"
$result = $db->query($requete);
(DB::isError($result)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $result->getMessage(), $requete)) : '';
$resultat_update = $db->query($requete);
(DB::isError($resultat_update)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat_update->getMessage(), $requete)) : '';
}
 
/** Fonction deleteMenu() - Supprime un menu classique.
737,7 → 730,7
{
//----------------------------------------------------------------------------
// Y a t'il des sous_menus
$requete = 'SELECT COUNT(gm_id_menu) AS compte '.
$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 '.
769,7 → 762,6
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
}
 
 
/** Fonction deployer_menu () - Affiche un menu en html
*
* @param integer l'identifiant du menu
947,12 → 939,14
// +------------------------------------------------------------------------------------------------------+
// | PIED du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/*Partie non obligatoire*/
 
 
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* 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.
*