[(#REM)

  Choix de listes de diffusions sous forme de cases à cocher.
  Par défaut uniquement celles ouvertes.

  Parametres :
  - class : classe(s) css ajoutes au select
  - defaut : valeur par defaut si pas présente dans l'environnement
      identifiants séparés par des virgules ou sous forme de tableau
  - valeur_forcee : valeur utilisee meme si une valeur est dans l'environnement
  - statut : (string|array) filtrer par statut, par défaut "ouverte"
      statuts séparés par des virgules ou sous forme de tableau
      ouverte | fermee | poubelle
  - identifiant : (string|array) filtrer par identifiant
           identifiants séparés par des virgules ou sous forme de tableau
	- titre_prive_uniquement : utiliser uniquement le titre prive
	- autoriser_aucune : proposer une case 'aucune'

  Exemples d'appel :
  [(#SAISIE{listes_diffusion,
    label=<:newsletter:label_subscribe_lists:>})]
]

[(#REM) Normaliser les valeurs et récupérer les listes ]
#SET{defaut,#ENV{defaut}|saisies_chaine2tableau}
#SET{options,#ARRAY{
	status, #ENV{statut,open},
	id,     #ENV{identifiant}
}}
#SET{data,#ARRAY}
[(#ENV{autoriser_aucune}|oui)
	[(#SET{data,#ARRAY{saisie_liste_diffusion_autoriser_aucune_veut_pas,<:mailsubscriber:aucune_liste:>}})]
]
<BOUCLE_data(DATA){source table, #GET{options}|mailsubscribers_listes}>
#SET{data, #GET{data}|array_merge{#ARRAY{#ID,#ENV{titre_prive_uniquement}|?{#TITRE,#TITRE_PUBLIC}|sinon{#TITRE}}}}
</BOUCLE_data>


[(#ENV{type_choix}|!={checkbox}|oui)
	#SET{defaut,#GET{defaut}|implode{','}}
]
[(#REM) On réutilise la saisie checkbox, sauf si on demande un autre type]
<INCLURE{fond=saisies/#ENV{type_choix,checkbox}, data=#GET{data}, env, defaut=#GET{defaut}} />