Subversion Repositories Applications.papyrus

Rev

Rev 4 | Rev 215 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4 Rev 212
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: pap_meta.fonct.php,v 1.1 2004-06-15 15:12:12 jpm Exp $
 22 
// CVS : $Id: pap_meta.fonct.php,v 1.2 2004-12-06 17:58:02 jpm Exp $
23 
/**
 23 
/**
24 
* Bibliothèque de fonctions permettant d'inclure des balises META.
 24 
* Bibliothèque de fonctions permettant d'inclure des balises META.
25 
*
 25 
*
26 
* Cet ensemble de fonctions permet de manipuler les balise meta à intégrer dans l'entête
 26 
* Cet ensemble de fonctions permet de manipuler les balise meta à intégrer dans l'entête
27 
* des pages html. Cela peut être très pratique pour les applications voulant définir précisément
 27 
* des pages html. Cela peut être très pratique pour les applications voulant définir précisément
Line 32... Line 32...
32 
//Auteur original :
 32 
//Auteur original :
33 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
 33 
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
34 
//Autres auteurs :
 34 
//Autres auteurs :
35 
*@author        Aucun
 35 
*@author        Aucun
36 
*@copyright     Tela-Botanica 2000-2004
 36 
*@copyright     Tela-Botanica 2000-2004
37 
*@version       $Revision: 1.1 $ $Date: 2004-06-15 15:12:12 $
 37 
*@version       $Revision: 1.2 $ $Date: 2004-12-06 17:58:02 $
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
*/
 39 
*/
Line 40... Line 40...
40 
 
 40 
 
41 
// +------------------------------------------------------------------------------------------------------+
 41 
// +------------------------------------------------------------------------------------------------------+
42 
// |                                           LISTE de FONCTIONS                                         |
 42 
// |                                           LISTE de FONCTIONS                                         |
Line 43... Line 43...
43 
// +------------------------------------------------------------------------------------------------------+
 43 
// +------------------------------------------------------------------------------------------------------+
44 
 
 44 
 
45 
 
 45 
 
46 
/** Fonction GEN_stockerMetaHttpEquiv() - Permet de stocker des informations Http-Equiv.
 46 
/** Fonction GEN_stockerMetaHttpEquiv() - Permet de stocker des informations Http-Equiv.
47 
*
 47 
*
48 
* Génésia permet à une application donnée de stocker les balises meta contenant l'attribut http-equiv
 48 
* Papyrus permet à une application donnée de stocker les balises meta contenant l'attribut http-equiv
49 
* à intégrer dans l'entête de la page.
 49 
* à intégrer dans l'entête de la page.
50 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
- 
 
51 
* dans une variable (tableau associatif) globale utilisée par Génésia.
 50 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
52 
*
 51 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
53 
* @global   array   "meta_http_equiv" : utilisé pour stocker les informations des meta contenant l'attribut http-equiv.
 52 
*
54 
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
 53 
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
55 
* @param    string  le contenu présent dans l'attribut content.
 54 
* @param    string  le contenu présent dans l'attribut content.
56 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
 55 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
57 
*/
 - 
 
58 
function GEN_stockerMetaHttpEquiv($id_http_equiv, $content)
 - 
 
59 
{
 56 
*/
60 
    global $_GEN_commun;
 57 
function GEN_stockerMetaHttpEquiv($id_http_equiv, $content)
61
58 
{
62 
    if (empty($_GEN_commun['meta_http_equiv'][$id_http_equiv])) {
 59 
    if (empty($GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv])) {
63 
        $_GEN_commun['meta_http_equiv'][$id_http_equiv] = $content;
 60 
        $GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv] = $content;
64 
    } else {
 61 
    } else {
65 
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaHttpEquiv(). <br />'.
 62 
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaHttpEquiv(). <br />'.
66 
            'Identifiant : '. $id_http_equiv .'<br />'.
 63 
            'Identifiant : '. $id_http_equiv .'<br />'.
67 
            'Ligne n° : '. __LINE__ .'<br />'.
 64 
            'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 65 
            'Fichier : '. __FILE__);
- 
 
 66 
    }
- 
 
 67 
}
- 
 
 68 
 
- 
 
 69 
