[Upcase-project-cvs] UpCase/admin homepage.php,NONE,1.1 menu.php,1.4,1.5

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

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

Modified Files:
	menu.php 
Added Files:
	homepage.php 
Log Message:
added site home page selection


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

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

// Get all installed packages in the installer

$query = sprintf($ucsql_packageinstalled, '%');
$db = new UcSql();
$res = $db->Execute($query) or die("Unable to execute " . $query
								. " - " . $db->ErrorMsg());


$p = checkVar("choice", false);

include("uc_templates.php");
$tmpl = new ModeliXe($uc_tmpl["HOME_PAGE"]);
$tmpl->SetModeliXe();
while (($o = $res->FetchNextObject(true)))
{
	$tmpl->MxText("applist.appurl", $o->PKGPATH);
	if ($p == $o->PKGPATH)
		$tmpl->MxCheckerField("applist.choice", "radio", "choice", $o->PKGPATH, true); 
	else
		$tmpl->MxCheckerField("applist.choice", "radio", "choice", $o->PKGPATH);
	$tmpl->MxBloc("applist", "loop");
}
if ($p)
{
	$query = sprintf($GLOBALS["ucsql_setvars"], $p, "home_page");
	$db->Execute($query)
		or die("Home page not set: " . $db->ErrorMsg());
}

$tmpl->MxWrite();

?>

Index: menu.php
===================================================================
RCS file: /cvsroot/upcase-project/UpCase/admin/menu.php,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** menu.php	20 Nov 2002 15:54:04 -0000	1.4
--- menu.php	5 Dec 2002 10:06:07 -0000	1.5
***************
*** 75,78 ****
--- 75,79 ----
  	$tmpl->MxUrl("menu.accounts", $ucConfig->upcaseUrl . "/admin/userslist.php");
  	$tmpl->MxUrl("menu.permissions", $ucConfig->upcaseUrl . "/admin/permissions.php");
+ 	$tmpl->MxUrl("menu.homepage", $ucConfig->upcaseUrl . "/admin/homepage.php");
  }