[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/adminSite/website default,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20507

Modified Files:
	default 
Log Message:
home page of adminSite becomes status, and status center takes over page

Index: default
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/adminSite/website/default,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** default	26 Mar 2005 21:45:17 -0000	1.1.1.1
--- default	10 Jul 2005 05:57:59 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.default
  
! on default () {
	ÇChanges
		Ç6/6/02; 12:05:18 PM by JES
			ÇCreated.
	local (pta = html.getPageTableAddress ());
	pta^.title = "Sites on this server";
	
	local (htmltext = "", indentlevel = 0);
	on add (s) {
		htmltext = htmltext + (string.filledString ("\t", indentlevel) + s + "\r\n");};
	
	if defined (pta^.searchArgTable.site) { //manage one site
		local (adrcache = mainResponder.adminSite.macros.initSiteListCache ());
		local (adrinfo = @adrcache^.sites.[pta^.searchArgTable.site]);
		add (mainResponder.adminSite.macros.manageSite (adrinfo))}
	else { //list sites
		table.assign (@pta^.template, string (pta^.homeTemplate^));
		add (mainresponder.adminSite.macros.listSites ())};
	
	return (htmltext)}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.adminSite.website.default
  
! on default () {
	ÇChanges
		Ç7/9/05; 11:45:08 AM by TAC
			Çstatus center is main content of webpage
			Çchanged title to Status
			Çdisabled Manila site management code
		Ç6/6/02; 12:05:18 PM by JES
			ÇCreated.
	local (pta = html.getPageTableAddress ());
	pta^.title = "Status";
	
	local (htmlText = "", indentLevel = 0);
	on add (s) {
		htmlText = htmlText + (string.filledString ("\t", indentLevel) + s + "\r\n");};
	
	Çbundle // old code
		Çif defined (pta^.searchArgTable.site) //manage one site
			Çlocal (adrcache = mainResponder.adminSite.macros.initSiteListCache ())
			Çlocal (adrinfo = @adrcache^.sites.[pta^.searchArgTable.site])
			Çadd (mainResponder.adminSite.macros.manageSite (adrinfo))
		Çelse //list sites
			Çtable.assign (@pta^.template, string (pta^.homeTemplate^))
			Çadd (mainresponder.adminSite.macros.listSites ())
	add (mainResponder.adminSite.macros.statusCenter (flDisplayHeaderLink: false, versionInfoSectionSeperator: ", "));
	
	return (htmlText)}
\ No newline at end of file