/** Fonction GEN_modifierMetaHttpEquiv() - Permet de modifier les informations d'une balise http-equiv.
- 
 
 70 
*
- 
 
 71 
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut http-equiv
- 
 
 72 
* à intégrer dans l'entête de la page.
- 
 
 73 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
- 
 
 74 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
- 
 
 75 
*
- 
 
 76 
* @param    string  la clé du tableau des meta http-equiv, l'information présente dans l'attribut http-equiv.
- 
 
 77 
* @param    string  le contenu présent dans l'attribut content.
- 
 
 78 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
- 
 
 79 
*/
- 
 
 80 
function GEN_modifierMetaHttpEquiv($id_http_equiv, $content)
- 
 
 81 
{
- 
 
 82 
    if ($content != '') {
- 
 
 83 
        $GLOBALS['_GEN_commun']['meta_http_equiv'][$id_http_equiv] = $content;
- 
 
 84 
    } else {
- 
 
 85 
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
- 
 
 86 
            'Contenu : '. $content .'<br />'.
- 
 
 87 
            'Ligne n° : '. __LINE__ .'<br />'.
Line 68... Line 88...
68 
            'Fichier : '. __FILE__);
 88 
            'Fichier : '. __FILE__);
69 
    }
 89 
    }
70 
}
 90 
}
71 
 
 91 
 
72 
/** Fonction GEN_stockerMetaName() - Permet de stocker des informations pour la balise meta.
 92 
/** Fonction GEN_stockerMetaName() - Permet de stocker des informations pour la balise meta.
73 
*
 93 
*
74 
* Génésia permet à une application donnée de stocker les balises meta contenant l'attribut name
 94 
* Papyrus permet à une application donnée de stocker les balises meta contenant l'attribut name
75 
* à intégrer dans l'entête de la page.
 - 
 
76 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
95 
* à intégrer dans l'entête de la page.
77 
* dans une variable (tableau associatif) globale utilisée par Génésia.
 96 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
78 
*
 97 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
79 
* @global   array   "meta_name" : utilisé pour stocker les informations des meta contenant l'attribut name.
 98 
*
80 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
 99 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
81 
* @param    string  le contenu présent dans l'attribut content.
 100 
* @param    string  le contenu présent dans l'attribut content.
82 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
 - 
 
83 
*/
 - 
 
84 
function GEN_stockerMetaName($id_name, $content)
 101 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
85 
{
 102 
*/
86 
    global $_GEN_commun;
 103 
function GEN_stockerMetaName($id_name, $content)
87
104 
{
88 
    if (empty($_GEN_commun['meta_name'][$id_name])) {
 105 
    if (empty($GLOBALS['_GEN_commun']['meta_name'][$id_name])) {
89 
        $_GEN_commun['meta_name'][$id_name] = $content;
 106 
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
90 
    } else {
 107 
    } else {
91 
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaName(). <br />'.
 108 
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaName(). <br />'.
92 
            'Identifiant : '. $id_name .'<br />'.
 109 
            'Identifiant : '. $id_name .'<br />'.
93 
            'Ligne n° : '. __LINE__ .'<br />'.
 110 
            'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 111 
            'Fichier : '. __FILE__);
- 
 
 112 
    }
- 
 
 113 
}
- 
 
 114 
 
- 
 
 115 
/** Fonction GEN_modifierMetaName() - Permet de modifier les informations d'une balise meta.
- 
 
 116 
*
- 
 
 117 
* Papyrus permet à une application donnée de modifier les balises meta contenant l'attribut name
- 
 
 118 
* à intégrer dans l'entête de la page.
- 
 
 119 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
- 
 
 120 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
- 
 
 121 
*
- 
 
 122 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
- 
 
 123 
* @param    string  le contenu présent dans l'attribut content.
- 
 
 124 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
- 
 
 125 
*/
- 
 
 126 
function GEN_modifierMetaName($id_name, $content)
- 
 
 127 
{
- 
 
 128 
    if ($content != '') {
- 
 
 129 
        $GLOBALS['_GEN_commun']['meta_name'][$id_name] = $content;
- 
 
 130 
    } else {
- 
 
 131 
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
- 
 
 132 
            'Contenu : '. $content .'<br />'.
Line 94... Line 133...
94 
            'Fichier : '. __FILE__);
 133 
            'Ligne n° : '. __LINE__ .'<br />'.
95 
    }
 134 
            'Fichier : '. __FILE__);
96 
}
 135 
    }
97 
 
 136 
}
98 
 
 137 
 
