Subversion Repositories Applications.papyrus

Rev

Rev 141 | Rev 150 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
126 jpm 1 
<?php
2 
/*vim: set expandtab tabstop=4 shiftwidth=4: */
3 
// +------------------------------------------------------------------------------------------------------+
4 
// | PHP version 4.1                                                                                      |
5 
// +------------------------------------------------------------------------------------------------------+
6 
// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |
7 
// +------------------------------------------------------------------------------------------------------+
134 jpm 8 
// | This file is part of Papyrus.                                                                        |
126 jpm 9 
// |                                                                                                      |
10 
// | Foobar is free software; you can redistribute it and/or modify                                       |
11 
// | it under the terms of the GNU General Public License as published by                                 |
12 
// | the Free Software Foundation; either version 2 of the License, or                                    |
13 
// | (at your option) any later version.                                                                  |
14 
// |                                                                                                      |
15 
// | Foobar is distributed in the hope that it will be useful,                                            |
16 
// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |
17 
// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                                        |
18 
// | GNU General Public License for more details.                                                         |
19 
// |                                                                                                      |
20 
// | You should have received a copy of the GNU General Public License                                    |
21 
// | along with Foobar; if not, write to the Free Software                                                |
22 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
23 
// +------------------------------------------------------------------------------------------------------+
148 jpm 24 
// CVS : $Id: adme_general.fonct.php,v 1.5 2004-11-10 11:58:54 jpm Exp $
126 jpm 25 
/**
134 jpm 26 
* Contient l'affichage par défaut de l'appli quand aucune actin
126 jpm 27 
*
134 jpm 28 
* Ce fichier contient les fonctions d'affichage commune à toute l'application Admin Menu.
29 
* Nous y trouvons, entre autre, la fonction d'affichage par défaut de l'appli.
126 jpm 30 
*
134 jpm 31 
*@package Admin_menu
32 
*@subpackage Fonctions
126 jpm 33 
//Auteur original :
134 jpm 34 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
126 jpm 35 
//Autres auteurs :
36 
*@author        Aucun
37 
*@copyright     Tela-Botanica 2000-2004
148 jpm 38 
*@version       $Revision: 1.5 $ $Date: 2004-11-10 11:58:54 $
126 jpm 39 
// +------------------------------------------------------------------------------------------------------+
40 
*/
41 
 
42 
// +------------------------------------------------------------------------------------------------------+
43 
// |                                            ENTETE du PROGRAMME                                       |
44 
// +------------------------------------------------------------------------------------------------------+
45 
 
46 
 
47 
// +------------------------------------------------------------------------------------------------------+
48 
// |                                           LISTE de FONCTIONS                                         |
49 
// +------------------------------------------------------------------------------------------------------+
141 jpm 50 
/** Fonction ADME_afficherFormPrincipal() - Affichage par défaut.
51 
*
52 
* Fournit l'affichage par défaut de l'application Admin Menus.
53 
*
54 
* @param  object objet Pear de connection à la base de données.
55 
* @param  object objet Pear représentant l'url de base.
56 
* @return string le XHTML par défaut de la page.
57 
*/
58 
function ADME_afficherFormPrincipal($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action)
126 jpm 59 
{
60 
    //---------------------------------------------------------------------------------------------------------------
61 
    // Nous affichons la liste des menus classiques et communs
62 
    $retour = '';
63 
    // Liste des sites principaux
64 
    $requete =  'SELECT gs_id_site, gs_code_alpha, gs_nom '.
65 
                'FROM gen_site, gen_site_relation '.
66 
                'WHERE gsr_id_site_01 = gsr_id_site_02 '.
67 
                'AND gsr_id_valeur = 102 '.// 102 = site "principal"
68 
                'AND gsr_id_site_01 = gs_id_site '.
132 jpm 69 
                'ORDER BY gsr_ordre ASC';
126 jpm 70 
 
71 
    $resultat = $objet_pear_db->query($requete);
72 
    (DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '' ;
73 
 
74 
    //---------------------------------------------------------------------------------------------------------------
75 
    // Création du formulaire
76 
    // Notes : Quickform semble remplacer les & des &amp; à nouveau par des &amp; solution utiliser str_replace()...
77 
    $form =& new HTML_QuickForm('adme_form_sites', 'post', str_replace('&amp;', '&', $objet_pear_url->getUrl()));
78 
    $tab_index = 1000;
79 
    $squelette =& $form->defaultRenderer();
80 
    $squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
81 
    $squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
82 
                                    '<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
83 
                                    '<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
84 
    $partie_site_debut =    '<fieldset>'."\n".
148 jpm 85 
                            '<legend>'.ADME_LG_TITRE_SITE.'</legend>'."\n";
126 jpm 86 
    $form->addElement('html', $partie_site_debut);
87 
    $id = 'adme_site_id';
88 
    $aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onchange' => 'javascript:this.form.submit();');
148 jpm 89 
    $label = '<label for="'.$id.'">'.ADME_LG_FORM_SITE_CHOIX.'</label>';
126 jpm 90 
    $objet_select = new HTML_QuickForm_select($id, $label, '', $aso_attributs);
91 
    $aso_options = array();
92 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
93 
        $site_nom = $ligne->gs_nom;
141 jpm 94 
        if (!isset($adme_site_id) || $adme_site_id == 0) {
95 
            $adme_site_id = $ligne->gs_id_site;
126 jpm 96 
        }
141 jpm 97 
        if ($ligne->gs_id_site == $adme_site_id) {
132 jpm 98 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site, 'selected="selected"');
126 jpm 99 
        } else {
132 jpm 100 
            $objet_select->addOption(htmlentities($ligne->gs_nom.' ('.$ligne->gs_code_alpha.')'), $ligne->gs_id_site);
126 jpm 101 
        }
102 
    }
