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");
}
|
