laposte.net , http://bloog.net */ /* */ /* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */ /* de la Licence Publique Générale GNU publiée par la Free Software Foundation */ /* (version 2). */ /* */ /* Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE, */ /* ni explicite ni implicite, y compris les garanties de commercialisation ou */ /* d'adaptation dans un but spécifique. Reportez-vous à la Licence Publique Générale GNU */ /* pour plus de détails. */ /* */ /* Vous devez avoir reçu une copie de la Licence Publique Générale GNU */ /* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la */ /* Free Software Foundation, */ /* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis. */ /******************************************************************************************/ if (!defined("_ECRIRE_INC_VERSION")) return; include_spip('inc/presentation'); include_spip('inc/barre'); include_spip('inc/affichage'); include_spip('base/spip-listes'); function exec_liste_edit(){ global $connect_statut; global $connect_toutes_rubriques; global $connect_id_auteur; $new = _request('new'); $id_liste = _request('id_liste'); $titre = _request('titre'); $texte = _request('texte'); $nomsite=lire_meta("nom_site"); $urlsite=lire_meta("adresse_site"); // Admin SPIP-Listes echo debut_page(_T('spiplistes:spip_listes'), "redacteurs", "spiplistes"); if (!autoriser('modifier','liste',$id_liste)) { echo "

"._T('spiplistes:acces_a_la_page')."

"; echo fin_page(); exit; } if (($connect_statut == "0minirezo") OR ($connect_id_auteur == $id_auteur)) { $statut_auteur=$statut; spip_listes_onglets("messagerie", _T('spiplistes:spip_listes')); } debut_gauche(); spip_listes_raccourcis(); creer_colonne_droite(); debut_droite("messagerie"); // MODE CREER_LISTE: ajout liste------------------------------------------------ $articles_descriptif = lire_meta("articles_descriptif"); $articles_redac = lire_meta("articles_redac"); $articles_mots = lire_meta("articles_mots"); $articles_modif = lire_meta("articles_modif"); // securite $id_liste = intval($id_liste); $lier_trad = intval($lier_trad); unset ($flag_editable); // // Creation de l'objet article // if ($id_liste) { // Recuperer les donnees de l'article $result = spip_query("SELECT * FROM spip_listes WHERE id_liste="._q($id_liste)); if ($row = spip_fetch_array($result)) { $titre = $row["titre"]; $lang = $row["lang"]; $pied_page = $row["pied_page"]; $texte = $row["texte"]; $date = $row["date"]; $statut = $row['statut']; $result_auteur = spip_query("SELECT * FROM spip_auteurs_listes WHERE id_liste="._q($id_liste)." AND id_auteur="._q($connect_id_auteur)); $flag_auteur = (spip_num_rows($result_auteur) > 0); $flag_editable = autoriser('modifier','liste',$id_liste); } } elseif ($new=='oui') { // titre par defaut $titre = filtrer_entites(_T('spiplistes:Nouvelle_liste_de_diffusion')); $onfocus = " onfocus=\"if(!antifocus){this.value='';antifocus=true;}\""; $flag_editable = true; } if ($id_liste && $id_document) { $result_doc = spip_query("SELECT * FROM spip_documents_articles WHERE id_document="._q($id_document)." AND id_liste"._q($id_liste)); $flag_document_editable = (spip_num_rows($result_doc) > 0); } else { $flag_document_editable = false; } // a quoi ca sert ca ? $modif_document = $GLOBALS['modif_document']; if ($modif_document == 'oui' AND $flag_document_editable) { $titre_document = corriger_caracteres($titre_document); $descriptif_document = corriger_caracteres($descriptif_document); $query = "UPDATE spip_documents SET titre="._q($titre_document).", descriptif="._q($descriptif_document); if ($largeur_document AND $hauteur_document) $query .= ", largeur="._q($largeur_document).', hauteur='._q($hauteur_document); $query .= " WHERE id_document="._q($id_document); spip_query($query); } echo debut_cadre_formulaire(); echo "\n"; echo ""; echo ""; echo "\n"; echo "
"; if ($lier_trad) icone(_T('icone_retour'), generer_url_ecrire("listes","id_liste=$lier_trad"), "article-24.gif", "rien.gif"); else icone(_T('icone_retour'), generer_url_ecrire("listes","id_liste=$id_liste"), "article-24.gif", "rien.gif"); echo ""; echo _T('spiplistes:modifier_liste'); gros_titre($titre); echo "
"; echo "

"; echo "

"; $titre = entites_html($titre); $descriptif = entites_html($descriptif); $texte = entites_html($texte); $lien = generer_url_ecrire('listes'); if ($id_liste) $lien .= "&id_liste=$id_liste"; echo "

\n"; if ($id_liste) echo ""; else if ($new == 'oui') echo ""; if ($lier_trad) { echo ""; echo ""; } echo _T('texte_titre_obligatoire'); echo "

"; if ($new != 'oui') echo ""; if ($spip_ecran == "large") $rows = 28; else $rows = 20; echo ""._T('spiplistes:txt_inscription').""; echo "
"._T('spiplistes:txt_abonnement'); //echo "
"; echo afficher_barre('document.formulaire.texte'); echo "\n"; $pied = $pied_page ; if($pied =='') { include_spip('public/assembler'); $contexte_pied = array('lang'=>$lang); $pied = recuperer_fond('modeles/piedmail', $contexte_pied); } echo _T('spiplistes:texte_pied'); //echo aide ("artdesc"); //echo "
"._T('texte_contenu_article')."
"; echo _T('spiplistes:texte_contenu_pied'); echo ""; echo "

"; echo ($pied_page!='')? $pied_page : $pied ; echo "
"; if ($date) echo "

"; if ($new == "oui") echo "

"; echo "

"; echo ""; echo "
"; echo fin_cadre_formulaire(); // MODE CREER LISTE FIN -------------------------------------------------------- echo "

".$GLOBALS['spiplistes_version']."

" ; echo fin_gauche(), fin_page(); } /******************************************************************************************/ /* SPIP-listes est un système de gestion de listes d'abonnés et d'envoi d'information */ /* par email pour SPIP. */ /* Copyright (C) 2004 Vincent CARON v.caronlaposte.net , http://bloog.net */ /* */ /* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */ /* de la Licence Publique Générale GNU publiée par la Free Software Foundation */ /* (version 2). */ /* */ /* Ce programme est distribué car potentiellement utile, mais SANS AUCUNE GARANTIE, */ /* ni explicite ni implicite, y compris les garanties de commercialisation ou */ /* d'adaptation dans un but spécifique. Reportez-vous à la Licence Publique Générale GNU */ /* pour plus de détails. */ /* */ /* Vous devez avoir reçu une copie de la Licence Publique Générale GNU */ /* en même temps que ce programme ; si ce n'est pas le cas, écrivez à la */ /* Free Software Foundation, */ /* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, États-Unis. */ /******************************************************************************************/ ?>