Subversion Repositories Applications.papyrus

Rev

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

Rev 243 Rev 245
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.2 2005-01-06 15:17:39 alex Exp $
 22 
// CVS : $Id: annuaire.php,v 1.3 2005-01-06 15:44:33 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.2 $
 34 
*@version       $Revision: 1.3 $
35 
// +------------------------------------------------------------------------------------------------------+
 35 
// +------------------------------------------------------------------------------------------------------+
36 
*/
 36 
*/
Line 37... Line 37...
37 
 
 37 
 
38 
// +------------------------------------------------------------------------------------------------------+
 38 
// +------------------------------------------------------------------------------------------------------+
Line 60... Line 60...
60 
 *
 60 
 *
61 
 * @return  string  HTML
 61 
 * @return  string  HTML
62 
 */
 62 
 */
Line 63... Line 63...
63 
 
 63 
 
64 
function afficherContenuCorps () {
 - 
 
- 
 
 64 
function afficherContenuCorps () {
65 
 
 65 
    $res = "<h1 class=\"annuaire_titre1\">".ANN_TITRE."</h1>\n" ;
66 
    if (!$GLOBALS['AUTH']->getAuth())  {
 66 
    if (!$GLOBALS['AUTH']->getAuth())  {
67 
        $res = AUTH_formulaire_login() ;
 67 
        $res .= AUTH_formulaire_login() ;
68 
    } else {
 68 
    } else {
69 
        // Le code javascript des cases à cocher
 69 
        // Le code javascript des cases à cocher
70 
        $java =
 70 
        $java =
71 
            "function setCheckboxes(the_form)
 71 
            "function setCheckboxes(the_form)
Line 82... Line 82...
82 
            } else {
 82 
            } else {
83 
                elts.checked = do_check;
 83 
                elts.checked = do_check;
84 
            } // Fin if... else
 84 
            } // Fin if... else
85 
            return true;
 85 
            return true;
86 
        } // Fin de la fonction 'setCheckboxes()'";
 86 
        } // Fin de la fonction 'setCheckboxes()'";
87 
        $GLOBALS['javascript'] .= $java ;
 87 
        GEN_stockerCodeScript($java) ;
88 
 
 - 
 
89 
        $res = "<h1 class=\"annuaire_titre1\">".ANN_TITRE."</h1>\n" ;
 - 
 
Line 90... Line 88...
90 
 
 88 
 
Line 91... Line 89...
91 
        $res .= "<h2 class=\"annuaire_titre2\">".ANN_CLIQUEZ_LETTRE."</h2>\n";
 89 
        $res .= "<h2 class=\"annuaire_titre2\">".ANN_CLIQUEZ_LETTRE."</h2>\n";
92 
 
 90 
 
Line 155... Line 153...
155 
                Ce message a été envoyé à :\n $liste" ;
 153 
                Ce message a été envoyé à :\n $liste" ;
156 
    mail ("ANN_MAIL_ADMIN", stripslashes($titre), stripslashes($corps), "From: $expediteur");
 154 
    mail ("ANN_MAIL_ADMIN", stripslashes($titre), stripslashes($corps), "From: $expediteur");
157 
}
 155 
}
158 
/**------------------------------------------------------------------------------
 156 
/**------------------------------------------------------------------------------
159 
* $Log: not supported by cvs2svn $
 157 
* $Log: not supported by cvs2svn $
- 
 
 158 
* Revision 1.2  2005/01/06 15:17:39  alex
- 
 
 159 
* ajout de commentaires
- 
 
 160 
*
160 
* Revision 1.1.1.1  2005/01/03 17:27:49  alex
 161 
* Revision 1.1.1.1  2005/01/03 17:27:49  alex
161 
* Import initial
 162 
* Import initial
162 
*
 163 
*
163 
* Revision 1.1  2005/01/03 17:18:43  alex
 164 
* Revision 1.1  2005/01/03 17:18:43  alex
164 
* retour vers la liste des participants après un ajout.
 165 
* retour vers la liste des participants après un ajout.