Subversion Repositories Applications.papyrus

Rev

Rev 245 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 245 Rev 311
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: annuaire.php,v 1.3 2005-01-06 15:44:33 alex Exp $
 22 
// CVS : $Id: annuaire.php,v 1.4 2005-03-24 08:24:39 alex Exp $
23 
/**
 23 
/**
24 
* programme principal du module annuaire
 24 
* programme principal du module annuaire
25 
*
 25 
*
26 
* programme principal du module annuaire
 26 
* programme principal du module annuaire
27 
*
 27 
*
Line 29... Line 29...
29 
//Auteur original :
 29 
//Auteur original :
30 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
 30 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
31 
//Autres auteurs :
 31 
//Autres auteurs :
32 
*@author        Aucun
 32 
*@author        Aucun
33 
*@copyright     Tela-Botanica 2000-2004
 33 
*@copyright     Tela-Botanica 2000-2004
34 
*@version       $Revision: 1.3 $
 34 
*@version       $Revision: 1.4 $
35 
// +------------------------------------------------------------------------------------------------------+
 35 
// +------------------------------------------------------------------------------------------------------+
36 
*/
 36 
*/
Line 37... Line 37...
37 
 
 37 
 
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
39 
// |                                            ENTETE du PROGRAMME                                       |
 39 
// |                                            ENTETE du PROGRAMME                                       |
Line 40... Line -...
40 
// +------------------------------------------------------------------------------------------------------+
 - 
 
41 
 
 40 
// +------------------------------------------------------------------------------------------------------+
42 
 
 41 
 
43 
include_once 'client/annuaire/configuration/ann_config.inc.php' ;
 42 
include_once 'client/annuaire/configuration/ann_config.inc.php' ;
44 
include_once ANN_CHEMIN_LIBRAIRIE.'annuaire.fonct.php' ;
 43 
include_once ANN_CHEMIN_LIBRAIRIE.'annuaire.fonct.php' ;
45 
if (isset($lang)) {
 44 
if (isset($lang)) {
46 
    include_once ANN_CHEMIN_APPLI."/langues/ann_langue_$lang.inc.php" ;
 45 
    include_once ANN_CHEMIN_APPLI."/langues/ann_langue_$lang.inc.php" ;
47 
} else {
 46 
} else {
Line 48... Line -...
48 
    include_once ANN_CHEMIN_APPLI.'/langues/ann_langue_fr.inc.php' ;
 - 
 
49 
}
 - 
 
50 
 
 47 
    include_once ANN_CHEMIN_APPLI.'/langues/ann_langue_fr.inc.php' ;
Line 51... Line -...
51 
 
 - 
 
52 
 
 - 
 
53 
include_once 'HTML/QuickForm.php' ;
 - 
 
54 
 
 48 
}
55 
 
 49 
 
56 
define ("ENVOIE_MAIL", 2) ;
 50 
include_once 'HTML/QuickForm.php' ;
57 
 
 51 
 
