File "delforum.php"

Full path: /home/argothem/www/memo/site/site/CoolForum_0.8.4_beta/CoolForum_0.8.4_beta/admin/delforum.php
File size: 5.82 KB
MIME-type: text/x-php
Charset: 8 bit

<?
//*********************************************************************************
//*                                                                               *
//*                  CoolForum v.0.8 Beta : Forum de discussion                   *
//*              Copyright 2001-2002 SORIANO Denis alias Cool Coyote             *
//*                                                                               *
//*                                                                               *
//*       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, write to the Free Software             *
//*	      Foundation, Inc., 59 Temple Place - Suite 330,                          *
//*	      Boston, MA  02111-1307, USA.                                            *
//*                                                                               *
//*                                                                               *
//*       Forum Cr par SORIANO Denis (Cool Coyote)                              *
//*       contact : coyote@coolcoyote.net                                         *
//*       site web et tlchargement : http://www.coolforum.net                   *
//*                                                                               *
//*********************************************************************************

require("entete.php"); 
getlangage("adm_delforum");

if($_REQUEST['action']=="del")
{
	// ##### Rcupration cat and order du forum #####
	$query = $sql->query("SELECT forumcat,forumorder FROM ".$_PRE."forums WHERE forumid=".$_POST['forumid']);
	list($forumcat,$forumorder) = mysql_fetch_array($query);
	
	
	// ##### table CF_forums #####
	$query=$sql->query("DELETE FROM ".$_PRE."forums WHERE forumid=".$_POST['forumid']);
	if($query)
		$tpl->box['table1']=$tpl->attlang("tblforumok");
	else
		$tpl->box['table1']=$tpl->attlang("tblforumnok");
	$query=$sql->query("OPTIMIZE TABLE ".$_PRE."forums");

	// ##### table CF_topics #####
	$query=$sql->query("DELETE FROM ".$_PRE."topics WHERE idforum=".$_POST['forumid']);
	if($query)
		$tpl->box['table2']=$tpl->attlang("tbltopicsok");
	else
		$tpl->box['table2']=$tpl->attlang("tbltopicsnok");
	$query=$sql->query("OPTIMIZE TABLE ".$_PRE."topics");

	// ##### table CF_posts #####	
	$query=$sql->query("DELETE FROM ".$_PRE."posts WHERE idforum=".$_POST['forumid']);
	if($query)
		$tpl->box['table3']=$tpl->attlang("tblpostsok");
	else
		$tpl->box['table3']=$tpl->attlang("tblpostsnok");
	$query=$sql->query("OPTIMIZE TABLE ".$_PRE."posts");

	// ##### table CF_groups_perm #####	
	$query=$sql->query("DELETE FROM ".$_PRE."groups_perm WHERE id_forum=".$_POST['forumid']);
	if($query)
		$tpl->box['table4']=$tpl->attlang("groups_permok");
	else
		$tpl->box['table4']=$tpl->attlang("groups_permnok");
	$query=$sql->query("OPTIMIZE TABLE ".$_PRE."groups_perm");

	// ##### table CF_moderateur #####	
	$query=$sql->query("DELETE FROM ".$_PRE."moderateur WHERE forumident=".$_POST['forumid']);
	if($query)
		$tpl->box['table5']=$tpl->attlang("tblmodook");
	else
		$tpl->box['table5']=$tpl->attlang("tblmodonok");
	$query=$sql->query("OPTIMIZE TABLE ".$_PRE."moderateur");

	// ##### Mise  jour de l'ordre des forums #####
	$query = $sql->query("UPDATE ".$_PRE."forums SET forumorder = forumorder-1 WHERE forumcat='$forumcat' AND forumorder>$forumorder");
	

	// ##### Mise  jour des stats #####
	updatenbtopics();
	updatenbposts();
	
	$tpl->box['admcontent']=$tpl->gettemplate("adm_delforum","actiondel");
}

if($_REQUEST['action']=="avert")
{
	$sqlforums = $sql->query("SELECT * FROM ".$_PRE."forums WHERE forumid=".$_GET['forumid']);
	$MyForum=mysql_fetch_array($sqlforums);
	$tpl->box['admcontent']=$tpl->gettemplate("adm_delforum","avertdel");
}

if(empty($_REQUEST['action']))
{
	$query = $sql->query("SELECT * FROM ".$_PRE."categorie ORDER BY catorder");
	$nb=mysql_numrows($query);
	
	$tpl->box['catforum']="";
	if ($nb==0)
		$tpl->box['catforum'].=$tpl->gettemplate("adm_delforum","nocatfound");
	else
	{
		$TabForum=array();
		
		$sqlforums = $sql->query("SELECT * FROM ".$_PRE."forums ORDER BY forumcat,forumorder");
		$nbforums=mysql_numrows($sqlforums);
		
		if($nbforums>0)
		{
			while($TabForum[]=mysql_fetch_array($sqlforums));
	
			while($Cats=mysql_fetch_array($query))
			{
				$forumlist="";
	
				for($cpt=0;$cpt<count($TabForum);$cpt++)
					if($TabForum[$cpt]['forumcat']==$Cats['catid'])
					{
						//rcupration des infos
						$MyForum = $TabForum[$cpt];
						
						$forumlist .= $tpl->gettemplate("adm_delforum","ligneforum");
					}		
				
				if(strlen($forumlist)>0)
				{
					$Cats['cattitle']=getformatrecup($Cats['cattitle']);
									
					$tpl->box['catforum'].=$tpl->gettemplate("adm_delforum","lignecat");
					$tpl->box['catforum'].=$forumlist;
				}
			}
		}
		else
			$tpl->box['catforum'].=$tpl->gettemplate("adm_delforum","nocatfound");
	}	
	
	$tpl->box['admcontent']=$tpl->gettemplate("adm_delforum","forumlist");
}

$cache.=$tpl->gettemplate("adm_delforum","content");
require("bas.php");
?>