<?php
/**
 * Gestion du formulaire de d'édition de souscription
 *
 * @plugin     Souscription
 * @copyright  2013
 * @author     Olivier Tétard
 * @licence    GNU/GPL
 * @package    SPIP\Souscription\Formulaires
 */

if (!defined('_ECRIRE_INC_VERSION')) return;

include_spip('inc/actions');
include_spip('inc/editer');
include_spip('inc/config');


/**
 * Chargement du formulaire d'édition de souscription
 *
 * Déclarer les champs postés et y intégrer les valeurs par défaut
 *
 * @uses formulaires_editer_objet_charger()
 *
 * @param int$id_souscription_campagne
 *     Identifiant de la campagne de souscription
 * @return array
 *     Environnement du formulaire
 */
function formulaires_souscription_charger_dist($id_souscription_campagne){

	if (!verifier_campagne($id_souscription_campagne))
		return false;

	/* Récupération des information à propos de la campagne */
	$campagne = sql_fetsel(array("type_objectif", "configuration_specifique", "type_saisie", "montants"),
		"spip_souscription_campagnes",
		"id_souscription_campagne=$id_souscription_campagne");

	$type = $campagne['type_objectif'];

	$recu_fiscal = "off";
	if ($type=="adhesion")
		$recu_fiscal = "on";

	if ($campagne['configuration_specifique']!=='on'){
		$montant_type = lire_config("souscription/{$type}_type_saisie", 'input');
		$montant_datas = lire_config("souscription/${type}_montants", array());
	} else {
		$montant_type = $campagne['type_saisie'];
		$montant_datas = $campagne['montants'];
	}

	$montant_label = lire_config("souscription/${type}_montants_label", _T('souscription:label_montant'));
	$montant_explication = nl2br(lire_config("souscription/${type}_montants_description"));

	return array('montant' => '',
		'montant_libre' => '',
		'courriel' => '',
		'recu_fiscal' => $recu_fiscal,
		'envoyer_info' => 'on',
		'informer_comite_local' => 'on',
		'prenom' => '',
		'nom' => '',
		'adresse' => '',
		'code_postal' => '',
		'ville' => '',
		'pays' => 'FR',
		'telephone' => '',
		'id_souscription_campagne' => $id_souscription_campagne,
		'type_souscription' => $type,
		'_montant_datas' => montants_str2array($montant_datas),
		'montant_type' => $montant_type,
		'montant_label' => $montant_label,
		'montant_explication' => $montant_explication
	);
}


/**
 * Chargement du formulaire d'édition de souscription
 *
 * Déclarer les champs postés et y intégrer les valeurs par défaut
 *
 * @uses formulaires_editer_objet_charger()
 *
 * @param int$id_souscription_campagne
 *     Identifiant de la campagne de souscription
 * @return array
 *     Tableau des erreurs
 */
function formulaires_souscription_verifier_dist($id_souscription_campagne){

	$erreurs = formulaires_editer_objet_verifier('souscription', 'new', array('courriel','montant'));

	$campagne = sql_fetsel(array("type_objectif", "configuration_specifique", "type_saisie", "montants"),
		"spip_souscription_campagnes", "id_souscription_campagne=".intval($id_souscription_campagne));

	$type_campagne = $campagne['type_objectif'];

	if (!verifier_campagne($id_souscription_campagne, $type_campagne)){
		$erreurs['message_erreur'] = "La campagne à laquelle est associée cette souscription est invalide";
	}


	if (_request('recu_fiscal')==="on" || $type_campagne=="adhesion"){
		foreach (array('prenom', 'nom', 'adresse', 'code_postal', 'ville', 'pays') as $obligatoire){
			if (!_request($obligatoire)){
				if ($type_campagne=="adhesion"){
					$erreurs[$obligatoire] = "Ce champ est obligatoire pour les adhésions";
				} else {
					$erreurs[$obligatoire] = 'Ce champ est obligatoire (reçu fiscal demandé)';
				}
			}
		}
	}

	if ($e = _request('courriel') AND !email_valide($e))
		$erreurs['courriel'] = _T('form_prop_indiquer_email');

	if ($e = _request('pays')){
		$ret = sql_select('nom', 'spip_pays', "code='${e}'");

		if (sql_count($ret)!=1)
			$erreurs['pays'] = "Pays invalide";

		/* Le code postal n'est vérifié que si on est dans le cas de la France */
		elseif ($e = _request('pays') AND $e=="FR") {
			if ($e = _request('code_postal') AND !preg_match("/^(2[ABab]|0[1-9]|[1-9][0-9])[0-9]{3}$/", $e)){
				$erreurs['code_postal'] = "Code postal invalide";
			}
		}
	}

	if ($e = _request('telephone') AND !preg_match("/^[0-9\+ \.]+$/", $e)){
		$erreurs['telephone'] = "Numéro de téléphone incorrect";
	}

	/* Vérification du montant. Si la campagne est configurée pour
	 * utiliser une configuration spécifique, alors, il faut vérifier
	 * avec les montants de la campagne. Autrement, il faut utiliser les
	 * paramètres globaux.
	 */
	if ($e = _request('montant')){
		$libre = false;
		if ($e=="libre"){
			$e = _request('montant_libre');
			$libre = true;
		}
		if (!(ctype_digit($e)))
			$erreurs['montant'] = "Montant invalide";
		else {
			if ($campagne['configuration_specifique']!=='on'){
				$montant_type = lire_config("souscription/{$type_campagne}_type_saisie", 'input');
				$montant_datas = lire_config("souscription/{$type_campagne}_montants", array());
			} else {
				$montant_type = $campagne['type_saisie'];
				$montant_datas = $campagne['montants'];
			}

			/* On ne vérifie strictement la valeur du montant que si on
			 * n'utilise pas le type de saisie « entrée libre » (input) pour
			 * le montant. */
			if (($montant_type!=="input")
			  AND !$libre
			  AND !array_key_exists($e, montants_str2array($montant_datas)))
				$erreurs['montant'] = "Le montant spécifié est invalide";
		}
	}

	if (count($erreurs)>0){
		$erreurs['message_erreur'] = "Le formulaire contient des erreurs";
	}

	return $erreurs;
}

