* Copyright (C) 2003 Jean-Louis Bergamo * Copyright (C) 2004-2011 Laurent Destailleur * Copyright (C) 2004 Sebastien Di Cintio * Copyright (C) 2004 Benoit Mortier * Copyright (C) 2005-2011 Regis Houssin * * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program. If not, see . */ /** * \file htdocs/adherents/admin/adherent.php * \ingroup member * \brief Page to setup the module Foundation * \version $Id: adherent.php,v 1.18 2011/08/03 00:45:42 eldy Exp $ */ require("../../main.inc.php"); require_once(DOL_DOCUMENT_ROOT."/lib/admin.lib.php"); require_once(DOL_DOCUMENT_ROOT."/lib/member.lib.php"); $langs->load("admin"); $langs->load("members"); if (!$user->admin) accessforbidden(); $typeconst=array('yesno','texte','chaine'); // Action mise a jour ou ajout d'une constante if ($_POST["action"] == 'update' || $_POST["action"] == 'add') { if (($_POST["constname"]=='ADHERENT_CARD_TYPE' || $_POST["constname"]=='ADHERENT_ETIQUETTE_TYPE') && $_POST["constvalue"] == -1) $_POST["constvalue"]=''; if ($_POST["constname"]=='ADHERENT_LOGIN_NOT_REQUIRED') // Invert choice { if ($_POST["constvalue"]) $_POST["constvalue"]=0; else $_POST["constvalue"]=1; } $const=$_POST["constname"]; $value=$_POST["constvalue"]; if (in_array($const,array('ADHERENT_MAIL_VALID','ADHERENT_MAIL_COTIS','ADHERENT_MAIL_RESIL'))) $value=$_POST["constvalue".$const]; $type=$_POST["consttype"]; $constnote=isset($_POST["constnote"])?$_POST["constnote"]:''; $result=dolibarr_set_const($db,$const,$value,$typeconst[$type],0,$constnote,$conf->entity); if ($result < 0) { print $db->error(); } } // Action activation d'un sous module du module adherent if ($_GET["action"] == 'set') { $result=dolibarr_set_const($db, $_GET["name"],$_GET["value"],'',0,'',$conf->entity); if ($result < 0) { print $db->error(); } } // Action desactivation d'un sous module du module adherent if ($_GET["action"] == 'unset') { $result=dolibarr_del_const($db,$_GET["name"],$conf->entity); if ($result < 0) { print $db->error(); } } /* * View */ $help_url='EN:Module_Foundations|FR:Module_Adhérents|ES:Módulo_Miembros'; llxHeader('',$langs->trans("MembersSetup"),$help_url); $linkback=''.$langs->trans("BackToModuleList").''; print_fiche_titre($langs->trans("MembersSetup"),$linkback,'setup'); $head = member_admin_prepare_head($adh); dol_fiche_head($head, 'general', $langs->trans("Member"), 0, 'user'); print_fiche_titre($langs->trans("MemberMainOptions"),'',''); print ''; print ''; print ''; print ''; print ''; print "\n"; $var=true; $form = new Form($db); // Login/Pass required for members if ($conf->global->MAIN_FEATURES_LEVEL > 0) { $var=!$var; print ''; print ''; print ''; print ''; print ''; print '\n"; print ''; } // Mail required for members $var=!$var; print ''; print ''; print ''; print ''; print ''; print '\n"; print ''; // Send mail information is on by default $var=!$var; print ''; print ''; print ''; print ''; print ''; print '\n"; print ''; // Insertion cotisations dans compte financier $var=!$var; print ''; print ''; print ''; print ''; print ''; print ''; if ($conf->banque->enabled) { print ''; } else { print ''; } print "\n"; print ''; print '

'.$langs->trans("Description").'	'.$langs->trans("Value").'	'.$langs->trans("Action").'
'.$langs->trans("AdherentLoginRequired").'	'; print $form->selectyesno('constvalue',!$conf->global->ADHERENT_LOGIN_NOT_REQUIRED,1); print '	'; print ''; print "
'.$langs->trans("AdherentMailRequired").'	'; print $form->selectyesno('constvalue',$conf->global->ADHERENT_MAIL_REQUIRED,1); print '	'; print ''; print "
'.$langs->trans("MemberSendInformationByMailByDefault").'	'; print $form->selectyesno('constvalue',$conf->global->ADHERENT_DEFAULT_SENDINFOBYMAIL,1); print '	'; print ''; print "
'.$langs->trans("AddSubscriptionIntoAccount").'	'; print $form->selectyesno('constvalue',$conf->global->ADHERENT_BANK_USE,1); print '	'; print ''; print '	'; print $langs->trans("WarningModuleNotActive",$langs->transnoentities("Module85Name")).' '.img_warning("",""); print '