58 
/**
 52 
/**
Line 86... Line 80...
86 
        } // Fin de la fonction 'setCheckboxes()'";
 80 
        } // Fin de la fonction 'setCheckboxes()'";
87 
        GEN_stockerCodeScript($java) ;
 81 
        GEN_stockerCodeScript($java) ;
Line 88... Line 82...
88 
 
 82 
 
Line 89... Line -...
89 
        $res .= "<h2 class=\"annuaire_titre2\">".ANN_CLIQUEZ_LETTRE."</h2>\n";
 - 
 
90 
 
 - 
 
91 
        global $baseURL ;
 83 
        $res .= "<h2 class=\"annuaire_titre2\">".ANN_CLIQUEZ_LETTRE."</h2>\n";
92 
        $baseURL = $GLOBALS['ann_url']->getURL() ;
 84 
 
Line 93... Line 85...
93 
            // S'il y a un mail a envoyé, on l'envoie
 85 
            // S'il y a un mail a envoyé, on l'envoie
94 
        if ($action == ENVOIE_MAIL) $res .= envoie_mail () ;
 86 
        if (isset($_POST['select']) && is_array ($_POST['select'])) $res .= envoie_mail () ;
95 
 
 87 
 
96 
        $res .= parcourrirAnnu("") ;
 88 
        $res .= parcourrirAnnu("") ;
Line 107... Line 99...
107 
function putFooter () {
 99 
function putFooter () {
108 
  return '&nbsp;';
 100 
  return '&nbsp;';
109 
}
 101 
}
Line 110... Line 102...
110 
 
 102 
 
111 
 
 103 
 
112 
 
 104 
/*
Line 113... Line 105...
113 
function envoie_mail () {
 105 
function envoie_mail () {
114 
    global $titre, $corps, $HTTP_POST_VARS, $select, $AUTH, $db ;
 106 
    global $titre, $corps, $HTTP_POST_VARS, $select, $AUTH, $db ;
Line 132... Line 124...
132 
    $ligne_exp = $res_exp->fetchRow(DB_FETCHMODE_ASSOC) ;
 124 
    $ligne_exp = $res_exp->fetchRow(DB_FETCHMODE_ASSOC) ;
133 
    $expediteur = $ligne_exp[ANN_CHAMPS_MAIL] ;
 125 
    $expediteur = $ligne_exp[ANN_CHAMPS_MAIL] ;
Line 134... Line 126...
134 
 
 126 
 
135 
    $corps .= ANN_PIED_MESSAGE ;
 127 
    $corps .= ANN_PIED_MESSAGE ;
136 
    $liste = "" ;
 - 
 
137 
    for ($i = 0; $i < count($select); $i++) {
 - 
 
138 
        $requete = "select ".ANN_CHAMPS_MAIL." from ".ANN_ANUAIRE." where ".ANN_CHAMPS_ID."=".$select[$i] ;
 - 
 
139 
        $resultat = $db->query($requete) ;
 128 
    $liste = "" ;
140
129
141 
        if (DB::isError($resultat)) {
 130 
    if (!is_array($select)) {
142 
            die ("Echec de la requete sur annuaire_tela <br>".$resultat->getMessage()) ;
 131 
        $res.= CAR_NO_DESTINATAIRE;
143 
        }
 - 
 
144 
        $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;
 - 
 
145 
 
 - 
 
146 
        // L'envoie du mail proprement dit
 - 
 
147 
        if (!mail($ligne[ANN_CHAMPS_MAIL], stripslashes($titre), stripslashes($corps), "From: $expediteur")) {
 132 
    } else {
148 
            return "<div class=\"annuaire_erreur\">Le mail n'est pas partie</div>\n" ;
 133 
        $res .= "<div class=\"$classe_titre\">".CAR_MESSAGE_ENVOYE."</div>\n" ;
149 
        }
 - 
 
150 
        $liste .= $ligne[ANN_CHAMPS_MAIL]."\n" ;
 134 
        envoie_mail() ;
151 
    }
 - 
 
152 
    $corps .= "\n----------------------------------------------------------------------------
 - 
 
153 
                Ce message a été envoyé à :\n $liste" ;
 - 
 
154 
    mail ("ANN_MAIL_ADMIN", stripslashes($titre), stripslashes($corps), "From: $expediteur");
 135 
    }
155 
}
 136 
}*/
156 
/**------------------------------------------------------------------------------
 137 
/**------------------------------------------------------------------------------
- 
 
 138 
* $Log: not supported by cvs2svn $
- 
 
 139 
* Revision 1.3  2005/01/06 15:44:33  alex
- 
 
 140 
* correction du javascript
157 
* $Log: not supported by cvs2svn $
 141 
*
158 
* Revision 1.2  2005/01/06 15:17:39  alex
 142 
* Revision 1.2  2005/01/06 15:17:39  alex
159 
* ajout de commentaires
 143 
* ajout de commentaires
160 
*
 144 
*
161 
* Revision 1.1.1.1  2005/01/03 17:27:49  alex
 145 
* Revision 1.1.1.1  2005/01/03 17:27:49  alex