/**
 * Chargement du formulaire d'édition de souscription
 *
 * Déclarer les champs postés et y intégrer les valeurs par défaut
 *
 * @uses formulaires_editer_objet_charger()
 *
 * @param int$id_souscription_campagne
 *     Identifiant de la campagne de souscription
 * @return array
 *     Retours des traitements
 */
function formulaires_souscription_traiter_dist($id_souscription_campagne){
	$lier_trad = 0;
	$config_fonc = '';
	$row = array();
	$hidden = '';
	$retour = '';
	$ret = array();

	$campagne = sql_fetsel(array("type_objectif", "configuration_specifique", "type_saisie", "montants"),
		"spip_souscription_campagnes", "id_souscription_campagne=".intval($id_souscription_campagne));
	set_request("id_souscription_campagne",$id_souscription_campagne);
	set_request('type_souscription',$campagne['type_objectif']);

	// generer la transaction et l'associer a la souscription
	$inserer_transaction = charger_fonction('inserer_transaction', 'bank');
	$montant = _request('montant');
	if ($montant=="libre")
		$montant = _request('montant_libre');

	$id_auteur = (isset($GLOBALS['visiteur_session']['id_auteur'])?$GLOBALS['visiteur_session']['id_auteur']:0);
	$id_transaction = $inserer_transaction($montant,
		$montant, /* montant_ht */
		$id_auteur, /* id_auteur */
		'', /* auteur_id */
		_request('courriel'));

	if (!$id_transaction){
		$ret['message_erreur'] = "Erreur technique : impossible de preparer la transaction..."; /* FIXME: à rendre traduisible. */
	}
	else {

		set_request("id_transaction",$id_transaction);

		$ret = formulaires_editer_objet_traiter('souscription',
			'new',
			'',
			$lier_trad,
			$retour,
			$config_fonc,
			$row,
			$hidden);

		$redirect = "";
		$row = sql_fetsel("transaction_hash,id_transaction",
			"spip_transactions LEFT JOIN spip_souscriptions USING(id_transaction)",
			"id_souscription=" . $ret['id_souscription']);

		if (!$row){
			spip_log(sprintf("Erreur lors de la création de la transaction liée à la souscription [%s].", $ret['id_souscription']), "souscription");
			$ret['message_erreur'] = "Echec creation de la transaction";
		} else {
			spip_log(sprintf("La souscription [%s], associée à la transaction [%s] a bien été crée.", $ret['id_souscription'], $row['id_transaction']), "souscription");
			$hash = $row['transaction_hash'];
			$id_transaction = $row['id_transaction'];
			$redirect = generer_url_public("payer-acte", "id_transaction=$id_transaction&transaction_hash=$hash", false, false);
			$ret['redirect'] = $redirect;
		}
	}
	return $ret;
}

function verifier_campagne($id_souscription_campagne, $type_souscription = null){
	/* FIXME: vérifier que la campagne a bien le bon statut (ouverte, fermée, terminée, etc.) */

	$campagne = sql_fetsel(array('type_objectif', 'objectif_initial', 'objectif', 'objectif_limiter'),
		'spip_souscription_campagnes', 'id_souscription_campagne=' . sql_quote(intval($id_souscription_campagne)));

	/* La campagne doit exister */
	if (!count($campagne['type_objectif']))
		return false;

	elseif ($type_souscription!=null && $campagne['type_objectif']!=$type_souscription)
		return false;

	/* Si la campagne doit être fermée lorsque l'objectif est atteint,
	 * alors on bloque. */
	elseif ($campagne['objectif_limiter'] == 'on' &&
		calcul_avancement_campagne($id_souscription_campagne, $campagne['type_objectif'], $campagne['objectif_initial'])>=$campagne['objectif']
	)
		return false;

	return true;
}