Rev 4 | 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: pap_style.fonct.php,v 1.2 2004-12-06 17:53:32 jpm Exp $/*** Les fonctions permettant d'inclure des styles CSS.** Ces fonctions permettent d'inclure des CSS directement dans les pages* des applications. Elles peuvent donc être appelées par les applications* intégrées à Papyrus.**@package Papyrus*@subpackage Fonctions//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author Aucun*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.2 $ $Date: 2004-12-06 17:53:32 $// +------------------------------------------------------------------------------------------------------+*/// +------------------------------------------------------------------------------------------------------+// | LISTE de FONCTIONS |// +------------------------------------------------------------------------------------------------------+/** Fonction GEN_modifierTypeStyle() - Permet de stocker le type des styles intégrés.** Papyrus permet à une application donnée d'intégrer des styles directement dans* l'entête de la page. Cette fonction définit le type Mime des styles utilisés.* En XHTML strict, cette fonction ne devrait pas être utilisé car les styles devraient être* stockés dans des fichiers séparés.** @deprecated déprécier dans le cadre d'application XHTML.* @global string "style_type" : utilisé pour stocker le type des styles intégrés dans l'entête de la page.* @param string le type des styles intégrés.* @return void le type des styles intégrés est stocké dans une variable globale.*/function GEN_modifierTypeStyle($type = 'text/css'){global $_GEN_commun;$_GEN_commun['style_type'] .= $type;}/** Fonction GEN_stockerStyleIntegree() - Permet de stocker un style utilisé par une application.** Papyrus permet à une application donnée de stocker des styles intégrés* directement dans l'entête de la page. En XHTML strict, l'utilisation de cette* fonction est déconseillée. Utiliser plutôt une feuille de styles externes qui* sera appelé par l'entête. Cette fonction peut être appelé plusieurs fois. Elle ne* fait que stocker les styles dans une variable globale utilisée par Génésia.** @deprecated déprécier dans le cadre d'application XHTML.* @global string "style_integree" : utilisé pour stocker les styles intégrés.* @param string le style à insérer.* @return void le style est stocké dans une variable globale.*/function GEN_stockerStyleIntegree($style_integree){global $_GEN_commun;$_GEN_commun['style_integree'] .= $style_integree;}/** Fonction GEN_stockerStyleExterne() - Permet de stocker des fichiers de styles externes.** Papyrus permet à une application donnée de stocker des feuilles de styles externes qui seront* appelés depuis l'entête de la page. En XHTML strict, l'utilisation de cette* fonction est conseillée.* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les chemin des* feuilles de styles externes dans une variable (tableau associatif) globale utilisée par Papyrus.** @global array "style_fichier" : utilisé pour stocker les chemins des feuilles de styles externes.* @param string la clé du tableau de fichiers, par exemple le nom de la feuille de styles externes à insérer.* @param string le chemin complet du fichier de styles à insérer.* @param string le titre de la feuille de styles externes.* @param string la relation de la feuille de style (stylesheet, alternate stylesheet, ...).* @param string le type MIME des styles (text/css, ...).* @param string le type de média concerné par la feuille de styles (screen, print, aural, ...).* @return void le chemin du fichier CSS est stocké dans une variable (tableau associatif) globale.*/function GEN_stockerStyleExterne($id_fichier, $chemin_fichier, $titre = '', $rel = 'stylesheet', $type = 'text/css', $media = 'screen'){global $_GEN_commun;if (empty($_GEN_commun['style_externe'][$id_fichier])) {$_GEN_commun['style_externe'][$id_fichier]['rel'] = $rel;$_GEN_commun['style_externe'][$id_fichier]['type'] = $type;$_GEN_commun['style_externe'][$id_fichier]['media'] = $media;$_GEN_commun['style_externe'][$id_fichier]['titre'] = $titre;$_GEN_commun['style_externe'][$id_fichier]['chemin'] = $chemin_fichier;} else {die('ERREUR Papyrus : cet identifiant de fichier à déjà été enregistré par GEN_stockerStyleExterne(). <br />'.'Identifiant : '. $id_fichier .'<br />'.'Ligne n° : '. __LINE__ .'<br />'.'Fichier : '. __FILE__);}}/** Fonction GEN_afficherStyle() - Permet de renvoyer les styles dans l'entete.** Cette fonction récupère les feuilles de styles stockés dans les variables globales de Papyrus* et les retourne formatés pour l'affichage dans l'entête du squelette du site.* C'est la balise Génésia <!-- STYLES --> qui permet de situer l'endroit où afficher* les CSS.** @global array "style_externe" : utilisé pour stocker les chemins des feuilles de styles externes et* "style_integree" : utilisé pour stocker les styles intégrés directement dans l'entête.* @return string le code XHTML contenant les styles à insérer dans l'entête.*/function GEN_afficherStyle(){global $_GEN_commun;$sortie = '';$styles_externes = '';if (isset($_GEN_commun['style_externe'])) {foreach ($_GEN_commun['style_externe'] as $cle => $valeur) {$styles_externes .= str_repeat(' ', 8).'<link rel="'.$valeur['rel'].'" '.'type="'.$valeur['type'].'" '.'media="'.$valeur['media'].'" '.'title="'.$valeur['titre'].'" '.'href="'.$valeur['chemin'].'" />'."\n";}$sortie .= $styles_externes;} else {$sortie .= '<!-- Aucun style externe -->'."\n";}$styles_integrees = '';$styles_integrees = $_GEN_commun['style_integree'];if ($styles_integrees != '') {$sortie .= "\n";$sortie .= str_repeat(' ', 8).'<style type="'.$_GEN_commun['style_type'].'">'."\n";$sortie .= str_repeat(' ', 12).'<!--/*--><![CDATA[//><!--'."\n";$sortie .= $styles_integrees."\n";$sortie .= str_repeat(' ', 12).'//--><!]]>'."\n";$sortie .= str_repeat(' ', 8).'</style>';} else {$sortie .= '<!-- Aucun style intégré -->'."\n";}return $sortie;}/* +--Fin du code ----------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.1 2004/06/15 15:14:32 jpm* Changement de nom et d'arborescence de Genesia en Papyrus.** Revision 1.3 2004/04/20 15:25:58 jpm* Ajout de commentaire html à la place d'une chaine vide lors du remplacement de balise Genesia.** Revision 1.1 2004/04/20 10:46:43 jpm* Ajout de la bibliothèque gérant les styles.*** +-- Fin du code ----------------------------------------------------------------------------------------+*/?>