'; print '
'; /* * Mailman */ $var=!$var; if ($conf->global->ADHERENT_USE_MAILMAN) { $lien=img_tick().' '; $lien.=''.$langs->trans("Disable").''; // Edition des varibales globales $constantes=array('ADHERENT_MAILMAN_LISTS', 'ADHERENT_MAILMAN_ADMINPW', 'ADHERENT_MAILMAN_URL', 'ADHERENT_MAILMAN_UNSUB_URL' ); print_fiche_titre("Mailman mailing list system",$lien,''); // JQuery activity print ''; form_constantes($constantes); print '
'; } else { $lien=''.$langs->trans("Activate").''; print_fiche_titre("Mailman mailing list system",$lien,''); print "

\n"; } /* * Spip */ $var=!$var; if ($conf->global->ADHERENT_USE_SPIP) { $lien=img_tick().' '; $lien.=''.$langs->trans("Disable").''; // Edition des varibales globales $constantes=array('ADHERENT_USE_SPIP_AUTO', 'ADHERENT_SPIP_SERVEUR', 'ADHERENT_SPIP_DB', 'ADHERENT_SPIP_USER', 'ADHERENT_SPIP_PASS' ); print_fiche_titre("SPIP CMS",$lien,''); form_constantes($constantes); print '
'; } else { $lien=''.$langs->trans("Activate").''; print_fiche_titre("SPIP - CMS",$lien,''); print "

\n"; } /* * Edition info modele document */ $constantes=array( 'ADHERENT_CARD_TYPE', // 'ADHERENT_CARD_BACKGROUND', 'ADHERENT_CARD_HEADER_TEXT', 'ADHERENT_CARD_TEXT', 'ADHERENT_CARD_TEXT_RIGHT', 'ADHERENT_CARD_FOOTER_TEXT' ); print_fiche_titre($langs->trans("MembersCards"),'',''); form_constantes($constantes); print '*'.$langs->trans("FollowingConstantsWillBeSubstituted").'
'; print '%DOL_MAIN_URL_ROOT%, %ID%, %PRENOM%, %NOM%, %LOGIN%, %PASSWORD%, '; print '%SOCIETE%, %ADRESSE%, %CP%, %VILLE%, %PAYS%, %EMAIL%, %NAISS%, %PHOTO%, %TYPE%, '; print '%YEAR%, %MONTH%, %DAY%'; //print '%INFOS%'; Deprecated print '
'; print '
'; /* * Edition info modele document */ $constantes=array( 'ADHERENT_ETIQUETTE_TYPE' ); print_fiche_titre($langs->trans("MembersTickets"),'',''); form_constantes($constantes); print '
'; /* * Edition des variables globales non rattache a un theme specifique */ $constantes=array( 'ADHERENT_AUTOREGISTER_MAIL_SUBJECT', 'ADHERENT_AUTOREGISTER_MAIL', 'ADHERENT_MAIL_VALID_SUBJECT', 'ADHERENT_MAIL_VALID', 'ADHERENT_MAIL_COTIS_SUBJECT', 'ADHERENT_MAIL_COTIS', 'ADHERENT_MAIL_RESIL_SUBJECT', 'ADHERENT_MAIL_RESIL', 'ADHERENT_MAIL_FROM', ); print_fiche_titre($langs->trans("Other"),'',''); form_constantes($constantes); print '*'.$langs->trans("FollowingConstantsWillBeSubstituted").'
'; print '%DOL_MAIN_URL_ROOT%, %ID%, %PRENOM%, %NOM%, %LOGIN%, %PASSWORD%,'; print '%SOCIETE%, %ADRESSE%, %CP%, %VILLE%, %PAYS%, %EMAIL%, %NAISS%, %PHOTO%, %TYPE%'; //print '%YEAR%, %MONTH%, %DAY%'; // Not supported //print '%INFOS%'; Deprecated print '
'; dol_fiche_end(); $db->close(); print '
'; llxFooter('$Date: 2011/08/03 00:45:42 $ - $Revision: 1.18 $'); function form_constantes($tableau) { global $db,$bc,$langs,$conf,$_Avery_Labels; $form = new Form($db); print ''; print ''; print ''; print ''; print ''; print ''; print "\n"; $var=true; $listofparam=array(); foreach($tableau as $const) // Loop on each param { $sql = "SELECT "; $sql.= "rowid"; $sql.= ", ".$db->decrypt('name')." as name"; $sql.= ", ".$db->decrypt('value')." as value"; $sql.= ", type"; $sql.= ", note"; $sql.= " FROM ".MAIN_DB_PREFIX."const"; $sql.= " WHERE ".$db->decrypt('name')." = '".$const."'"; $sql.= " AND entity in (0, ".$conf->entity.")"; $sql.= " ORDER BY name ASC, entity DESC"; $result = $db->query($sql); dol_syslog("List params sql=".$sql); if ($result) { $obj = $db->fetch_object($result); // Take first result of select $var=!$var; print "\n".''; print ""; // Affiche nom constante print '\n"; if ($const == 'ADHERENT_CARD_TYPE' || $const == 'ADHERENT_ETIQUETTE_TYPE') { print ''; } else { print ''; } print '"; print "\n"; print "\n"; $i++; } } print '