103 
    $resultat->free();
104 
    $form->addElement($objet_select);
148 jpm 105 
    $form->addElement('submit', 'choisir_site', ADME_LG_FORM_SITE_VALIDER);
126 jpm 106 
    $partie_site_fin = "\n".'</fieldset>';
107 
    $form->addElement('html', $partie_site_fin);
108 
 
109 
    // Instanciation des valeurs par défaut du formulaire
141 jpm 110 
    $form->setDefaults($adme_site_id);
126 jpm 111 
 
148 jpm 112 
    $retour .= '<h1>'.ADME_LG_MENU_TITRE.$site_nom.'</h1>'."\n";
126 jpm 113 
    $retour .= '<p>'."\n";
114 
    $retour .= $form->toHTML()."\n";
115 
    $retour .= '</p>'."\n";
116 
 
117 
    //---------------------------------------------------------------------------------------------------------------
118 
    // Gestion des menus classiques
119 
    $retour .= '<p>'."\n";
120 
    $objet_pear_url_copie = $objet_pear_url;
121 
    $objet_pear_url_copie->addQueryString('adme_action', 'ajouter_menu_classique');
141 jpm 122 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
126 jpm 123 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
124 
    $url_ajout_menu_classique_n1 = $objet_pear_url_copie->getURL();
125 
    unset($url_ajout_menu_n1);
126 
    $retour .=    '<a href="'.$url_ajout_menu_classique_n1.'" >'.
148 jpm 127 
                            ADME_LG_MENU_CLASSIQUE_RACINE.'&nbsp;'.
126 jpm 128 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
129 
                        '</a>'."\n";
130 
    $retour .= '</p>'."\n";
131 
 
141 jpm 132 
    $retour .= ADME_afficherListeMenuClassique($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
126 jpm 133 
    //---------------------------------------------------------------------------------------------------------------
134 
    // Gestion des menus communs
135 
    $retour .=     '<p>'."\n";
136 
    $objet_pear_url_copie = $objet_pear_url;
137 
    $objet_pear_url_copie->addQueryString('adme_action', 'ajouter_menu_commun');
141 jpm 138 
    $objet_pear_url_copie->addQueryString('adme_site_id', $adme_site_id);
126 jpm 139 
    $objet_pear_url_copie->addQueryString('adme_menu_id', 0);
140 
    $url_ajout_menu_commun_n1 = $objet_pear_url_copie->getURL();
141 
    unset($url_ajout_menu_n1);
142 
    $retour .=     '<a href="'.$url_ajout_menu_commun_n1.'">'.
148 jpm 143 
                            ADME_LG_MENU_COMMUN_RACINE.'&nbsp;'.
126 jpm 144 
                            '<img class="'.ADME_CLASS_IMG_ICONE.'" src="'.ADME_IMAGE_NOUVEAU.'" alt="+" />'.
145 
                        '</a>'."\n";
146 
    $retour .=     '</p>'."\n";
141 jpm 147 
    $retour .= ADME_afficherListeMenuCommun($objet_pear_db, $objet_pear_url, $adme_site_id, $adme_menu_id, $adme_action, 0);
126 jpm 148 
    return $retour;
149 
}
141 jpm 150 
 
126 jpm 151 
// +------------------------------------------------------------------------------------------------------+
152 
// |                                            PIED du PROGRAMME                                         |
153 
// +------------------------------------------------------------------------------------------------------+
154 
 
155 
 
156 
/* +--Fin du code ----------------------------------------------------------------------------------------+
157 
*
158 
* $Log: not supported by cvs2svn $
148 jpm 159 
* Revision 1.4  2004/11/09 17:48:35  jpm
160 
* Gestion de différentes interfaces d'administration.
161 
*
141 jpm 162 
* Revision 1.3  2004/11/09 12:37:34  jpm
163 
* Fin de gestion des menus et mise en conformité avec la convention de codage.
164 
*
134 jpm 165 
* Revision 1.2  2004/11/08 17:41:07  jpm
166 
* Légères corrections : multisite, corrections SQL.
167 
*
132 jpm 168 
* Revision 1.1  2004/11/04 12:26:42  jpm
169 
* Contient les fonctions d'affichage général de l'appli ADME.
126 jpm 170 
*
132 jpm 171 
*
126 jpm 172 
* +-- Fin du code ----------------------------------------------------------------------------------------+
173 
*/
174 
?>