source: trunk/spip/esqueleto-redcta/plugins/zabomailmans/exec/abomailmans_tous.php @ 397

Last change on this file since 397 was 76, checked in by sebas, 16 years ago

plugin de abonomailman para enviar boletin electronico
basado sobre los cambios de sebas para arreglar los envios.

  • Property svn:executable set to *
File size: 1.4 KB
RevLine 
[76]1<?php
2
3/*
4 * Abomailmans
5 * MaZiaR - NetAktiv
6 * tech@netaktiv.com
7 * Printemps 2007
8*/
9
10
11include_spip('inc/abomailmans');
12
13
14function exec_abomailmans_tous(){
15        include_spip("inc/presentation");
16       
17        _abomailmans_install();
18       
19       
20        debut_page(_T("abomailmans:les_listes_mailmans"), "documents", "abomailmans");
21        debut_gauche();
22        debut_boite_info();
23        echo _T("abomailmans:les_listes_mailmans");
24        fin_boite_info();
25       
26        echo "<br/>";
27        $result = spip_query("SELECT id_abomailman FROM spip_abomailmans");
28        if (spip_num_rows($result)) {
29                debut_boite_info();
30                        icone_horizontale (_T("abomailmans:icone_envoyer_mail_liste"), generer_url_ecrire("abomailmans_envoyer",""), "../"._DIR_PLUGIN_ABOMAILMANS."/img_pack/configure_mail.png", "");
31                fin_boite_info();
32        }
33        debut_droite();
34       
35        abomailmans_afficher_abomailmans(_T("abomailmans:les_listes_mailmans"),
36                array(
37                "SELECT"=>"abomailmans.*",
38                "FROM" => "spip_abomailmans AS abomailmans",
39                "JOIN" => "",
40                "WHERE" => "",
41                "GROUP BY" => "abomailmans.id_abomailman",
42                "ORDER BY" => "titre"));
43       
44        echo "<br />\n";
45       
46        if (abomailmans_abomailman_editable()) {
47                echo "<div align='right'>";
48                $link=generer_url_ecrire('abomailmans_edit', 'new=oui');
49                $link=parametre_url($link,'retour',str_replace('&amp;', '&', self()));
50                icone(_T("abomailmans:icone_ajouter_liste"), $link, "../"._DIR_PLUGIN_ABOMAILMANS. "/img_pack/mailman.gif", "creer.gif");
51                echo "</div>";
52        }
53       
54       
55       
56        fin_page();
57}
58
59?>
Note: See TracBrowser for help on using the repository browser.