| New file |
|---|
| 0,0 → 1,177 |
|---|
| <?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.1 2004-06-15 15:14: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.1 $ $Date: 2004-06-15 15:14: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 Génésia : 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.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 ----------------------------------------------------------------------------------------+ |
| */ |
| ?> |