[Upcase-project-cvs] UpCase/admin groupdel.php,NONE,1.1

[<jhe...@us...>]

Update of /cvsroot/upcase-project/UpCase/admin
In directory usw-pr-cvs1:/tmp/cvs-serv12718

Added Files:
	groupdel.php 
Log Message:
remove a group from the database. Checl if this group is used as primary group before removing


--- NEW FILE: groupdel.php ---
<?php
include_once("../config/uc_config.inc");
include_once("lib/uc_page.php");
include_once("lib/uc_sql.php");

$page = new UcPage("groupDelete");
$page->open();

include("config/uc_templates.inc");

if (!empty($groupname))
{
	$db = new UcSql();
	
	// First check if this is a primary group
	$query = sprintf($ucsql_primarygroup, $groupname);
	$res = $db->Execute($query) or die("Unable to check primary group: "
							. $db->ErrorMsg());
	if ($res->RowCount() != 0)
	{
		$tmpl = new ModeliXe($uc_tmpl["GROUP_WARNING"]);
	}
	else
	{
		// and remove every references in memberships table
		$query = sprintf($ucsql_groupget, $groupname);
		$res = $db->Execute($query) or die("Unable to get group id: "
								. $db->ErrorMsg());
		if ($res->RowCount() == 0)
			die("No such group");
		$o = $res->FetchNextObject(true);
		$query = sprintf($ucsql_memgrpdel, $o->GID);
		$db->Execute($query) or die("Unable to remove group from memberships: "
								. $db->ErrorMsg());
		// delete this group
		$query = sprintf($ucsql_groupdel, $groupname);
		$db->Execute($query) or die("Unable to delete group: "
								. $db->ErrorMsg());

		$tmpl = new ModeliXe($uc_tmpl["GROUP_DELETE"]);
	}
}

$tmpl->SetModeliXe();
$tmpl->MxText("groupname", $groupname);
$tmpl->MxWrite();
?>