squellete2

[aidenligne_francais_universite.git] / ecrire / action / supprimer_traduction.php

<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2007                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/

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

// http://doc.spip.org/@action_supprimer_traduction_dist
function action_supprimer_traduction_dist() {

	$securiser_action = charger_fonction('securiser_action', 'inc');
	$arg = $securiser_action();

	if (!preg_match(",^(\d+)\D(\d+)$,", $arg, $r)) 
		spip_log("action supprimer_traduction: $arg pas compris");
	else action_supprimer_traduction_post($r);
}

// http://doc.spip.org/@action_supprimer_traduction_post
function action_supprimer_traduction_post($r)
{
	spip_query("UPDATE spip_articles SET id_trad=0 WHERE id_article=" . $r[1]);
	// Si l'ancien groupe ne comporte plus qu'un seul article
	// mettre a zero.

	$cpt = spip_fetch_array(spip_query("SELECT COUNT(*) AS n FROM spip_articles WHERE id_trad=" . $r[2]));

	if ($cpt['n'] == 1)
		spip_query("UPDATE spip_articles SET id_trad = 0 WHERE id_trad=" . $r[2]);
}
?>