99 
/** Fonction GEN_stockerMetaNameDC() - Permet de stocker des informations Dublin Core pour la balise meta.
 138 
/** Fonction GEN_stockerMetaNameDC() - Permet de stocker des informations Dublin Core pour la balise meta.
100 
*
 139 
*
101 
* Génésia permet à une application donnée de stocker des informations Dublin Core pour les balises meta
 - 
 
102 
* à intégrer dans l'entête de la page.
 140 
* Papyrus permet à une application donnée de stocker des informations Dublin Core pour les balises meta
103 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
141 
* à intégrer dans l'entête de la page.
104 
* dans une variable (tableau associatif) globale utilisée par Génésia.
 142 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les informations
105 
*
 143 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
106 
* @global   array   "meta_name_dc" : utilisé pour stocker les informations des meta contenant l'attribut name.
 144 
*
107 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
 145 
* @param    string  la clé du tableau des meta name, l'information présente dans l'attribut name.
108 
* @param    string  le contenu présent dans l'attribut content.
 146 
* @param    string  le contenu présent dans l'attribut content.
109 
* @param    string  le contenu présent dans l'attribut lang.
 147 
* @param    string  le contenu présent dans l'attribut lang.
110 
* @param    string  le contenu présent dans l'attribut scheme.
 - 
 
111 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
 - 
 
112 
*/
 148 
* @param    string  le contenu présent dans l'attribut scheme.
113 
function GEN_stockerMetaNameDC($id_name, $content, $lang = '', $scheme = '')
 149 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
114 
{
 150 
*/
115 
    global $_GEN_commun;
 151 
function GEN_stockerMetaNameDC($id_name, $content, $lang = '', $scheme = '')
116
152 
{
117 
    if (empty($_GEN_commun['meta_name_dc'][$id_name])) {
 153 
    if (empty($GLOBALS['_GEN_commun']['meta_name_dc'][$id_name])) {
118 
        $_GEN_commun['meta_name_dc'][$id_name]['contenu'] = $content;
 154 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
119 
        $_GEN_commun['meta_name_dc'][$id_name]['langue'] = $lang;
 155 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
120 
        $_GEN_commun['meta_name_dc'][$id_name]['scheme'] = $scheme;
 156 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
121 
    } else {
 157 
    } else {
122 
        die('ERREUR Génésia : cette balise meta à déjà été enregistré par GEN_stockerMetaNameDC(). <br />'.
 158 
        die('ERREUR Papyrus : cette balise meta à déjà été enregistré par GEN_stockerMetaNameDC(). <br />'.
- 
 
 159 
            'Identifiant : '. $id_name .'<br />'.
- 
 
 160 
            'Ligne n° : '. __LINE__ .'<br />'.
- 
 
 161 
            'Fichier : '. __FILE__);
- 
 
 162 
    }
- 
 
 163 
}
- 
 
 164 
 
- 
 
 165 
/** Fonction GEN_modifierMetaNameDC() - Permet de modifier les informations d'une balise meta DC.
- 
 
 166 
*
- 
 
 167 
* Papyrus permet à une application donnée de modifier les balises meta DC contenant l'attribut name
- 
 
 168 
* à intégrer dans l'entête de la page.
- 
 
 169 
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que modifier les informations
- 
 
 170 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
- 
 
 171 
*
- 
 
 172 
* @param    string  la clé du tableau des meta name DC, l'information présente dans l'attribut name.
- 
 
 173 
* @param    string  le contenu présent dans l'attribut content.
- 
 
 174 
* @param    string  le contenu présent dans l'attribut lang.
- 
 
 175 
* @param    string  le contenu présent dans l'attribut scheme.
- 
 
 176 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
- 
 
 177 
*/
- 
 
 178 
function GEN_modifierMetaNameDC($id_name, $content, $lang = '', $scheme = '')
- 
 
 179 
{
- 
 
 180 
    if ($content != '') {
- 
 
 181 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['contenu'] = $content;
- 
 
 182 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['langue'] = $lang;
- 
 
 183 
        $GLOBALS['_GEN_commun']['meta_name_dc'][$id_name]['scheme'] = $scheme;
- 
 
 184 
    } else {
- 
 
 185 
        die('ERREUR Papyrus : cette balise ne peut avoir un contenu vide. <br />'.
Line 123... Line 186...
123 
            'Identifiant : '. $id_name .'<br />'.
 186 
            'Contenu : '. $content .'<br />'.
124 
            'Ligne n° : '. __LINE__ .'<br />'.
 187 
            'Ligne n° : '. __LINE__ .'<br />'.
125 
            'Fichier : '. __FILE__);
 188 
            'Fichier : '. __FILE__);
126 
    }
 189 
    }
127 
}
 190 
}
128 
 
 - 
 
