|
|
 |
|
|
mainResponder.adminSite.prefs.renderDomainTree
Fix a bug where folder names in site tree are not rendered correctly.
| on renderDomainTree (domain, maxsites=50) |
| |
local (pta = html.getPageTableAddress ()) |
| |
local (bg1 = pta^.trbg1, bg2 = pta^.trbg2) |
| |
local (basedomain = domain) |
| |
if string.lower (basedomain) == "default" |
| |
local (baselink = "http://" + basedomain) |
| |
local (port = user.inetd.config.http.port) |
| |
bundle //possibly append the port to the baselink |
| |
local (adrdom = @config.mainResponder.domains.[domain]) |
| |
if mainResponder.siteTree.domainIsSiteTree (adrdom) |
| |
local (pc = file.getPathChar ()) |
| |
on addRow (url, label, type, objectspec=nil) |
| |
on doSiteTreeLeaf (adrleaf) |
| |
«html.setPageTableAddress (@workspace.pt) |
| |
«renderDomainTree ("127.0.0.1") |
Relative to Frontier version 9.7b10
|