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

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

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

Added Files:
	userslist.php 
Log Message:
users listing


--- NEW FILE: userslist.php ---
<?php

/*
 *	No input variables
 *
 *	Template tags : 
 *		user_list : bloc
 *			user : user name
 *			useredit : link to the page to edit the user
 */

include_once("../config/uc_config.inc");

include_once("lib/uc_sql.php");
include_once("lib/uc_page.php");

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

include("config/uc_templates.inc");
$tmpl = new ModeliXe($uc_tmpl["USERS_LIST"]);
$tmpl->SetModeliXe();

$db = new UcSQL($ucConfig);

$query = $ucsql_allusers;
$res = $db->Execute($query) or die("Unable to fetch users list: "
							. $db->ErrorMsg());
if ($res)
{
	while ($o = $res->FetchNextobject(true))
	{
		$tmpl->MxText("users_list.user", $o->USERNAME);
		$tmpl->MxUrl("users_list.useredit", "useredit.php",
									array("username" => $o->USERNAME));
		$tmpl->MxBloc("users_list", "loop");
	}
}

$query = $ucsql_allgroups;
$res = $db->Execute($query) or die("Unable to fetch groups list: "
							. $db->ErrorMsg());
if ($res)
{
	while ($o = $res->FetchNextObject(true))
	{
		if ($o->GROUPNAME == "all" || $o->GROUPNAME == "admins")
			continue;
		$tmpl->MxText("groupList.group", $o->GROUPNAME);
		$tmpl->MxBloc("groupList", "loop");
	}
}
$tmpl->MxText("upcase", "UpCase");
$tmpl->MxUrl("newuser", "newuser.php");

$tmpl->MxWrite();

?>