*
*@copyright Réseau Ecole et Nature 2005
*@version $Revision: 1.1 $ $Date: 2007-04-19 14:51:10 $
// +------------------------------------------------------------------------------------------------------+
*/
// +------------------------------------------------------------------------------------------------------+
// | ENTETE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
require_once PAP_CHEMIN_RACINE.'api/formulaire/formulaire.class.inc.php' ;
//appel du fichier de constantes des langues
include_once PAP_CHEMIN_RACINE.'client/questionnaire/langues/questionnaire.langue.'.$GLOBALS['_GEN_commun']['i18n'].'.inc.php' ;
// +------------------------------------------------------------------------------------------------------+
// | LISTE de FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
function afficherContenuCorps() {
// Gestion des valeurs par defauts, en fonctions des donnees sauvees dans le menu
$requete = 'SELECT gm_application_arguments FROM gen_menu WHERE gm_id_menu='.$_GET['menu'] ;
$resultat = $GLOBALS['_GEN_commun']['pear_db']->query($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete
".$resultat->getMessage()."
".$resultat->getDebugInfo()) ;
}
if ($resultat->numRows()>0) {
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT)) {
$arguments = explode('||', $ligne->gm_application_arguments) ;
for ($i = 0; $i < count($arguments); $i++) {
$attr = explode('=', $arguments[$i], 2) ;
if ($attr[0] != '') {
$info_application->$attr[0] = (isset($attr[1]) ? $attr[1] : '') ;
}
}
}
}
// On recupere le template du questionnaire
$requete = 'SELECT bti_nom, bti_template FROM pap_formulaires WHERE bti_id='.$info_application->num_questionnaire.' AND bti_i18n LIKE "'.$GLOBALS['_GEN_commun']['i18n'].'%"' ;
$resultat = $GLOBALS['_GEN_commun']['pear_db']->query($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete
".$resultat->getMessage()."
".$resultat->getDebugInfo()) ;
}
if ($resultat->numRows()>0) {
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
$nom_questionnaire=$ligne->bti_nom ;
$template=$ligne->bti_template ;
}
$url = preg_replace ('/&/', '&', $GLOBALS['_GEN_commun']['url']->getURL()) ;
$form = new PAP_donnees ;
$res=''.$nom_questionnaire.'
'."\n" ;
// cas du formulaire deja rempli : on envoie le mail
if (isset($_POST['envoi']) && !isset($_SESSION['formulaire_deja_envoye']) ) {
$_SESSION['formulaire_deja_envoye'] = 1 ;
$headers = 'From: '.QUESTIONNAIRE.' <'.$info_application->mail_questionnaire.'>'."\n" ;
$headers .= 'X-Mailler: Florian'."\n" ;
$corps='' ;
$tableau = $form->afficher_donnees($info_application->num_questionnaire) ;
//var_dump($_POST);
for ($i=0; $iquery($requete) ;
if (DB::isError($resultat)) {
die ("Echec de la requete
".$resultat->getMessage()."
".$resultat->getDebugInfo()) ;
}
if ($resultat->numRows()>0) {
$ligne = $resultat->fetchRow(DB_FETCHMODE_OBJECT) ;
$val=$ligne->plv_label ;
}
else $val='';
if ($val != '' and $val != FORM_CHOISIR and $val != FORM_NON_PRECISE) {
$corps .= $tableau[$i]['label'].' : '.$val."\n"."\n" ;
}
}
elseif ( $tableau[$i]['type']=='formulaire_listedatedeb' || $tableau[$i]['type']=='formulaire_listedatefin' ) {
$val=$tableau[$i]['nom_bdd'] ;
if (!in_array($val, array ('bf_date_debut_validite_fiche', 'bf_date_fin_validite_fiche'))) {
if ($_POST[$val] != '') {
$corps .= $tableau[$i]['label'].' : '.strftime('%d.%m.%Y',strtotime($_POST[$val]))."\n"."\n" ;
}
}
}
}
mail($info_application->mail_questionnaire, QUESTIONNAIRE_REPONSE_AU.' : '.$nom_questionnaire, html_entity_decode($corps), $headers) ; // Envoi du mail
$res .= $info_application->texte_questionnaire_envoye;
return $res;
// Cas ou l'on affiche le questionnaire
} else {
unset ($_SESSION['formulaire_deja_envoye']) ;
$res .= $form->afficher_formulaire('formulaire_questionnaire', $url , $template ) ;
}
return $res ;
}
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.3 2006/04/28 11:35:37 florian
* ajout constantes chemin
*
* Revision 1.2 2006/01/19 10:24:37 florian
* champs obligatoires pour le formulaire de saisie
*
* Revision 1.1 2005/09/22 13:28:50 florian
* Application de contact, pour envoyer des mails. Reste a faire: configuration pour choisir les destinataires dans l'annuaire.
*
*
*
* +-- Fin du code ----------------------------------------------------------------------------------------+
*/
?>