'.$langs->trans("Description").'	'.$langs->trans("Value").'*		'.$langs->trans("Action").'
'; print ''; print ''; print ''; print ''; print ''; print $langs->trans("Desc".$const) != ("Desc".$const) ? $langs->trans("Desc".$const) : ($obj->note?$obj->note:$const); if ($const=='ADHERENT_MAILMAN_URL') { print '. '.$langs->trans("Example").': '.img_down().' '; //print 'http://lists.domain.com/cgi-bin/mailman/admin/%LISTE%/members?adminpw=%MAILMAN_ADMINPW%&subscribees=%EMAIL%&send_welcome_msg_to_this_batch=1'; print ' '; print 'http://lists.domain.com/cgi-bin/mailman/admin/%LISTE%/members/add?subscribees_upload=%EMAIL%&adminpw=%MAILMAN_ADMINPW%&subscribe_or_invite=0&send_welcome_msg_to_this_batch=0¬ification_to_list_owner=0'; print ' '; } if ($const=='ADHERENT_MAILMAN_UNSUB_URL') { print '. '.$langs->trans("Example").': '.img_down().' '; print ' '; print 'http://lists.domain.com/cgi-bin/mailman/admin/%LISTE%/members/remove?unsubscribees_upload=%EMAIL%&adminpw=%MAILMAN_ADMINPW%&send_unsub_ack_to_this_batch=0&send_unsub_notifications_to_list_owner=0'; print ' '; //print 'http://lists.domain.com/cgi-bin/mailman/admin/%LISTE%/members/remove?adminpw=%MAILMAN_ADMINPW%&unsubscribees=%EMAIL%'; } print "	'; // List of possible labels (defined into $_Avery_Labels variable set into format_cards.lib.php) require_once(DOL_DOCUMENT_ROOT.'/lib/format_cards.lib.php'); $arrayoflabels=array(); foreach(array_keys($_Avery_Labels) as $codecards) { $arrayoflabels[$codecards]=$_Avery_Labels[$codecards]['name']; } print $form->selectarray('constvalue',$arrayoflabels,($obj->value?$obj->value:'CARD'),1,0,0); print '	'; print ''; print '	'; //print 'aa'.$const; if (in_array($const,array('ADHERENT_CARD_TEXT','ADHERENT_CARD_TEXT_RIGHT'))) { print ''."\n"; print $obj->value; print "\n"; print '	'; print ''; } else if (in_array($const,array('ADHERENT_AUTOREGISTER_MAIL','ADHERENT_MAIL_VALID','ADHERENT_MAIL_COTIS','ADHERENT_MAIL_RESIL'))) { require_once(DOL_DOCUMENT_ROOT."/lib/doleditor.class.php"); $doleditor=new DolEditor('constvalue'.$const,$obj->value,'',160,'dolibarr_notes','',false,false,$conf->fckeditor->enabled,5,60); $doleditor->Create(); print '	'; print ''; } else if ($obj->type == 'yesno') { print $form->selectyesno('constvalue',$obj->value,1); print '	'; print ''; } else { print ''; print '	'; print ''; } print '	'; print ' '; // print ''.img_delete().''; print "

'; } ?>