Subversion Repositories Applications.papyrus

Rev

Rev 437 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 437 Rev 438
Line 17... Line 17...
17 
// |                                                                                                      |
 17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
 18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
 19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
 21 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: integrateur_wikini.admin.php,v 1.1 2005-09-02 11:29:25 ddelon Exp $
 22 
// CVS : $Id: integrateur_wikini.admin.php,v 1.2 2005-09-06 08:35:36 ddelon Exp $
23 
/**
 23 
/**
24 
* Gestion des Wikini associé à un menu pour papyrus : lit et stocke les informations dans la
 24 
* Gestion des Wikini associé à un menu pour papyrus : lit et stocke les informations dans la
25 
* champs gm_application_arguments de la table gen_menu
25 
* champs gm_application_arguments de la table gen_menu
26 
*
26 
*
27 
* Principe :
 27 
* Principe :
Line 51... Line 51...
51 
*
51 
*
52 
*@package IntegrateurWikini
 52 
*@package IntegrateurWikini
53 
//Auteur original :
 53 
//Auteur original :
54 
*@author        David Delon <david.delon@clapas.net>
 54 
*@author        David Delon <david.delon@clapas.net>
55 
*@copyright     Tela-Botanica 2000-2004
 55 
*@copyright     Tela-Botanica 2000-2004
56 
*@version       $Revision: 1.1 $ $Date: 2005-09-02 11:29:25 $
 56 
*@version       $Revision: 1.2 $ $Date: 2005-09-06 08:35:36 $
57 
// +------------------------------------------------------------------------------------------------------+
 57 
// +------------------------------------------------------------------------------------------------------+
58 
*/
 58 
*/
Line -... Line 59...
- 
 
 59 
 
59 
 
 60 
 
60 
// +------------------------------------------------------------------------------------------------------+
 61 
// +------------------------------------------------------------------------------------------------------+
61 
// |                                            ENTÊTE du PROGRAMME                                       |
 62 
// |                                            ENTÊTE du PROGRAMME                                       |
Line 94... Line 95...
94 
    *
 95 
    *
95 
    *   @return  string  Le HTML
 96 
    *   @return  string  Le HTML
96 
    */
 97 
    */
97 
    function afficherContenuCorps()
 98 
    function afficherContenuCorps()
98 
    {
 99 
    {
99
100 
 
100
101 
 
- 
 
 102 
        $res='';
101
103 
 
102 
	    $db = &$GLOBALS['_GEN_commun']['pear_db'] ;
 104 
	    $db = &$GLOBALS['_GEN_commun']['pear_db'] ;
103 
	    $url = $GLOBALS['_GEN_commun']['url'] ;
 105 
	    $url = $GLOBALS['_GEN_commun']['url'] ;
104 
	    $auth = &$GLOBALS['_GEN_commun']['pear_auth'] ;
 106 
	    $auth = &$GLOBALS['_GEN_commun']['pear_auth'] ;
Line -... Line 107...
- 
 
 107
- 
 
 108 
	    $url_origine=$url;
- 
 
 109
- 
 
 110 
	    $url->addQueryString('adme_site_id',  $_GET['adme_site_id']);
- 
 
 111 
        $url->addQueryString('adme_menu_id', $_GET['adme_menu_id']);
- 
 
 112 
        $url->addQueryString('adme_action', $_GET['adme_action']);
- 
 
 113
- 
 
 114
- 
 
 115 
        // Recherche parametres menu actif : ils ne sont pas present dans le contexte, quel dommage !
- 
 
 116
- 
 
 117 
       $requete_menu =  'SELECT gen_menu.* '.
- 
 
 118 
                        'FROM gen_menu '.
- 
 
 119 
                        'WHERE gm_id_menu = '.$_GET['adme_menu_id'];
- 
 
 120
- 
 
 121 
       $resultat_menu = $db->query($requete_menu);
- 
 
 122 
       (DB::isError($resultat_menu))
- 
 
 123 
         ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete))
- 
 
 124 
    	   : '';
- 
 
 125 
             $info_menu = $resultat_menu->fetchRow(DB_FETCHMODE_OBJECT);
- 
 
 126
- 
 
 127 
       $resultat_menu->free();
- 
 
 128
- 
 
 129 
		if (isset($info_menu->gm_application_arguments)) {
- 
 
 130 
    		$arguments = explode(' ', $info_menu->gm_application_arguments);
- 
 
 131 
 
- 
 
 132 
	    	for ($i = 0; $i < count($arguments); $i++) {
- 
 
 133 
	        	$attr = explode('=', $arguments[$i]);
- 
 
 134 
	        	if ($attr[0] != '') {
- 
 
 135 
	            	$info_application->$attr[0] = (isset($attr[1]) ? $attr[1] : '');
- 
 
 136 
	        	}
- 
 
 137 
	    	}
- 
 
 138 
		}
- 
 
 139
