Subversion Repositories Applications.papyrus

Rev

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

Rev 4 Rev 36
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_script.fonct.php,v 1.1 2004-06-15 15:13:07 jpm Exp $
22
// CVS : $Id: pap_script.fonct.php,v 1.2 2004-09-10 16:40:41 jpm Exp $
23
/**
23
/**
24
* Les fonctions permettant d'inclure des scripts.
24
* Les fonctions permettant d'inclure des scripts.
25
*
25
*
26
* Ces fonctions permettent d'inclure des scripts, éxécuté côté client, directement dans les pages
26
* Ces fonctions permettent d'inclure des scripts, éxécuté côté client, directement dans les pages
27
* des applications. Elles peuvent donc être appelées par les applications 
27
* des applications. Elles peuvent donc être appelées par les applications 
Line 33... Line 33...
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
33
*@author        Laurent COUDOUNEAU <lc@gsite.org>
34
//Autres auteurs :
34
//Autres auteurs :
35
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
35
*@author        Jean-Pascal MILCENT <jpm@tela-botanica.org>
36
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
36
*@author        Alexandre GRANIER <alexandre@tela-botanica.org>
37
*@copyright     Tela-Botanica 2000-2004
37
*@copyright     Tela-Botanica 2000-2004
38
*@version       $Revision: 1.1 $ $Date: 2004-06-15 15:13:07 $
38
*@version       $Revision: 1.2 $ $Date: 2004-09-10 16:40:41 $
39
// +------------------------------------------------------------------------------------------------------+
39
// +------------------------------------------------------------------------------------------------------+
40
*/
40
*/
Line 41... Line 41...
41
 
41
 
42
// +------------------------------------------------------------------------------------------------------+
42
// +------------------------------------------------------------------------------------------------------+
43
// |                                           LISTE de FONCTIONS                                         |
43
// |                                           LISTE de FONCTIONS                                         |
Line 44... Line 44...
44
// +------------------------------------------------------------------------------------------------------+
44
// +------------------------------------------------------------------------------------------------------+
45
 
45
 
