function exec_spiplistes_maintenance () {
include_spip('inc/distant');
include_spip('inc/meta');
include_spip('inc/config');
include_spip('inc/spiplistes_api');
include_spip('inc/spiplistes_api_presentation');
global $connect_statut
, $connect_toutes_rubriques
, $connect_id_auteur
, $couleur_foncee
, $spip_lang_right
;
// la globale de connect_id_auteur est string
// c'est un entier qu'il faut envoyer a autoriser()
$connect_id_auteur = intval($GLOBALS['connect_id_auteur']);
// initialise les variables postees par le formulaire
foreach(array_merge(
array(
'btn_supprimer_courriers', 'btn_reset_listes', 'btn_supprimer_listes'
, 'btn_modifier_formats', 'confirmer_modifier_formats'
, 'btn_supprimer_formats', 'confirmer_supprimer_formats'
, 'btn_nettoyer_abos', 'confirmer_nettoyer_abos'
)) as $key) {
$$key = _request($key);
}
// la maintenance spiplistes est reservee a l'admin principal
$flag_autorise = autoriser('webmestre','','',$connect_id_auteur);
$tous_les_statuts_courriers = array(_SPIPLISTES_COURRIER_STATUT_REDAC, _SPIPLISTES_COURRIER_STATUT_READY
, _SPIPLISTES_COURRIER_STATUT_ENCOURS
, _SPIPLISTES_COURRIER_STATUT_AUTO, _SPIPLISTES_COURRIER_STATUT_PUBLIE
, _SPIPLISTES_COURRIER_STATUT_VIDE, _SPIPLISTES_COURRIER_STATUT_IGNORE
, _SPIPLISTES_COURRIER_STATUT_STOPE, _SPIPLISTES_COURRIER_STATUT_ERREUR
);
$msg_maintenance = array();
$sql_formats_where = spiplistes_formats_autorises('sql_where');
/////////////////
// Faire ce qui est demande par le formulaire
if($flag_autorise) {
$msg_ok = "<span style='color:green;'>"._T('pass_ok');
$msg_bad = "<span style='font-weight:bold;color:red;'>"._T('pass_erreur');
$msg_end = "</span>\n";
// les courriers
if($btn_supprimer_courriers) {
foreach($tous_les_statuts_courriers as $statut) {
if(_request("supprimer_courriers_$statut")) {
if($statut == _SPIPLISTES_COURRIER_STATUT_ENCOURS) {
// supprime d'abord de la queue d'envoi
spiplistes_courrier_supprimer_queue_envois('statut', $statut);
spiplistes_log("RESET spool ID_COURRIER #$id_courrier by ID_AUTEUR #$connect_id_auteur");
}
// supprime le courrier
$msg =
(
spiplistes_courrier_supprimer('statut', $statut)
)
? $msg_ok
: $msg_bad
;
$msg_maintenance[] = _T('spiplistes:Suppression_de__s',
array('s' => spiplistes_items_get_item('tab_t', $statut)."... : ".$msg.$msg_end)
);
spiplistes_log("DELETE courrier ID_COURRIER #$id_courrier by ID_AUTEUR #$connect_id_auteur");
}
}
}
// les listes en chronos a repasser en non-chrono
// en realite', conserve le statut mais supprime la date d'envoi
// ainsi, la trieuse ne preparera pas le courrier
if($btn_reset_listes) {
foreach(spiplistes_listes_select("id_liste", "message_auto='oui'") as $row) {
$id_liste = intval($row['id_liste']);
$sql_table = "spip_listes";
$sql_champs = array('message_auto' => 'non', 'date' => '');
$sql_where = "id_liste=$id_liste";
if(_request("reset_liste_$id_liste")) {
$msg =
(
// reset liste
sql_updateq($sql_table, $sql_champs, $sql_where)
)
? $msg_ok
: $msg_bad
;
$msg_maintenance[] = _T('spiplistes:annulation_chrono_')." : ID_LISTE #$id_liste : ".$msg.$msg_end;
spiplistes_log("RESET liste ID_LISTE #$id_liste by ID_AUTEUR #$connect_id_auteur");
}
}
}
// les listes (global)
if($btn_supprimer_listes) {
foreach(spiplistes_listes_select("id_liste,titre") as $row) {
$titre = $row['titre'];
$id_liste = intval($row['id_liste']);
if(_request("supprimer_liste_$id_liste")) {
$sql_where = "id_liste=".sql_quote($id_liste);
$msg =
spiplistes_listes_liste_supprimer($id_liste)
? $msg_ok
: $msg_bad
;
$msg_maintenance[] = _T('spiplistes:Suppression_de')." : ".$titre."... : ".$msg.$msg_end;
spiplistes_log("DELETE liste ID_LISTE #$id_liste by ID_AUTEUR #$connect_id_auteur");
}
}
}
// les formats
if($btn_modifier_formats || $btn_supprimer_formats) {
$objet = array('objet' => _T('spiplistes:des_formats'));
if($confirmer_modifier_formats && ($format = spiplistes_format_valide(_request('sl-le-format')))) {
$msg =
(
spiplistes_format_abo_modifier('tous', $format)
)
? $msg_ok
: $msg_bad
;
$msg_maintenance[] = _T('spiplistes:modification_objet', $objet)." : ".$msg.$msg_end;
spiplistes_log("UPDATE ALL format $format by ID_AUTEUR #$connect_id_auteur");
}
if($confirmer_supprimer_formats) {
$msg =
(
// vider la table des formats connus de spiplistes
sql_delete("spip_auteurs_elargis", $sql_formats_where)
)
? $msg_ok
: $msg_bad
;
$msg_maintenance[] = _T('spiplistes:suppression_', $objet)." : ".$msg.$msg_end;
spiplistes_log("DELETE formats "._SPIPLISTES_FORMATS_ALLOWED." by ID_AUTEUR #$connect_id_auteur");
}
}
// les abonnements
if($btn_nettoyer_abos && $confirmer_nettoyer_abos) {
if($ii = spiplistes_abonnements_zombies()) {
sort($ii);
$ii = array_unique($ii);
$msg =
(spiplistes_abonnements_auteur_desabonner($ii))
? $msg_ok
: $msg_bad
;
$objet = array('objet' => _T('spiplistes:des_abonnements'));
$msg_maintenance[] = _T('spiplistes:nettoyage_', $objet)." : ".$msg.$msg_end;
}
}
// compter les listes
$nb_listes = spiplistes_listes_compter();
$nb_listes_desc = spiplistes_nb_listes_str_get ($nb_listes);
$listes_array = spiplistes_listes_select("id_liste,statut,titre,message_auto");
// listes auto (crhono) compte'es a part
$nb_listes_auto = 0;
foreach($listes_array as $row) {
if($row['message_auto']=='oui') {
$nb_listes_auto++;
}
}
// compter les formats (les abonnes ayant de'fini un format)
$nb_abonnes_formats = sql_fetsel("COUNT(id_auteur) as n", "spip_auteurs_elargis", $sql_formats_where);
$nb_abonnes_formats = $nb_abonnes_formats['n'];
$nb_abonnes_formats_desc =
($nb_abonnes_formats==1)
? _T('spiplistes:1_abonne')
: "$nb_abonnes_formats "._T('spiplistes:abonnes')
;
$maintenance_url_action = generer_url_ecrire(_SPIPLISTES_EXEC_MAINTENANCE);
}
////////////////////////////////////
// PAGE CONTENU
////////////////////////////////////
$titre_page = _T('titre_admin_tech');
// Permet entre autres d'ajouter les classes a' la page : <body class='$rubrique $sous_rubrique'>
$rubrique = _SPIPLISTES_PREFIX;
$sous_rubrique = "maintenance";
$commencer_page = charger_fonction('commencer_page', 'inc');
echo($commencer_page(_T('spiplistes:spiplistes') . " - " . trim($titre_page), $rubrique, $sous_rubrique));
if(!$flag_autorise) {
die (spiplistes_terminer_page_non_autorisee() . fin_page());
}
$page_result = ""
. "<br /><br /><br />\n"
. spiplistes_gros_titre($titre_page, '', true)
. barre_onglets($rubrique, $sous_rubrique)
. debut_gauche($rubrique, true)
. spiplistes_boite_meta_info(_SPIPLISTES_PREFIX)
. pipeline('affiche_gauche', array('args'=>array('exec'=>$sous_rubrique),'data'=>''))
//. creer_colonne_droite($rubrique, true) // spiplistes_boite_raccourcis() s'en occupe
. spiplistes_boite_raccourcis(true)
. spiplistes_boite_autocron()
. spiplistes_boite_info_spiplistes(true)
. pipeline('affiche_droite', array('args'=>array('exec'=>$sous_rubrique),'data'=>''))
. debut_droite($rubrique, true)
;
if(count($msg_maintenance)) {
$page_result .= "<ul style='padding-left:2ex;margin-bottom:2em;'>";
foreach($msg_maintenance as $texte) {
$page_result .= "<li>$texte</li>\n";
}
$page_result .= "</ul>\n";
}
//////////////////////////////////////////////////////
// Boite de maintenance du casier a courriers
$objet = array('objet' => _T('spiplistes:des_courriers'));
$page_result .= ""
. debut_cadre_trait_couleur("administration-24.gif", true, "", _T('spiplistes:maintenance_objet', $objet))
. spiplistes_form_debut ($maintenance_url_action, true)
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
;
if(spiplistes_courriers_statut_compter()) {
$page_result .= spiplistes_form_fieldset_debut(_T('spiplistes:suppression_', $objet), true);
foreach($tous_les_statuts_courriers as $statut) {
if(spiplistes_courriers_statut_compter($statut)) {
$titre = spiplistes_items_get_item('tab_t', $statut);
$page_result .= spiplistes_form_input_checkbox ('supprimer_courriers_'.$statut, $statut, $titre, false, true);
}
}
$page_result .= spiplistes_form_fieldset_fin(true);
}
else {
$page_result .= spiplistes_form_message(_T('spiplistes:Casier_vide'), true);
}
$page_result .= ""
. spiplistes_form_bouton_valider ('btn_supprimer_courriers')
. spiplistes_form_fin(true)
. fin_cadre_trait_couleur(true)
;
/////////////////////////////////////////
// boite de maintenance des listes : la date des listes sont remises a zero (supprimer les chronos)
$objet = array('objet' => _T('spiplistes:des_listes'));
$page_result .= ""
. debut_cadre_trait_couleur("administration-24.gif", true, "", _T('spiplistes:maintenance_objet', $objet))
. debut_cadre_relief("", true, "", _T('spiplistes:Supprimer_les_chronos'))
;
if($nb_listes_auto) {
$page_result .= ""
. spiplistes_form_debut ($maintenance_url_action, true)
. "<p class='verdana2'>"._T('spiplistes:suppression_chronos_desc')."</p>\n"
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
. spiplistes_form_fieldset_debut (
_T('spiplistes:suppression_chronos_', $objet).spiplistes_fieldset_legend_detail(_T('spiplistes:total').": $nb_listes_auto / $nb_listes_desc", true)
, true)
;
foreach($listes_array as $row) {
if($row['message_auto']=='oui') {
$titre = $row['titre'];
$statut = "";
$id_liste = intval($row['id_liste']);
$page_result .= spiplistes_form_input_checkbox ('reset_liste_'.$id_liste, $id_liste, $statut.$titre, false, true);
}
}
$page_result .= ""
. spiplistes_form_fieldset_fin(true)
. spiplistes_form_bouton_valider('btn_reset_listes')
. spiplistes_form_fin(true)
;
}
else {
$page_result .= spiplistes_form_message(_T('spiplistes:pas_de_liste_en_auto'), true);
}
$page_result .= ""
. fin_cadre_relief(true)
;
/////////////////////////////////////////
// supprimer les listes
$page_result .= ""
. debut_cadre_relief("", true, "", _T('spiplistes:Supprimer_les_listes'))
;
if($nb_listes) {
$page_result .= ""
. spiplistes_form_debut ($maintenance_url_action, true)
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
. spiplistes_form_fieldset_debut (
_T('spiplistes:suppression_', $objet).spiplistes_fieldset_legend_detail(_T('spiplistes:total').": $nb_listes_desc", true)
, true)
;
foreach($listes_array as $row) {
$id_liste = intval($row['id_liste']);
$titre = $row['titre'];
$statut = "<img src='".spiplistes_items_get_item("puce", $row['statut'])."' alt='".spiplistes_items_get_item("alt", $row['statut'])."' width='9' height='9' style='margin: 0 0.25ex' />";
$page_result .= spiplistes_form_input_checkbox ('supprimer_liste_'.$id_liste, $id_liste, $statut.$titre, false, true);
}
$page_result .= ""
. spiplistes_form_fieldset_fin(true)
. spiplistes_form_bouton_valider ('btn_supprimer_listes')
. spiplistes_form_fin(true)
;
}
else {
$page_result .= spiplistes_form_message(_T('spiplistes:pas_de_liste'), true);
}
$page_result .= ""
. fin_cadre_relief(true)
. fin_cadre_trait_couleur(true)
;
//////////////////////////////////////////////////////
// Boite maintenance des formats
$objet = array('objet' => _T('spiplistes:des_formats'));
$page_result .= ""
. debut_cadre_trait_couleur("administration-24.gif", true, "", _T('spiplistes:maintenance_objet', $objet))
;
if($nb_abonnes_formats > 0) {
$page_result .= ""
// forcer les formats de reception
. spiplistes_form_debut ($maintenance_url_action, true)
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
. spiplistes_form_fieldset_debut (
_T('spiplistes:forcer_formats_', $objet)
. spiplistes_fieldset_legend_detail(_T('spiplistes:total').": $nb_abonnes_formats_desc", true)
, true)
. spiplistes_form_input_checkbox ('confirmer_modifier_formats', 'oui'
, _T('spiplistes:forcer_formats_desc'), false, true)
. "<div id='sl-modif-fmt'>\n"
. spiplistes_form_input_radio ($name = "sl-le-format", "html", _T('spiplistes:html'), true, true)
. spiplistes_form_input_radio ($name, "texte", _T('spiplistes:texte'), false, true)
. spiplistes_form_input_radio ($name, "non", _T('spiplistes:aucun'), false, true)
. "</div>\n"
. spiplistes_form_fieldset_fin(true)
. spiplistes_form_bouton_valider('btn_modifier_formats')
. spiplistes_form_fin(true)
. "<hr />\n"
// supprimer les formats
. spiplistes_form_debut ($maintenance_url_action, true)
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
. spiplistes_form_fieldset_debut (
_T('spiplistes:suppression_', $objet)
. spiplistes_fieldset_legend_detail(_T('spiplistes:total').": $nb_abonnes_formats_desc", true)
, true)
. spiplistes_form_input_checkbox ('confirmer_supprimer_formats', 'oui', _T('spiplistes:confirmer_supprimer_formats'), false, true)
. spiplistes_form_fieldset_fin(true)
. spiplistes_form_bouton_valider('btn_supprimer_formats')
. spiplistes_form_fin(true)
;
} else {
$page_result .= spiplistes_form_message(_T('spiplistes:pas_de_format'), true);
}
$page_result .= ""
. fin_cadre_trait_couleur(true)
;
//////////////////////////////////////////////////////
// Boite maintenance des abonnements
$objet = array('objet' => _T('spiplistes:des_abonnements'));
$page_result .= ""
. debut_cadre_trait_couleur('administration-24.gif', true, '', _T('spiplistes:maintenance_objet', $objet))
;
$ii = spiplistes_abonnements_zombies();
if(($nb_abos = count($ii)) > 0) {
$nb_auteurs = $ii;
sort($nb_auteurs);
$nb_auteurs = count(array_unique($nb_auteurs));
$nb_abos = spiplistes_str_abonnes($nb_abos);
$nb_auteurs = spiplistes_str_auteurs($nb_auteurs);
$page_result .= ""
. spiplistes_form_debut ($maintenance_url_action, true)
. spiplistes_form_description(_T('spiplistes:conseil_sauvegarder_avant', $objet), true)
. spiplistes_form_fieldset_debut(
_T('spiplistes:nettoyage_', $objet)
. spiplistes_fieldset_legend_detail(_T('spiplistes:total').": $nb_abos, $nb_auteurs", true)
, true)
. spiplistes_form_input_checkbox ('confirmer_nettoyer_abos', 'oui'
, _T('spiplistes:confirmer_nettoyer_abos'), false, true)
. spiplistes_form_fieldset_fin(true)
. spiplistes_form_bouton_valider('btn_nettoyer_abos')
. spiplistes_form_fin(true)
;
} else {
$page_result .= spiplistes_form_message(_T('spiplistes:pas_de_pb_abonnements'), true);
}
$page_result .= ""
. fin_cadre_trait_couleur(true)
;
// Fin de la page
echo($page_result);
echo pipeline('affiche_milieu',array('args'=>array('exec'=>$sous_rubrique),'data'=>''))
, spiplistes_html_signature(_SPIPLISTES_PREFIX)
, fin_gauche(), fin_page();
} // exec_spiplistes_maintenance()
function spiplistes_auteur_abonnement_details ($id_auteur, $auteur_statut, $email) {
include_spip("inc/spiplistes_api");
include_spip("inc/spiplistes_api_presentation");
global $connect_statut
, $connect_toutes_rubriques
, $connect_id_auteur
;
$result = "";
$flag_editable = (
(($connect_statut == '0minirezo') && $connect_toutes_rubriques)
|| ($connect_id_auteur == $id_auteur)
);
if($flag_editable) {
// recupere la liste des abonnements disponibles
$sql_where = spiplistes_listes_sql_where_or(_SPIPLISTES_LISTES_STATUTS_PERIODIQUES)
. " OR statut=".sql_quote(_SPIPLISTES_LIST_PUBLIC);
// les auteurs ont droit aux listes privees (internes)
if(($auteur_statut == '1comite') || ($auteur_statut == '0minirezo')) {
$sql_where .= " OR statut=".sql_quote(_SPIPLISTES_LIST_PRIVATE);
}
$sql_result = sql_select(
array('id_liste','titre','texte','date','statut')
, "spip_listes"
, $sql_where
, ''
, array("titre ASC")
);
$nb_listes_dispo = sql_count($sql_result);
//spiplistes_log(gettype($nb_listes_dispo).":".$nb_listes_dispo);
// si liste disponible, affiche formulaire
if($sql_result && $nb_listes_dispo) {
// recupere la liste des listes
$listes = array();
while($row = sql_fetch($sql_result)) {
$texte = propre($row['texte']);
if(strlen($legend = textebrut($texte)) > 40) {
$texte = couper($texte, 40);
}
$texte = strip_tags($texte, '<strong>');
$listes[] = array(
'id_liste' => intval($row['id_liste'])
, 'titre' => $row['titre']
, 'texte' => $texte
, 'date' => $row['date']
, 'statut' => $row['statut']
, 'legend' => $legend
);
} // end while
// si retour de formulaire, ajoute/retire les abonnements
if(_request('btn_abonnements_valider')) {
$abos_set = _request('abos_set');
$abo_ajoute = array();
// liste des abonnements de id_auteur
$auteur_abos_current_list = spiplistes_abonnements_listes_auteur($id_auteur);
// ajoute/retire les abonnements desires
if(count($abos_set)) {
// Abonnements ?
foreach($abos_set as $value) {
if(!in_array($value, $auteur_abos_current_list)) {
$abo_ajoute[] = $value;
}
}
if(count($abo_ajoute)) {
spiplistes_abonnements_ajouter($id_auteur, $abo_ajoute);
}
// Desabonnements ?
foreach($auteur_abos_current_list as $value) {
if(!in_array($value, $abos_set)) {
spiplistes_abonnements_auteur_desabonner($id_auteur, $value);
}
}
}
// desabonne de tout
else {
if(spiplistes_abonnements_auteur_desabonner($id_auteur, "toutes") === false) {
$result .= spiplistes_boite_alerte(_T('spiplistes:Erreur_sur_la_base'), true);
}
}
} // end if
// si retour de formulaire, modifie le format de reception
if($abo_format = _request('abo_format')) {
spiplistes_format_abo_modifier($id_auteur, $abo_format);
}
// recupere le format d'abonnement de id_auteur
$abo_format = spiplistes_format_abo_demande($id_auteur);
// recupere la liste ou auteur est abonne
$auteur_abos_current_list = spiplistes_abonnements_listes_auteur($id_auteur);
$bloc_visible = _request('btn_abonnements_valider');
$debut_block = ($bloc_visible ? "spiplistes_debut_block_visible" : "spiplistes_debut_block_invisible");
$result .= ""
. "<!-- formulaire abonnement spiplistes -->\n"
. "<a name='abonnement'></a>\n"
. debut_cadre_enfonce(_DIR_PLUGIN_SPIPLISTES_IMG_PACK."courriers_listes-24.png"
, true, '', _T('spiplistes:listes_de_diffusion_'))
. spiplistes_bouton_block_depliable(
_T('spiplistes:abonnements_aux_courriers')
, $bloc_visible
, "abos_block")
. "<div class='verdana2'>"
;
if($n = count($auteur_abos_current_list)) {
$result .= $n."/"
. spiplistes_nb_listes_str_get ($nb_listes_dispo)
. ". "
. _T('spiplistes:format_de_reception')." : "
. (
(in_array($abo_format, array('html', 'texte')))
? _T('spiplistes:'.$abo_format)
: "<"._T('spiplistes:aucun').">"
)
;
} else {
$result .= _T('spiplistes:Sans_abonnement');
}
$result .= ""
. "</div>\n"
. $debut_block("abos_block")
. "<form action='".generer_url_ecrire("auteur_infos", "id_auteur=$id_auteur")."' method='post' style='margin-bottom:0;' name='abos_formulaire'>\n"
. debut_cadre_formulaire("", true)
. "\n<p class='verdana2' style='margin-top:0;margin-bottom:0;'>"
. (
($abo_format!='html' && $abo_format!='texte')
? _T('spiplistes:Alert_abonnement_sans_format')
: _T('spiplistes:vous_etes_abonne_aux_listes_selectionnees_').":"
)
. "</p>\n"
//
. "<!-- liste des abonnements -->\n"
. "<ul class='liste-listes'>\n"
;
foreach($listes as $key=>$value) {
$id_liste = $value['id_liste'];
$auteur_est_abonne = in_array($id_liste, $auteur_abos_current_list);
$checked = $auteur_est_abonne ? "checked='checked'" : "";
$label = $auteur_est_abonne ? "Arreter_abonnement_a" : "Abonner_a";
$label = _T("spiplistes:".$label)." ".$value['titre'];
$prochain_envoi =
($value['date'] > 0)
? _T('spiplistes:Prochain_envoi_').": <span style='font-weight:bold;'>".affdate_heure($value['date'])."</span>"
: _T('spiplistes:envoi_non_programme')
;
$result .= ""
. "<li>\n"
. "<label>\n"
. "<input name='abos_set[]' type='checkbox' value='$id_liste' title=\"$label\" $checked />\n"
. spiplistes_bullet_titre_liste('puce', $value['statut'], '', true)
. "<span title=\"".$value['legend']."\">\n"
. "<span class='titre'>".typo($value['titre'])."</span> \n"
. "<span class='description'>".typo($value['texte'])." </span>\n"
. "<span class='periodicite'>($prochain_envoi)</span>\n"
. "</span>\n"
. "</label></li>\n"
;
}
$result .= ""
. "</ul>\n"
. "<!-- fin liste des abonnements -->\n"
. fin_cadre_formulaire(true)
//
// selection du format de reception
. debut_cadre_formulaire("margin-top:1ex", true)
. ((empty($abo_format) || ($abo_format=="non"))
? "<p>"._T('spiplistes:Format_obligatoire_pour_diffusion')."</p>" : "" )
. _T('spiplistes:format_de_reception')
. "<ul class='liste-format'>\n"
;
$checked = ($abo_format=="html" ? "checked='checked'" : "");
$result .= ""
. "<li style='width:50%;float:left;'>\n"
. " <input type='radio' name='abo_format' value='html' id='format_rcpt_html' title='"._T('spiplistes:html')."' $checked />"
. " <label for='format_rcpt_html'>"._T('spiplistes:version_html')."</label></li>\n"
;
$checked = ($abo_format=="texte" ? "checked='checked'" : "");
$result .= ""
. "<li>\n"
. " <input type='radio' name='abo_format' value='texte' id='format_rcpt_texte' title='"._T('spiplistes:texte')."' $checked />"
. " <label for='format_rcpt_texte'>"._T('spiplistes:version_texte')."</label></li>\n"
. "</ul>\n"
. fin_cadre_formulaire(true)
;
if(spiplistes_format_valide($abo_format) && ($abo_format!="non")) {
$result .= ""
. debut_cadre_formulaire("margin-top:1ex", true)
. "<ul class='liste-format-desabo'>\n"
. "<li>\n"
. spiplistes_form_input_radio('abo_format', 'non', _T('spiplistes:Suspendre_abonnements')
, false, true, false)
. "</li>\n"
. "</ul>\n"
. fin_cadre_formulaire(true)
;
}
$result .= ""
//
. "<div style='text-align:right;margin-top:1ex;'><input type='submit' name='btn_abonnements_valider' "
. " value='"._T('spiplistes:Valider_abonnement')."' class='fondo' /></div>\n"
. "</form>\n"
. fin_block()
. fin_cadre_enfonce(true)
;
}
}
return($result);
}