105
140
Line 106... Line 141...
106 
	    isset ($GLOBALS['action']) ? '' : $GLOBALS['action'] = '' ; // On déclare action si elle n'existe pas
 141 
	    isset ($GLOBALS['action']) ? '' : $GLOBALS['action'] = '' ; // On déclare action si elle n'existe pas
107
142
108 
	    if (!$auth->getAuth()) {
 143 
	    if (!$auth->getAuth()) {
- 
 
 144 
	        return 'Identifiez-vous' ;
- 
 
 145 
	    }
- 
 
 146 
 
- 
 
 147 
 
- 
 
 148 
		//  Mise à jour ?
- 
 
 149 
		if (isset ($GLOBALS['action'])) {
- 
 
 150
- 
 
 151
- 
 
 152 
    		$arguments_menu="";
- 
 
 153 
    		if ((isset($_POST['code_alpha_wikini'])) && (!empty($_POST['code_alpha_wikini']))) {
- 
 
 154
- 
 
 155 
    			$arguments_menu.="wikini=".($_POST['code_alpha_wikini'])." ";
- 
 
 156
- 
 
 157 
    		}
- 
 
 158
- 
 
 159 
    		if ((isset($_POST['page'])) && (!empty($_POST['page']))) {
- 
 
 160
- 
 
 161 
    			$arguments_menu.="page=".($_POST['page'])." ";
- 
 
 162
- 
 
 163 
    		}
- 
 
 164
- 
 
 165 
	    	$requete = "update gen_menu set  gm_application_arguments = '".$arguments_menu .
- 
 
 166 
    	            "' where gm_id_menu =".$_GET['adme_menu_id'];
- 
 
 167
- 
 
 168 
    		$resultat = $db->query ($requete) ;
- 
 
 169 
    		if (DB::isError ($resultat)) {
- 
 
 170 
        			trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(),E_USER_WARNING) ;
- 
 
 171 
 
- 
 
 172 
	        }
- 
 
 173 
		}
- 
 
 174
- 
 
 175 
		// Affichage par defaut
- 
 
 176
- 
 
 177 
		// Formulaire Selection Wiki
- 
 
 178
- 
 
 179 
        $formulaire =& new HTML_QuickForm('form_selection_wiki', 'post', str_replace('&amp;', '&', $url->getUrl()));
- 
 
 180
- 
 
 181 
 
- 
 
 182 
		$res .= "<h2>". ADWI_TITRE_SELECTION." ".$info_menu->gm_nom."</h2";
- 
 
 183
- 
 
 184 
		$squelette =& $formulaire->defaultRenderer();
- 
 
 185
- 
 
 186 
		$squelette->setGroupTemplate('<table>{content}</table>', 'id');
- 
 
 187
- 
 
 188 
		$squelette->setGroupElementTemplate('<tr><td>{element}<!-- BEGIN required --><!-- END required-->{label}</td></tr>', 'id');
- 
 
 189
- 
 
 190
- 
 
 191 
		$formulaire->addElement ('text', 'code_alpha_wikini', ADWI_NOM_WIKINI, array ('size' => 20));
- 
 
 192 
		$formulaire->addElement ('text', 'page', ADWI_PAGE_DEMARRAGE , array ('size' => 20));
- 
 
 193
- 
 
 194 
 
- 
 
 195 
 
- 
 
 196 
        // on fait un groupe avec les boutons pour les mettres sur la même ligne
- 
 
 197 
        $buttons[] = &HTML_QuickForm::createElement('button', 'retour', ADWI_RETOUR, array ("onclick" => "javascript:document.location.href='".str_replace ('&amp;', '&', $url_origine->getURL())."'"));
- 
 
 198 
        $buttons[] = &HTML_QuickForm::createElement('submit', 'valider', ADWI_VALIDER);
- 
 
 199 
        $formulaire->addGroup($buttons, null, null, '&nbsp;');
- 
 
 200 
 
- 
 
 201
- 
 
 202 
	    // Initialisation
- 
 
 203
- 
 
 204 
	    if ((isset($_GET['id_wikini'])) && (!empty($_GET['id_wikini']))) {
- 
 
 205
- 
 
 206 
	    	$requete = "select * from gen_wikini where gewi_id_wikini=".$_GET['id_wikini'] ;
- 
 
 207 
    		$resultat = $db->query ($requete) ;
- 
 
 208 
    		if (DB::isError ($resultat)) {
- 
 
 209 
        		trigger_error("Echec de la requete : $requete<br />".$resultat->getMessage(), E_USER_WARNING) ;
- 
 
 210 
        	return ;
- 
 
 211 
    	}
- 
 
 212
- 
 
 213 
    	$info_wikini = $resultat->fetchRow (DB_FETCHMODE_OBJECT) ;
- 
 
 214 
	    $formulaire->setDefaults(array('code_alpha_wikini'=>$info_wikini->gewi_code_alpha_wikini)) ;
- 
 
 215 
	    $formulaire->setDefaults(array('page'=>$info_wikini->gewi_page)) ;
- 
 
 216 
	    $resultat->free();
- 
 
 217
- 
 
 218 
	    }
