Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 1316 → Rev 1336

/trunk/papyrus/pap_initialise_info.inc.php
21,11 → 21,11
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
// | |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: pap_initialise_info.inc.php,v 1.29 2007-04-13 09:41:09 neiluj Exp $
// CVS : $Id: pap_initialise_info.inc.php,v 1.30 2007-04-19 15:34:35 neiluj Exp $
/**
*Initialisation de Papyrus : vérification et récupération de paramètres généraux.
*
* La page contient le code initialisant l'éxecution du rendu d'une page par Papyrus.
* La page contient le code initialisant l'exécution du rendu d'une page par Papyrus.
* Nous y trouvons la recherche des informations disponibles sur :
* - le site présent sur le serveur demandé,
* - l'identification,
41,7 → 41,7
*@author Alexandre GRANIER <alex@tela-botanica.org>
*@author Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.29 $ $Date: 2007-04-13 09:41:09 $
*@version $Revision: 1.30 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
127,7 → 127,7
if ($resultat->numRows() == 0) {
// Appel à l'application Installateur si nécessaire
/** <br> Inclusion du programme Installateur de Papyrus.
* L'abscence de site oblige à relancer l'installation et le script sql qui regénèrera la base de données.*/
* L'abscence de site oblige à relancer l'installation et le script sql qui régénérera la base de données.*/
include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
$_GEN_commun['sortie'] = afficherContenuCorps();
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
220,7 → 220,7
if (! isset($_GEN_commun['info_site'])) {
// Appel à l'application Installateur si nécessaire
/** <br> Inclusion du programme Installateur de Papyrus.
* L'abscence de site oblige à relancer l'installation et le script sql qui regénèrera la base de données.*/
* L'abscence de site oblige à relancer l'installation et le script sql qui régénérera la base de données.*/
include_once GEN_CHEMIN_APPLICATION.'installateur/installateur.php';
$_GEN_commun['sortie'] .= afficherContenuCorps();
include_once GEN_CHEMIN_PAP.'pap_envoi.inc.php';
335,13 → 335,14
// Récupération des informations sur la traduction du site
$requete = 'SELECT * '.
'FROM gen_site '.
'WHERE gs_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
'AND gs_code_alpha = "'.$_GEN_commun['info_site']->gs_code_alpha.'"';
'WHERE gs_ce_i18n = "'.$_GEN_commun['i18n'].'"';
// 'WHERE gs_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
// 'AND gs_code_alpha = "'.$_GEN_commun['info_site']->gs_code_alpha.'"';
 
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 
// Nous crééons l'entrée 'traduction_info_site' dans _GEN_commun que si nous avons bien trouvé une
// Nous créons l'entrée 'traduction_info_site' dans _GEN_commun que si nous avons bien trouvé une
// traduction pour le site. Il faut donc tester l'existence de cette entrée avant de l'utiliser.
if ($resultat->numRows() > 0) {
$_GEN_commun['traduction_info_site'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
356,13 → 357,14
// Récupération des informations sur la traduction du menu
$requete = 'SELECT * '.
'FROM gen_menu '.
'WHERE gm_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
'AND gm_code_alpha = "'.$_GEN_commun['info_menu']->gm_code_alpha.'"';
'WHERE gm_ce_i18n = "'.$_GEN_commun['i18n'].'" ;';
// 'WHERE gm_ce_i18n = "'.$_GEN_commun['i18n'].'" '.
// 'AND gm_code_alpha = "'.$_GEN_commun['info_menu']->gm_code_alpha.'"';
 
$resultat = $db->query($requete);
(DB::isError($resultat)) ? die(BOG_afficherErreurSql(__FILE__, __LINE__, $resultat->getMessage(), $requete)) : '';
 
// Nous crééons l'entrée 'traduction_info_menu' dans _GEN_commun que si nous avons bien trouvé une
// Nous créons l'entrée 'traduction_info_menu' dans _GEN_commun que si nous avons bien trouvé une
// traduction pour le menu. Il faut donc tester l'existence de cette entrée avant de l'utiliser.
if ($resultat->numRows() > 0) {
$_GEN_commun['traduction_info_menu'] = $resultat->fetchRow(DB_FETCHMODE_OBJECT);
484,6 → 486,9
 
/* +--Fin du code ---------------------------------------------------------------------------------------+
* $Log: not supported by cvs2svn $
* Revision 1.29 2007/04/13 09:41:09 neiluj
* réparration cvs
*
* Revision 1.28 2006/12/01 15:41:21 ddelon
* erreur affichage
*
572,7 → 577,7
* Correction d'un bogue concernant l'internationalisation par défaut quand la langue du navigateur ne correspond pas à celle du site.
*
* Revision 1.1 2004/06/16 08:13:20 jpm
* Changement de nom de Génésia en Papyrus.
* Changement de nom de Papyrus en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.24 2004/05/05 14:33:37 jpm
583,17 → 588,17
* Amélioration de la gestion de l'internationalisation.
*
* Revision 1.22 2004/05/04 16:17:05 jpm
* Légère amélioration du code (libération de ressource).
* Légère amélioration du code (libération
 
de ressource).
*
* Revision 1.21 2004/05/03 11:21:58 jpm
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
*
* Revision 1.20 2004/04/30 16:17:27 jpm
* Ajout de la récupération d'une info sur la hiérarchie.
* Surement à supprimer car inutile.
* Ajout de la récupération d'une info sur la hiérarchie.
* Surement à supprimer car inutile.
* Changement du modèle de la base de données.
*
* Revision 1.19 2004/04/28 12:04:31 jpm
* Changement du modèle de la base de données.
*
602,54 → 607,54
*
* Revision 1.17 2004/04/09 16:43:32 jpm
* Suppression d'un blanc.
* Récupération de la création de l'objet URL.
*
* Revision 1.16 2004/04/09 16:20:11 jpm
* Récupération de la création de l'objet URL.
* Gestion des tables i18n.
* Utilisation de la classe Pear HTTP pour la négociation du langage à utiliser pour le site.
*
* Revision 1.15 2004/04/05 16:37:43 jpm
* Utilisation de la classe Pear HTTP pour la négociation du langage à utiliser pour le site.
* Déplacement dans le fichier gen_initialisation_pear.inc.php de la création des objets Pear Net_URL et Auth.
*
* Revision 1.14 2004/04/02 16:29:30 jpm
* Déplacement dans le fichier gen_initialisation_pear.inc.php de la création des objets Pear Net_URL et Auth.
*
* Revision 1.13 2004/04/01 11:27:13 jpm
* Ajout et modification de commentaires pour PhpDocumentor.
* Prise en compte du nouveau modèle de Génésia révision 1.9.
*
* Revision 1.12 2004/03/31 16:50:04 jpm
* Prise en compte du nouveau modèle de Papyrus révision 1.9.
*
* Revision 1.11 2004/03/27 11:04:14 jpm
* Déplacement des fonctions de gestion d'erreur dans la bibliotheque de l'application Installateur.
* Modification des commentaires vis à vis du nouveau modèle.
* Déplacement des fonctions de gestion d'erreur dans la bibliotheque de l'application Installateur.
* Changement et simplification des noms des variables globales.
* Suppression de l'attribution d'une configuration par défaut.
* Changement et simplification des noms des variables globales.
* Traduction en français de certaines variables et partie de code.
* Remplacement de variable par des constante provenant du fichier de configuration.
* Traduction en français de certaines variables et partie de code.
* Mise en forme requête sql.
*
* Revision 1.10 2004/03/24 07:20:03 jpm
* Mise en forme requête sql.
*
* Revision 1.9 2004/03/23 17:06:56 jpm
* Ajout de commentaire dans l'entête.
* Mise en conformité avec la convention de codage.
* Ajout de commentaire dans l'entête.
* Mise en conformité avec la convention de codage.
*
* Revision 1.8 2004/03/23 16:31:54 jpm
* Ajout du code provenant de gen_noyau.inc.php.
* Ajout, formatage et traduction des commentaires.
*
* Revision 1.7 2004/03/22 18:35:32 jpm
* Traduction et ajout de commentaires.
* Amélioration de la conformité avec la convention de codage.
* Changement requête sql pour le nouveau modèle de Génésia.
* Amélioration de la conformité avec la convention de codage.
* Changement requête sql pour le nouveau modèle de Papyrus.
*
* Correction des requêtes sql pour mise en conformité avec le nouveau modèle de Génésia et la convention de codage.
* Revision 1.6 2004/03/22 11:14:30 jpm
* Ajout de commentaires et mise en forme.
* Correction des requêtes sql pour mise en conformité avec le nouveau modèle de Papyrus et la convention de codage.
*
* Revision 1.5 2003/12/16 16:57:59 alex
* mise à jour pour compatibilité avec genesia
* Ajout de commentaires et début de mise en conformité
*
* Revision 1.4 2003/11/24 16:05:02 jpm
* Ajout de commentaires et début de mise en conformité
* avec la convention de codage.
/trunk/papyrus/applications/admin_menu/bibliotheque/adme_general.fonct.php
32,7 → 32,7
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
// termes.
// ----
// CVS : $Id: adme_general.fonct.php,v 1.18 2006-10-16 15:49:07 ddelon Exp $
// CVS : $Id: adme_general.fonct.php,v 1.19 2007-04-19 15:34:35 neiluj Exp $
/**
* Contient l'affichage par défaut de l'appli quand aucune actin
*
46,7 → 46,7
//Autres auteurs :
*@author Aucun
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.18 $ $Date: 2006-10-16 15:49:07 $
*@version $Revision: 1.19 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
241,7 → 241,7
$form =& new HTML_QuickForm('adme_form_sites', 'post', str_replace('&amp;', '&', $objet_pear_url->getUrl()));
$tab_index = 1000;
$squelette =& $form->defaultRenderer();
$squelette->setFormTemplate("\n".'<form{attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
$squelette->setformTemplate("\n".'<form {attributes}>'."\n".'{content}'."\n"."\n".'</form>'."\n");
$squelette->setElementTemplate( '{label}'."\n".'{element}'."\n".
'<!-- BEGIN required --><span class="symbole_obligatoire">*</span><!-- END required -->'."\n".
'<!-- BEGIN error --><span class="erreur">{error}</span><!-- END error -->'."\n");
272,7 → 272,11
// Instanciation des valeurs par défaut du formulaire
if (isset($id_site_par_defaut)) {
$adme_site_id=$id_site_par_defaut;
if (!isset($_GET['adme_site_id'])) {
$adme_site_id=$id_site_par_defaut;
} else {
$adme_site_id=$_GET['adme_site_id'];
}
}
$form->setDefaults(array('adme_site_id' => $adme_site_id));
321,6 → 325,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.18 2006/10/16 15:49:07 ddelon
* Refactorisation code mulitlinguisme et gestion menu invisibles
*
* Revision 1.17 2006/10/06 13:38:45 florian
* ergonomie amélioree
*
/trunk/papyrus/applications/admin_menu/admin_menu.php
32,7 → 32,7
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
// termes.
// ----
// CVS : $Id: admin_menu.php,v 1.25 2006-10-06 10:40:51 florian Exp $
// CVS : $Id: admin_menu.php,v 1.26 2007-04-19 15:34:35 neiluj Exp $
/**
* Application gérant les menus de Papyrus
*
46,7 → 46,7
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
*@author Laurent COUDOUNEAU <lc@gsite.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.25 $ $Date: 2006-10-06 10:40:51 $
*@version $Revision: 1.26 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
125,7 → 125,7
if (isset($_POST['adme_site_id'])) {
$_GET['adme_site_id'] = $_POST['adme_site_id'];
} else {
$_GET['adme_site_id'] = (!isset($_GET['adme_site_id'])) ? 0 : $_GET['adme_site_id'];
$_GET['adme_site_id'] = (!isset($_GET['adme_site_id'])) ? 1 : $_GET['adme_site_id'];
}
$_GET['adme_menu_id'] = (!isset($_GET['adme_menu_id'])) ? 0 : $_GET['adme_menu_id'];
$_GET['adme_action'] = (!isset($_GET['adme_action'])) ? '' : $_GET['adme_action'];
479,6 → 479,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.25 2006/10/06 10:40:51 florian
* harmonisation des messages d'erreur de l'authentification
*
* Revision 1.24 2006/06/29 19:13:26 ddelon
* Bug defaut traduction sur menu commun
*
555,7 → 558,7
* Suppression fichier inutile.
*
* Revision 1.1 2004/06/16 15:04:39 jpm
* Changement de nom de Génésia en Papyrus.
* Changement de nom de Papyrus en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.26 2004/05/10 14:32:21 jpm
/trunk/papyrus/applications/admin_site/bibliotheque/adsi_site.fonct.php
19,7 → 19,7
// | 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: adsi_site.fonct.php,v 1.32 2006-10-16 15:49:06 ddelon Exp $
// CVS : $Id: adsi_site.fonct.php,v 1.33 2007-04-19 15:34:35 neiluj Exp $
/**
* Bibliothèque de fonctions d'admininistration des projets
*
34,7 → 34,7
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
*@author Laurent COUDOUNEAU <lc@gsite.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.32 $ $Date: 2006-10-16 15:49:06 $
*@version $Revision: 1.33 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
49,9 → 49,9
// +------------------------------------------------------------------------------------------------------+
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
/** Fonction ADMIN_afficherListeSites()- Génére le xhtml permettant de choisir un site parmis une liste.
/** Fonction ADMIN_afficherListeSites()- Génère le xhtml permettant de choisir un site parmis une liste.
*
* Cette fonction fournie une liste des sites principaux gérés par Génésia.
* Cette fonction fournie une liste des sites principaux gérés par Papyrus.
*
* @param string l'objet Pear DB.
* @param string l'url de la page à laquelle renvoyer le formulaire.
254,7 → 254,7
$form->addElement('submit', $id, $label, $aso_attributs);
$id = 'form_sites_supprimer';
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'Êtes vous sûr de vouloir supprimer ce site ?'.'\');');
$aso_attributs = array('id'=> $id, 'tabindex' => $tab_index++, 'onclick' => 'javascript:return confirm(\''.'êtes vous sûr de vouloir supprimer ce site ?'.'\');');
$label = 'Supprimer';
$form->addElement('submit', $id, $label, $aso_attributs);
290,7 → 290,7
return $message;
}
 
/** Fonction ADMIN_afficherFormSite()- Génére un formulaire pour gen_site.
/** Fonction ADMIN_afficherFormSite()- Génère un formulaire pour gen_site.
*
* Cette fonction retourne un formulaire pour modification ou pour ajout.
*
395,7 → 395,7
} else if (isset($aso_valeurs['gs_id_site'])) {
$aso_valeurs['modification'] = true;
}
// Débogage :
// débogage :
//$GLOBALS['_DEBOGAGE_'] .= '<pre>'.print_r($aso_valeurs, true).'</pre>';
//-------------------------------------------------------------------------------------------------------------------
// Information précédent le formulaire (en modification)
722,7 → 722,7
// Javascript pour la validation côté client
$regles_javascript = $form->getValidationScript();
// Suppression des balises déjà créées par GEN_stockerCodeScript()
// Le code ci-dessous devrait être utilisé si on arrive à empécher Quickform de l'ajouter lui-même!
// Le code ci-dessous devrait être utilisé si on arrive à empêcher Quickform de l'ajouter lui-même!
/*
$regles_javascript = ereg_replace ( '<script type="text\/javascript">', '', $regles_javascript);
$regles_javascript = ereg_replace ( '<!--', '', $regles_javascript);
759,7 → 759,7
$message .= '<p class="pap_erreur">Le champ "Code alphanumérique" ne doit pas être vide.</p>';
}
if ($aso_valeurs['gs_code_num'] == '') {
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est conscidéré comme vide!
// Note: ne pas utilisez empty() car si on veut saisir 0, cela est considéré comme vide!
$message .= '<p class="pap_erreur">Le champ "Code numérique" ne doit pas être vide.</p>';
}
if (preg_match('/^[0-9]+$/',$aso_valeurs['gs_code_num']) == 0) {
822,7 → 822,7
}
if (isset($aso_valeurs['externe']) && $aso_valeurs['externe'] == 0 && (!empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://')) {
$message .= '<p class="pap_erreur">'.'Vous avez saisie une l\'url : '.$aso_valeurs['gs_url'].'<br />'.
'Vous conscidérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
'Vous considérez donc ce site comme étant externe. Il est nécessaire de cocher la case "oui"!'.'</p>';
}
return $message;
}
842,7 → 842,7
function ADMIN_enregistrerSite(&$db, $aso_valeurs, $id_admin)
{
// Nous vérifions si nous avons à faire à un site externe.
$id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
$id_type_site = '102';// par défaut on considère que c'est un site "principal"
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$id_type_site = '103';// c'est un site "externe"
}
915,8 → 915,17
'Fichier n° : '. __FILE__ .'<br /><p>';
return $message;
}
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
$resultat = $objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
if (PEAR::isError($resultat)) {
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
'Répertoire : '. PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'] .'<br />'.
'Erreur origine : '. $resultat->getMessage() .'<br />'.
'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
'Ligne n° : '. __LINE__ .'<br />'.
'Fichier n° : '. __FILE__ .'<br /></p>';
return $message;
}
//$objet_pear_ftp->cd(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha']) ;
foreach ($tab_rep_langue as $nom_rep_langue) {
$objet_pear_ftp->mkdir(PAP_FTP_RACINE.GEN_CHEMIN_SITES.$aso_valeurs['gs_code_alpha'].GEN_SEP.$nom_rep_langue) ;
928,6 → 937,7
$message = '<p class="pap_erreur"> ERREUR Papyrus admin : impossible de créer le répertoire par ftp.<br />'.
'Répertoire : '. $chemin_repertoire .'<br />'.
'Erreur origine : '. $resultat->getMessage() .'<br />'.
'Informations de debogage : '.$resultat->getDebugInfo().'<br />'.
'Ligne n° : '. __LINE__ .'<br />'.
'Fichier n° : '. __FILE__ .'<br /></p>';
return $message;
985,7 → 995,7
$id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
if ($id_site == false) {
$message = '<p class="erreur"> ERREUR Génésia admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
$message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
'Ligne n° : '. __LINE__ .'<br />'.
'Fichier n° : '. __FILE__ .'<br /></p>';
return $message;
1078,7 → 1088,7
}
}
$message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';
$message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
return $message;
}
 
1097,7 → 1107,7
function ADMIN_traduireSite(&$db, $aso_valeurs, $id_admin)
{
// Nous vérifions si nous avons à faire à un site externe.
$id_type_site = '102';// par défaut on considére que c'est un site "principal"
$id_type_site = '102';// par défaut on considère que c'est un site "principal"
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$id_type_site = '103';// c'est un site "externe"
}
1223,7 → 1233,7
$id_site = SQL_obtenirNouveauId($db, 'gen_site','gs_id_site');
if ($id_site == false) {
$message = '<p class="erreur"> ERREUR Génésia admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
$message = '<p class="erreur"> ERREUR Papyrus admin : impossible de récupérer un identifiant pour la table gen_site.<br />'.
'Ligne n° : '. __LINE__ .'<br />'.
'Fichier n° : '. __FILE__ .'<br /></p>';
return $message;
1376,7 → 1386,7
}
}
$message = '<p class="pap_info">'.'Succés de l\'ajout du site.'.'</p>';
$message = '<p class="pap_info">'.'Succès de l\'ajout du site.'.'</p>';
return $message;
}
 
1406,7 → 1416,7
}
// Nous vérifions si nous avons à faire à un site externe.
$id_type_site = '102';// par défaut on conscidére que c'est un site "principal"
$id_type_site = '102';// par défaut on considère que c'est un site "principal"
$requete_complement = ', gs_url = NULL ';
if (isset($aso_valeurs['type_site_externe']) && $aso_valeurs['type_site_externe'] > 0 && !empty($aso_valeurs['gs_url']) && $aso_valeurs['gs_url'] != 'http://') {
$requete_complement = ', gs_url = "'.$aso_valeurs['gs_url'].'" ';
1584,7 → 1594,7
}
}
$message = '<p class="pap_info">'.'Succés de la modification du site.'.'</p>';
$message = '<p class="pap_info">'.'Succès de la modification du site.'.'</p>';
$message .= '<p class="pap_info">'.$message_complement.'</p>';
return $message;
}
1621,7 → 1631,7
}
// Recherche des différents sites liés à celui que l'on veut détruire
// Cela comprend le site à détruire lui méme car il posséde la relations
// Cela comprend le site à détruire lui même car il possède la relations
// sur lui meme "site principale".
$requete = 'SELECT gs_id_site '.
'FROM gen_site, gen_site_relation '.
1744,7 → 1754,7
// Retour au niveau d'erreur définit dans le fichier de config de Papyrus
error_reporting(GEN_DEBOGAGE_NIVEAU);
}
$message = '<p class="pap_info">Succés de la suppression du site.</p>';
$message = '<p class="pap_info">Succès de la suppression du site.</p>';
return $message;
}
 
1818,6 → 1828,9
// +- Fin du code source --------------------------------------------------------------------------------+
/*
* $Log: not supported by cvs2svn $
* Revision 1.32 2006/10/16 15:49:06 ddelon
* Refactorisation code mulitlinguisme et gestion menu invisibles
*
* Revision 1.31 2006/09/12 09:54:02 ddelon
* Affichage des identifications disponibles lors de la création d'un site. Un bug faisait que l'affichage de l'identification par défaut ne fonctionnait plus en creation.
*
1880,7 → 1893,7
* Gestion des types de sites externes gérés par Papyrus.
*
* Revision 1.13 2004/12/03 16:37:34 jpm
* Correction d'un bogue qui empécher la mise à jour des url des sites externes.
* Correction d'un bogue qui empêcher la mise à jour des url des sites externes.
*
* Revision 1.12 2004/12/01 17:22:58 jpm
* Ajout d'une confirmation javascript pour la suppression d'un site.
1917,7 → 1930,7
* Modification de la documentation pour une mailleur analyse par PhpDocumentor.
*
* Revision 1.1 2004/06/16 14:28:46 jpm
* Changement de nom de Génésia en Papyrus.
* Changement de nom de Papyrus en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.20 2004/05/10 14:32:14 jpm
/trunk/papyrus/applications/installateur/instal_fichier.inc.php
32,7 → 32,7
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: instal_fichier.inc.php,v 1.25 2006-12-01 15:43:01 alexandre_tb Exp $
// CVS : $Id: instal_fichier.inc.php,v 1.26 2007-04-19 15:34:35 neiluj Exp $
/**
* Page de création des fichiers nécessaire à l'installation de Papyrus.
*
46,7 → 46,7
*@author Patrick PAUL
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.25 $ $Date: 2006-12-01 15:43:01 $
*@version $Revision: 1.26 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
**/
 
75,7 → 75,7
}
}
 
// Récupération des paramêtres de configuration du formulaire précédent
// Récupération des paramètres de configuration du formulaire précédent
if (isset($_POST['pref_serial'])) {
$pref = unserialize(stripslashes($_POST['pref_serial']));
}
105,7 → 105,7
$sortie_verif .= ' <br /><h2>Test de la connexion FTP</h2>'."\n";
$erreur = testerConfig($sortie_verif, 'Test connexion FTP ...', $ftp = @ftp_connect($fichier['PAP_FTP_SERVEUR'], $fichier['PAP_FTP_PORT']), '', 1, $erreur);
$erreur = testerConfig($sortie_verif, 'Test identification sur le serveur FTP ...', @ftp_login($ftp, $fichier['PAP_FTP_UTILISATEUR'],
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramêtres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramètres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
$sortie_verif .= '<br />'."\n";
$configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
154,7 → 154,7
'<tt>pap_config.inc.php</tt> directement dans le r&eacute;pertoire <tt>configuration</tt> du répertoire '.
'<tt>papyrus</tt> de Papyrus. Une fois que vous aurez fait cela, votre site Papyrus devrait fonctionner '.
'correctement.';
$txt_ecriture_conf_erreur .= '<div class="code"><code>'.htmlentities($configCode).'</code></div>'."\n";
$txt_ecriture_conf_erreur .= '<div class="code"><code><pre>'.htmlentities($configCode).'</pre></code></div>'."\n";
$erreur = testerConfig($sortie_verif, $txt_ecriture_conf, $fp, $txt_ecriture_conf_erreur, 1, $erreur);
// tentative d ecriture du fichier .htaccess
176,20 → 176,20
'RewriteCond %{REQUEST_FILENAME} !-d'."\n".
'RewriteCond %{REQUEST_FILENAME} !-f'."\n\n".
'# ATTENTION : remplace localhoste par votre nom de domaine !'."\n".
'# Réecriture d\'url pour les applications de Papyrus n\'utilisant pas correctement Pap_URL'."\n".
'# Réécriture d\'url pour les applications de Papyrus n\'utilisant pas correctement Pap_URL'."\n".
'# ATTENTION : ne marche pas pour les formulaires en mode POST !'."\n".
'RewriteRule ^([^\/]+)&(.*)$ '.$url.'/$1?$2 [QSA,L,R=301]'."\n".
'# Réecriture d\'url pour les vieux permaliens'."\n".
'# Réécriture d\'url pour les vieux permaliens'."\n".
'RewriteCond %{REQUEST_FILENAME}/ !-d'."\n".
'RewriteRule ^([^\/\?:.]+)$ '.$url.'/page:$1 [QSA,L,R=301]'."\n".
'# Redirection d\'url pour le sélecteur de site'."\n".
'# Le point d\'interrogation sans rien après, vide la QUERY_STRING sinon elle est concacténée à l\'url et cela plante...'."_n".
'# Le point d\'interrogation sans rien après, vide la QUERY_STRING sinon elle est concaténée à l\'url et cela plante...'."_n".
'# Le "/" initial dans la RewriteCond est obligatoire!'."\n".
'RewriteCond %{REQUEST_URI}?%{QUERY_STRING} ^/papyrus\.php\?site=([^&]+)$'."\n".
'RewriteRule ^papyrus.php$ '.$url.'/site:%1? [L,R=301]'."\n\n".
'# Réecriture d\'url pour les sites de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
'# Réécriture d\'url pour les sites de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
'RewriteRule ^site:.+$ papyrus.php [QSA,L]'."\n".
'# Réecriture d\'url pour les menus de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
'# Réécriture d\'url pour les menus de Papyrus : à modifier si les valeurs par défaut ont été changées'."\n".
'RewriteRule ^page:.+$ papyrus.php [QSA,L]'."\n\n".
'# Gestion des erreurs 404'."\n".
'ErrorDocument 404 '.$prefixe.'/erreur_http.php?erreur=404';
298,7 → 298,7
// | LISTE DES FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
 
// Création du formulaire de configuration de la base de donneés
// Création du formulaire de configuration de la base de données
function creerFormulaire($fichier, $bln_lecture = false) {
$disabled = '';
if ($bln_lecture) {
346,6 → 346,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.25 2006/12/01 15:43:01 alexandre_tb
* prise en compte dans le rewriteengine de l'activation ou non de la reecriture
*
* Revision 1.24 2006/12/01 11:47:10 alexandre_tb
* suppression de var_dump
*
/trunk/papyrus/applications/installateur/presentations/styles/installateur.css
17,6 → 17,8
.symbole_obligatoire {color:red;}
.input_inscription {float:left; width:180px;}
.input_inscription input, .input_inscription select {margin: 2px;border: 1px solid #000;font:12px Myriad, Arial, sans-serif; }
.erreur {background-color:#FFEEEE;border:1px;
border: 1px dotted #A81106;padding:1px;margin:3px;}
/*****************Titres********************************************************/
h1, h2, h3, h4, h5, h6 {font-family: Myriad, Arial, sans-serif;text-align:left;margin:4px 0;}
h1 {font-size:22px; color: #BBD049;border-bottom: solid #7FB1CA 1px ;}
30,6 → 32,8
form li {list-style-type:none;color:#000;}
form table, form td, form th {border:0}
form td:hover {background: transparent;}
label {padding-right:10px;}
input {margin:2px;background:#EEEEE9;}
/*****************Listes********************************************************/
ul {padding:0;margin: 0 0 0 10px;}
li {padding:0;margin: 2px 0 0 0;color:#000;}
/trunk/papyrus/pap_rendu.inc.php
32,7 → 32,7
// pris connaissance de la licence CeCILL, et que vous en avez accepté les
// termes.
// ----
// CVS : $Id: pap_rendu.inc.php,v 1.37 2007-04-13 09:41:09 neiluj Exp $
// CVS : $Id: pap_rendu.inc.php,v 1.38 2007-04-19 15:34:35 neiluj Exp $
/**
* Rendu : programme traitant l'url demandée et retournant la page compressé au navigateur.
*
48,7 → 48,7
*@author Alexandre GRANIER <alexandre@tela-botanica.org>
*@author Laurent COUDOUNEAU <laurent.coudouneau@ema.fr>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.37 $ $Date: 2007-04-13 09:41:09 $
*@version $Revision: 1.38 $ $Date: 2007-04-19 15:34:35 $
// +------------------------------------------------------------------------------------------------------+
*/
 
309,7 → 309,7
// +------------------------------------------------------------------------------------------------------+
// Gestion de l'intégration de l'application liée au menu
 
// Une fois les applettes appelées et executées nous appelons l'application qui peut avoir
// Une fois les applettes appelées et exécutées nous appelons l'application qui peut avoir
// besoins des infos des applettes (c'est le cas, pour l'applette IDENTIFICATION).
$GLOBALS['_PAPYRUS_']['general']['application_chemin'] = '';
if (isset($GLOBALS['_GEN_commun']['info_application']->gap_chemin)) {
403,7 → 403,7
// +------------------------------------------------------------------------------------------------------+
// Continuation recherche d'info provenant de Papyrus pour la complétion du squelette
 
// Une fois l'application appelé est executé nous affichons le contenu de l'entête qui a pu
// Une fois l'application appelé est exécuté nous affichons le contenu de l'entête qui a pu
// être modifié par l'application.
$GLOBALS['_PAPYRUS_']['rendu']['META_HTTP_EQUIV'] = GEN_afficherMeta('http-equiv');
$GLOBALS['_PAPYRUS_']['rendu']['META_NAME'] = GEN_afficherMeta('name');
412,6 → 412,7
$GLOBALS['_PAPYRUS_']['rendu']['STYLES'] = GEN_afficherStyle();
// Nous récupérons tout le Javascript pour l'afficher dans l'entête de la page.
$GLOBALS['_PAPYRUS_']['rendu']['SCRIPTS'] = GEN_afficherScript();
$GLOBALS['_PAPYRUS_']['rendu']['VERSION'] = PAP_VERSION;
 
// +------------------------------------------------------------------------------------------------------+
// Remplacement des balises des applettes de Papyrus et des Clients dans le squelette avant les appli
440,12 → 441,15
}
 
// +------------------------------------------------------------------------------------------------------+
// Stokage du squelette dans un variable globale aprés avoir remplacer les balises Papyrus.
// Stokage du squelette dans un variable globale après avoir remplacer les balises Papyrus.
$GLOBALS['_GEN_commun']['sortie'] = $GLOBALS['_PAPYRUS_']['general']['contenu_squelette'];
 
/* +--Fin du code ---------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.37 2007/04/13 09:41:09 neiluj
* réparration cvs
*
* Revision 1.36 2006/12/13 17:17:41 jp_milcent
* Suppression de l'analyse par Text_Wiki.
*
453,7 → 457,7
* Correction bogue : mauvais ordre pour parser les balises.
*
* Revision 1.34 2006/12/12 13:56:33 jp_milcent
* Modification de l'ordre de remplacement des balises pour permettre aux apllettes d'intéragir sur le contenu de l'application.
* Modification de l'ordre de remplacement des balises pour permettre aux apllettes d'interagir sur le contenu de l'application.
*
* Revision 1.33 2006/12/08 15:59:17 jp_milcent
* Suppression de code inutile.
529,7 → 533,7
* php5 et bugs divers
*
* Revision 1.16 2005/07/12 09:13:15 alexandre_tb
* déplacement de l'appel de la fonction afficherContenuMenu APRES l'appel de afficherContenuCorps.
* Déplacement de l'appel de la fonction afficherContenuMenu APRES l'appel de afficherContenuCorps.
* Le menu d'une application étant calculé après les opérations de l'application.
*
* Revision 1.15 2005/07/08 21:13:15 ddelon
575,7 → 579,7
* Changement de constante pour les chemin d'accès à la biblio de code de Papyrus.
*
* Revision 1.1 2004/06/16 08:13:58 jpm
* Changement de nom de Génésia en Papyrus.
* Changement de nom de Papyrus en Papyrus.
* Changement de l'arborescence.
*
* Revision 1.32 2004/05/10 12:24:55 jpm
588,7 → 592,7
* Modification de la façon d'ajouter la feuille de style de débogage pour qu'elle soit prise en compte par défaut.
*
* Revision 1.29 2004/05/03 14:12:04 jpm
* Suppression du fichier bibliothèquie de fonctions sur gen_menu.
* Suppression du fichier bibliothèque de fonctions sur gen_menu.
*
* Revision 1.28 2004/05/03 11:21:58 jpm
* Fin de la gestion des applettes et suppression de l'info_menu_hierarchie de _GEN_commun.
609,7 → 613,7
* Transformation de $GS_GLOBAL en $_GEN_commun.
*
* Revision 1.22 2004/04/21 07:55:02 jpm
* Ajout de la feuille de style de débogage si le débogage de Génésia est activé.
* Ajout de la feuille de style de débogage si le débogage de Papyrus est activé.
*
* Revision 1.19 2004/04/09 16:20:54 jpm
* Extraction de la gestion du cache et de l'envoi.
616,19 → 620,19
* Gestion des tables i18n.
*
* Revision 1.18 2004/04/08 12:29:48 jpm
* Début amélioration de la gestion du cache et de la compression des pages de Génésia.
* Début amélioration de la gestion du cache et de la compression des pages de Papyrus.
*
* Revision 1.17 2004/04/05 16:38:04 jpm
* Utilisation des nouvelles fonctions gérant l'insertion du Javascript.
*
* Revision 1.16 2004/04/02 16:30:56 jpm
* Gestion de la balise Génésia IDENTIFICATION permettant l'envoie d'un formulaire de login.
* Gestion de la balise Papyrus IDENTIFICATION permettant l'envoie d'un formulaire de login.
*
* Revision 1.15 2004/04/01 11:27:13 jpm
* Ajout et modification de commentaires pour PhpDocumentor.
*
* Revision 1.14 2004/03/31 16:50:10 jpm
* Prise en compte du nouveau modèle de Génésia révision 1.9.
* Prise en compte du nouveau modèle de Papyrus révision 1.9.
*
* Revision 1.13 2004/03/27 11:07:45 jpm
* Modification des commentaires vis à vis du nouveau modèle.