source: trunk/spip/esqueleto-redcta/plugins/spip-listes_1_9_2/exec/courrier_edit.php @ 358

Last change on this file since 358 was 90, checked in by guille, 15 years ago

importacion de spip-listes-1_9_2
File size: 9.5 KB
Line 
1<?php
2
3/******************************************************************************************/
4/* SPIP-listes est un systï¿œe de gestion de listes d'information par email pour SPIP      */
5/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
6/*                                                                                        */
7/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
8/* de la Licence Publique Gￜￜale GNU publiï¿œ par la Free Software Foundation            */
9/* (version 2).                                                                           */
10/*                                                                                        */
11/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
12/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
13/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gￜￜale GNU  */
14/* pour plus de dï¿œails.                                                                  */
15/*                                                                                        */
16/* Vous devez avoir reï¿œ une copie de la Licence Publique Gￜￜale GNU                    */
17/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
18/* Free Software Foundation,                                                              */
19/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
20/******************************************************************************************/
21
22
23if (!defined("_ECRIRE_INC_VERSION")) return;
24
25include_spip('inc/presentation');
26include_spip('inc/barre');
27include_spip('inc/affichage');
28include_spip('base/spip-listes');
29include_spip('public/assembler');
30
31function exec_courrier_edit(){
32
33        global $connect_statut;
34        global $connect_toutes_rubriques;
35        global $connect_id_auteur;
36        $type = _request('type');
37        $id_message = _request('id_message');
38
39        $nomsite=lire_meta("nom_site"); 
40        $urlsite=lire_meta("adresse_site"); 
41
42        if (_request('new') == "oui") { 
43                $statut = 'redac'; 
44                $type = 'nl'; 
45                $result = spip_query("INSERT INTO spip_courriers (titre, date, statut, type, id_auteur) VALUES ("._q(_T('texte_nouveau_message')).", NOW(),"._q($statut).","._q($type).","._q($connect_id_auteur).")"); 
46                $id_message = spip_insert_id(); 
47        }
48
49        // Admin SPIP-Listes
50        echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes");
51
52        if ($connect_statut != "0minirezo" ) {
53                echo "<p><b>"._T('spiplistes:acces_a_la_page')."</b></p>";
54                echo fin_page();
55                exit;
56        }
57
58        if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) {
59                $statut_auteur=$statut;
60                spip_listes_onglets("messagerie", _T('spiplistes:spip_listes'));
61        }
62
63        debut_gauche();
64        spip_listes_raccourcis();
65        creer_colonne_droite();
66
67        debut_droite("messagerie");
68
69        // MODE EDIT: Redaction d'un courrier ------------------------------------------
70
71        $result = spip_query("SELECT * FROM spip_courriers WHERE id_courrier="._q($id_message));
72        if ($row = spip_fetch_array($result)) {
73                $id_message = $row['id_courrier'];
74                $date_heure = $row["date"];
75                $titre = entites_html($row["titre"]);
76                $texte = entites_html($row["texte"]);
77                $type = $row["type"];
78                $statut = $row["statut"];
79                $expediteur = $row["id_auteur"];
80                if (!($expediteur == $connect_id_auteur OR ($type == 'nl' AND $connect_statut == '0minirezo'))) 
81                        die();
82        }
83
84        if ($type == 'nl') $le_type = _T('spiplistes:email_collec');
85
86        echo "<p><span style='font-family:Verdana,Arial,Sans,sans-serif;color:green;font-size:120%'><b>$le_type</b></span></p>";
87        echo "<p style='margin-bottom:10px;font-family:Verdana,Arial,Sans,sans-serif;color:red;'>"._T('spiplistes:alerte_edit')."</p><br /><br />";
88
89        echo debut_cadre_relief(_DIR_PLUGIN_SPIPLISTES.'img_pack/stock_insert-slide.gif');
90
91        //Charger un patron ?   
92
93        // inclusion du script de gestion des layers de SPIP
94        if($texte ==''){
95                // Titre du bloc
96                echo bouton_block_visible(md5(_T('spiplistes:charger_patron')));
97                echo "<a href=\"javascript:swap_couche('$compteur_block', '$spip_lang_rtl');\">"._T('spiplistes:charger_patron')."</a>";       
98                // Bloc invisible
99                echo debut_block_visible(md5(_T('spiplistes:charger_patron')));                 
100        }
101        else {
102                // Titre du bloc
103                echo bouton_block_invisible(md5(_T('spiplistes:charger_patron')));
104                echo "<a href=\"javascript:swap_couche('$compteur_block', '$spip_lang_rtl');\">"._T('spiplistes:charger_patron')."</a>";       
105                // Bloc invisible
106                echo debut_block_invisible(md5(_T('spiplistes:charger_patron')));                       
107        }
108
109        echo "<form action='".generer_url_ecrire("import_patron","id_message=$id_message")."' METHOD='post'>"; 
110        $liste_patrons = find_all_in_path("patrons/","[.]html$");
111        foreach($liste_patrons as $key => $val) {
112        if(ereg("_texte",$val)) unset ($liste_patrons[$key]) ;
113        }
114
115        echo "<select style='float:left;width:150px' name='patron' size='".(count($liste_patrons)+2)."'>";
116        $i=0;
117        foreach($liste_patrons as $titre_option) {
118                $titre_option = basename($titre_option,".html");               
119                $selected = "";
120                if($i == 0) $selected = "'selected=selected'";
121                echo "<option $selected value='".$titre_option."'>".$titre_option."</option>\n";
122        $i++;
123        }
124        echo "</select>";
125       
126        echo "<link rel='stylesheet' href='".url_absolue(find_in_path('img_pack/date_picker.css'))."' type='text/css' media='all' />";
127        echo '<script src="'.url_absolue(find_in_path('javascript/datepicker.js')).'" type="text/javascript"></script>';
128        echo '<script src="'.url_absolue(find_in_path('javascript/jquery-dom.js')).'" type="text/javascript"></script>';
129
130        echo "\n\n<script type=\"text/javascript\"><!-- \n$(document).ready(function(){ \n $.datePicker.setDateFormat('yyyy-mm-dd');\n"
131          . unicode2charset(charset2unicode(recuperer_fond('formulaires/date_picker_init'),'html'))
132          . " \n $('input.date-picker').datePicker({startDate:'01/01/1900'});\n }); \n //--></script> ";
133
134  echo "<input type='hidden' name='inclure_patron' value=\"oui\" />";
135        echo "<input type='hidden' name='id_message' value=\"$id_message\" />";
136        echo "<input type='hidden' name='nomsite' value=\"$nomsite\" />";
137
138        $auj = date('Y-m-d');
139        echo "<div style='margin-left:200px;height:200px'>";
140        echo "<p>"._T('spiplistes:date_ref')."</p><p><input type=\"text\" class=\"date-picker\" name=\"date\" style=\"text-align:center;width:8em\" value=\"$auj\" /></p>";
141        echo "<br />";
142        echo "<p>"._T('spiplistes:alerte_modif')."</p><p><input type='submit' name='Valider' value='"._T('spiplistes:charger_le_patron')."' class='fondo' /></p>";
143        echo "</div>";
144        echo "</form>";
145        echo "<br style='clear:both' />";
146
147        // Fin du bloc
148        echo fin_block();
149
150        echo fin_cadre_relief();
151
152        echo "<br />";
153
154        echo "<form id='choppe_patron-1' action='".generer_url_ecrire("gerer_courrier","id_message=$id_message")."' method='post' name='choppe_patron-1'>";
155        echo "<input type='hidden' name='modifier_message' value=\"oui\" />";
156        echo "<input type='hidden' name='id_message' value=\"$id_message\" />";
157        if(!intval($id_message))
158                echo "<input type='hidden' name='new' value=\"oui\" />";
159
160        echo _T('spiplistes:sujet_courrier');
161
162        echo "<input type='text' class='formo' name='titre' value=\"$titre\" size='40' />";
163        echo "<br />";
164        echo "<br />";
165        echo _T('spiplistes:texte_courrier');
166        echo aide ("raccourcis");
167        echo "<br />";
168        echo afficher_barre('document.formulaire.texte');
169        echo "<textarea id='text_area' name='texte' ".$GLOBALS['browser_caret']." class='formo' rows='20' cols='40' wrap=soft>";
170        echo $texte;
171        echo "</textarea>\n";
172
173        echo "<p align='right'><input type='submit' name='Valider' value='"._T('bouton_valider')."' class='fondo' />";
174        echo "</form>";
175
176        // MODE EDIT FIN ---------------------------------------------------------------
177
178        echo "<p style='font-family: Arial, Verdana,sans-serif;font-size:10px;font-weight:bold'>".$GLOBALS['spiplistes_version']."</p>" ;
179        echo fin_gauche(), fin_page();
180
181}
182/******************************************************************************************/
183/* SPIP-listes est un systï¿œe de gestion de listes d'abonnï¿œ et d'envoi d'information     */
184/* par email  pour SPIP.                                                                  */
185/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net , http://bloog.net            */
186/*                                                                                        */
187/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
188/* de la Licence Publique Gￜￜale GNU publiï¿œ par la Free Software Foundation            */
189/* (version 2).                                                                           */
190/*                                                                                        */
191/* Ce programme est distribuï¿œcar potentiellement utile, mais SANS AUCUNE GARANTIE,       */
192/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
193/* d'adaptation dans un but spï¿œifique. Reportez-vous ï¿œla Licence Publique Gￜￜale GNU  */
194/* pour plus de dï¿œails.                                                                  */
195/*                                                                                        */
196/* Vous devez avoir reï¿œ une copie de la Licence Publique Gￜￜale GNU                    */
197/* en mï¿œe temps que ce programme ; si ce n'est pas le cas, ï¿œrivez ï¿œla                  */
198/* Free Software Foundation,                                                              */
199/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, ï¿œats-Unis.                   */
200/******************************************************************************************/
201?>
Note: See TracBrowser for help on using the repository browser.