- 
 
 219 
	    else {
- 
 
 220
- 
 
 221 
			if ((isset($info_application->wikini)) && (!empty($info_application->wikini))) {
- 
 
 222 
				$formulaire->setDefaults(array('code_alpha_wikini'=>$info_application->wikini)) ;
- 
 
 223 
			}
- 
 
 224
- 
 
 225
- 
 
 226
- 
 
 227
- 
 
 228 
			if ((isset($info_application->page)) && (!empty($info_application->page))) {
- 
 
 229 
				$formulaire->setDefaults(array('page'=>$info_application->page)) ;
- 
 
 230 
			}
- 
 
 231
- 
 
 232 
	    }
- 
 
 233 
	    $res .= $formulaire->toHTML() ;
- 
 
 234 
 
- 
 
 235 
		$res .='<br/>';
- 
 
 236 
 
109 
	        return 'Identifiez-vous' ;
 237 
		$res .= "<h2>". ADWI_LISTE_WIKINI.": </h2";
110 
	    }
 238
111 
	    // Comportement par défaut
 239 
	    // Comportement par défaut
Line 112... Line 240...
112 
	    // requete sur la table gen_wikini pour affichage de la liste des Wikini
240 
	    // requete sur la table gen_wikini pour affichage de la liste des Wikini
113 
	    $requete = "select  gewi_id_wikini, gewi_code_alpha_wikini from gen_wikini" ;
 241 
	    $requete = "select  gewi_id_wikini, gewi_code_alpha_wikini, gewi_page from gen_wikini" ;
114
242
115 
	    $resultat = $db->query ($requete) ;
 243 
	    $resultat = $db->query ($requete) ;
116 
	    if (DB::isError ($resultat)) {
 244 
	    if (DB::isError ($resultat)) {
117 
	        $GLOBALS['_GEN_commun']['debogage_erreur']->gererErreur(E_USER_WARNING, "Echec de la requete : $requete<br />".$resultat->getMessage(),
 245 
	        $GLOBALS['_GEN_commun']['debogage_erreur']->gererErreur(E_USER_WARNING, "Echec de la requete : $requete<br />".$resultat->getMessage(),
Line -... Line 246...
- 
 
 246 
	                                                                        __FILE__, __LINE__, 'admin_wikini')   ;
118 
	                                                                        __FILE__, __LINE__, 'admin_wikini')   ;
 247 
	        return ;
119 
	        return ;
 248 
	    }
- 
 
 249
120 
	    }
 250
- 
 
 251 
	    $liste = new HTML_TableFragmenteur () ;
121
252 
	    $liste->construireEntete(array (ADWI_NOM_WIKINI,ADWI_PAGE, ADWI_SELECTIONNER)) ;
122 
	    $liste = new HTML_TableFragmenteur () ;
 253
123 
	    $liste->construireEntete(array (ADWI_NOM_WIKINI, ADWI_MODIFIER)) ;
 254 
	    $tableau_wikini = array() ;
- 
 
 255
124 
	    $tableau_wikini = array() ;
 256 
	    while ($ligne = $resultat->fetchRow()) {
125 
	    while ($ligne = $resultat->fetchRow()) {
 257 
	        $url->addQueryString ('id_wikini', $ligne[0]) ;
126 
	        $url->addQueryString ('id_wikini', $ligne[0]) ;
 258 
	        array_push ($tableau_wikini, array ($ligne[1]."\n",    // Première colonne, le nom de l'application
127 
	        array_push ($tableau_wikini, array ($ligne[1]."\n",    // Première colonne, le nom de l'application
 259 
										        $ligne[2]."\n",    // Deuxieme colonne, la page par defaut
128 
	        								  '<a href="'.$url->getURL().'">'.ADWI_MODIFIER.'</a>'."\n",
 260 
	        								  '<a href="'.$url->getURL()."&amp;action=validation".'">'.ADWI_CHOISIR.'</a>'."\n",
129 
	                                            ));
 261 
	                                            ));
Line 142... Line 274...
142 
 
 274 
 
143 
 
 275 
 
144 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 276 
/* +--Fin du code ----------------------------------------------------------------------------------------+
- 
 
 277 
*
- 
 
 278 
* $Log: not supported by cvs2svn $
- 
 
 279 
* Revision 1.1  2005/09/02 11:29:25  ddelon
145 
*
 280 
* Integrateur Wikini et administration des Wikini
146 
* $Log: not supported by cvs2svn $
 281 
*
147 
*
 282 
*
148 
* +-- Fin du code ----------------------------------------------------------------------------------------+
 283 
* +-- Fin du code ----------------------------------------------------------------------------------------+
149 
*/
 284 
*/