129 
/** Fonction GEN_afficherMeta() - Permet d'afficher les meta informations.
 - 
 
130 
*
 191 
 
131 
* Cette fonction affiche les meta informations Http-Equiv stockées
 192 
/** Fonction GEN_afficherMeta() - Permet d'afficher les meta informations.
132 
* dans une variable (tableau associatif) globale utilisée par Génésia.
 193 
*
133 
*
 194 
* Cette fonction affiche les meta informations Http-Equiv, Meta ou DC stockées
134 
* @global   array   "meta_http_equiv" : utilisé pour stocker les informations des meta contenant l'attribut http-equiv
195 
* dans une variable (tableau associatif) globale utilisée par Papyrus.
135 
* et "meta_name" : utilisé pour stocker les informations des meta contenant l'attribut name.
 - 
 
136 
* @param    string  le type de balise meta à afficher (http-equiv, name, dc).
 196 
*
Line 137... Line 197...
137 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
 197 
* @param    string  le type de balise meta à afficher (http-equiv, name ou dc).
138 
*/
 198 
* @return   void    les informations sont stockées dans une variable (tableau associatif) globale.
139 
function GEN_afficherMeta($type = 'name')
 199 
*/
140 
{
 200 
function GEN_afficherMeta($type = 'name')
141 
    global $_GEN_commun;
 201 
{
142 
    $sortie = '';
 202 
    $sortie = '';
143
203
144 
    if ($type == 'http-equiv' && isset($_GEN_commun['meta_http_equiv'])) {
 204 
    if ($type == 'http-equiv' && isset($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
145 
        while (list($cle, $valeur) = each($_GEN_commun['meta_http_equiv'])) {
 205 
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_http_equiv'])) {
146 
            $sortie .= str_repeat(' ', 8).'<meta http-equiv="'.$cle.'" content="'.$valeur.'" />'."\n";
 206 
            $sortie .= str_repeat(' ', 8).'<meta http-equiv="'.$cle.'" content="'.$valeur.'" />'."\n";
147 
        }
 207 
        }
148 
        if (empty($sortie)) {
 208 
        if (empty($sortie)) {
149 
            $sortie .= '<!-- Aucune balise meta http-equiv -->'."\n";
 209 
            $sortie .= '<!-- Aucune balise meta http-equiv -->'."\n";
150 
        }
 210 
        }
151 
    }else if ($type == 'name' && isset($_GEN_commun['meta_name'])) {
 211 
    }else if ($type == 'name' && isset($GLOBALS['_GEN_commun']['meta_name'])) {
152 
        while (list($cle, $valeur) = each($_GEN_commun['meta_name'])) {
 212 
        while (list($cle, $valeur) = each($GLOBALS['_GEN_commun']['meta_name'])) {
153 
            if (! empty($valeur['contenu'])) {
 213 
            if (! empty($valeur['contenu'])) {
154 
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" content="'.$valeur.'" />'."\n";
 214 
                $sortie .= str_repeat(' ', 8).'<meta name="'.$cle.'" content="'.$valeur.'" />'."\n";
155 
            }
 215 
            }
156 
        }
 216 
        }
157 
        if (empty($sortie)) {
 217 
        if (empty($sortie)) {
158 
            $sortie .= '<!-- Aucune balise meta name -->'."\n";
 218 
            $sortie .= '<!-- Aucune balise meta name -->'."\n";
159 
        }
 219 
        }
Line 185... Line 245...
185 
 
 245 
 
186 
 
 246 
 
187 
/* +--Fin du code ----------------------------------------------------------------------------------------+
 247 
/* +--Fin du code ----------------------------------------------------------------------------------------+
- 
 
 248 
*
- 
 
 249 
* $Log: not supported by cvs2svn $
- 
 
 250 
* Revision 1.1  2004/06/15 15:12:12  jpm
188 
*
 251 
* Changement de nom et d'arborescence de Genesia en Papyrus.
189 
* $Log: not supported by cvs2svn $
 252 
*
190 
* Revision 1.1  2004/04/20 15:24:54  jpm
 253 
* Revision 1.1  2004/04/20 15:24:54  jpm
191 
* Ajout de la bibliotheque de fonctions gérant les meta.
 254 
* Ajout de la bibliotheque de fonctions gérant les meta.
192 
*
 255 
*