46
/** Fonction GEN_modifierTypeScript() - Permet de stocker le type des scripts.
46
/** Fonction GEN_modifierTypeScript() - Permet de stocker le type des scripts.
47
*
47
*
48
* Génésia permet à une application donnée d'intégrer du code de scripts, exécuté côté client,
48
* Papyrus permet à une application donnée d'intégrer du code de scripts, exécuté côté client,
49
* directement dans l'entête de la page. Cette fonction définit le type Mime du langage de script utilisé.
49
* directement dans l'entête de la page. Cette fonction définit le type Mime du langage de script utilisé.
50
* En XHTML strict, cette fonction ne devrait pas être utilisé car les scripts devraient être
50
* En XHTML strict, cette fonction ne devrait pas être utilisé car les scripts devraient être
51
* stocké dans des fichiers séparés.
51
* stocké dans des fichiers séparés.
Line 62... Line 62...
62
    $_GEN_commun['script_type'] .= $type;
62
    $_GEN_commun['script_type'] .= $type;
63
}
63
}
Line 64... Line 64...
64
 
64
 
65
/** Fonction GEN_stockerCodeScript() - Permet de stocker le code d'un script côté client utilisé par une application.
65
/** Fonction GEN_stockerCodeScript() - Permet de stocker le code d'un script côté client utilisé par une application.
66
*
66
*
67
* Génésia permet à une application donnée de stocker du code de script, exécuté côté client, qui sera
67
* Papyrus permet à une application donnée de stocker du code de script, exécuté côté client, qui sera
68
* envoyer directement dans l'entête de la page. En XHTML strict, l'utilisation de cette 
68
* envoyer directement dans l'entête de la page. En XHTML strict, l'utilisation de cette 
69
* fonction est déconseillée. Utiliser plutôt une fichier de scripts séparé qui 
69
* fonction est déconseillée. Utiliser plutôt une fichier de scripts séparé qui 
70
* sera appelé par l'entête. Cette fonction peut être appelé plusieurs fois. Elle ne
70
* sera appelé par l'entête. Cette fonction peut être appelé plusieurs fois. Elle ne
71
* fait que stocker le code dans une variable globale utilisée par Génésia.
71
* fait que stocker le code dans une variable globale utilisée par Génésia.
Line 101... Line 101...
101
{
101
{
102
    global $_GEN_commun;
102
    global $_GEN_commun;
Line 103... Line 103...
103
    
103
    
104
    if (empty($_GEN_commun['script_fonction'][$id_fonction])) {
104
    if (empty($_GEN_commun['script_fonction'][$id_fonction])) {
105
        $_GEN_commun['script_fonction'][$id_fonction] = $code_fonction;
105
        $_GEN_commun['script_fonction'][$id_fonction] = $code_fonction;
-
 
106
    } else {
-
 
107
        if (GEN_DEBOGAGE) {
106
    } else {
108
            $_GEN_commun['debogage_info'] .=
107
        die('ERREUR Génésia : cet identifiant de fonction à déjà été enregistré par GEN_stockerFonctionJavascript(). <br />'.
109
            'ERREUR Papyrus : cet identifiant de fonction à déjà été enregistré par GEN_stockerFonctionJavascript(). <br />'.
108
            'Identifiant : '. $id_fonction .'<br />'.
110
            'Identifiant : '. $id_fonction .'<br />'.
109
            'Ligne n° : '. __LINE__ .'<br />'.
111
            'Ligne n° : '. __LINE__ .'<br />'.
-
 
112
            'Fichier : '. __FILE__;
110
            'Fichier : '. __FILE__);
113
        }
111
    }
114
    }
Line 112... Line 115...
112
}
115
}
113
 
116
 
114
/** Fonction GEN_stockerFichierScript() - Permet de stocker des fichiers de scripts.
117
/** Fonction GEN_stockerFichierScript() - Permet de stocker des fichiers de scripts.
115
*
118
*
116
* Papyrus permet à une application donnée de stocker des fichiers de script qui seront
119
* Papyrus permet à une application donnée de stocker des fichiers de script qui seront
117
* appelés depuis l'entête de la page. En XHTML strict, l'utilisation de cette 
120
* appelés depuis l'entête de la page. En XHTML strict, l'utilisation de cette 
118
* fonction est conseillée.
121
* fonction est conseillée.
119
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les chemin des
122
* Cette fonction peut être appelé plusieurs fois. Elle ne fait que stocker les chemin des
120
* fichiers dans une variable (tableau associatif) globale utilisée par Génésia.
123
* fichiers dans une variable (tableau associatif) globale utilisée par Papyrus.
121
*
124
*
122
* @global   array   "script_fichier" : utilisé pour stocker les chemins des scripts.
125
* @global   array   "script_fichier" : utilisé pour stocker les chemins des scripts.
123
* @param    string  la clé du tableau de fichiers, par exemple le nom du fichier à insérer.
126
* @param    string  la clé du tableau de fichiers, par exemple le nom du fichier à insérer.
Line 130... Line 133...
130
    global $_GEN_commun;
133
    global $_GEN_commun;
Line 131... Line 134...
131
    
134
    
132
    if (empty($_GEN_commun['script_fichier'][$id_fichier])) {
135
    if (empty($_GEN_commun['script_fichier'][$id_fichier])) {
133
        $_GEN_commun['script_fichier'][$id_fichier]['type']   = $type_fichier;
136
        $_GEN_commun['script_fichier'][$id_fichier]['type']   = $type_fichier;
134
        $_GEN_commun['script_fichier'][$id_fichier]['chemin'] = $chemin_fichier;
137
        $_GEN_commun['script_fichier'][$id_fichier]['chemin'] = $chemin_fichier;
-
 
138
    } else {
-
 
139
        if (GEN_DEBOGAGE) {
135
    } else {
140
            $_GEN_commun['debogage_info'] .=
136
        die('ERREUR Génésia : cet identifiant de fichier à déjà été enregistré par GEN_stockerFichierJavascript(). <br />'.
141
                    'ERREUR Papyrus : cet identifiant de fichier à déjà été enregistré par GEN_stockerFichierJavascript(). <br />'.
137
            'Identifiant : '. $id_fichier .'<br />'.
142
                    'Identifiant : '. $id_fichier .'<br />'.
138
            'Ligne n° : '. __LINE__ .'<br />'.
143
                    'Ligne n° : '. __LINE__ .'<br />'.
-
 
144
                    'Fichier : '. __FILE__;
139
            'Fichier : '. __FILE__);
145
        }
140
    }
146
    }
Line 141... Line 147...
141
}
147
}
142
 
148
 
Line 193... Line 199...
193
 
199
 
194
 
200
 
195
/* +--Fin du code ----------------------------------------------------------------------------------------+
201
/* +--Fin du code ----------------------------------------------------------------------------------------+
-
 
202
*
-
 
203
* $Log: not supported by cvs2svn $
-
 
204
* Revision 1.1  2004/06/15 15:13:07  jpm
196
*
205
* Changement de nom et d'arborescence de Genesia en Papyrus.
197
* $Log: not supported by cvs2svn $
206
*
198
* Revision 1.6  2004/04/30 16:18:56  jpm
207
* Revision 1.6  2004/04/30 16:18:56  jpm
199
* Correction d'un bogue dans les fonctions de gestion des scripts.
208
* Correction d'un bogue dans les fonctions de gestion des scripts.
200
*
209
*