|
|
 |
|
|
mainResponder.adminSite.macros.manageSite
Frontier 9 introduced the admin site to replace the controlpanel, however controlpanel addins were not carried forward. This patch (4 changes) allows most controlpanel addins to work within the admin site without change.
| |
local (pta = html.getPageTableAddress ()) |
| |
pta^.title = "Manage site: " + adrinfo^.displaySiteName |
| |
local (thisPageUrl = "http://" + pta^.host + "/?" + pta^.searchArgs) |
| |
local (bgcolor1 = pta^.trbg1, bgcolor2 = pta^.trbg2, ctitems) |
| |
local (adrsite = adrinfo^.adrsite) |
| |
local (adrnewssite = manilaSuite.getNewsSiteAddress (adrsite)) |
| |
local (adrdg = adrinfo^.adrDiscuss) |
| |
local (adrmsgs = @adrdg^.messages) |
| |
bundle //set msgReaderUrl |
| |
local (yesterday = date.yesterday (clock.now ())) |
| |
local (htmlText = "", indentlevel = 0) |
| |
on addRow (itemname, itemvalue, linktext="", linkurl="") |
| |
local (command = "view", message = "") |
| |
if defined (system.temp.mainResponder.misc.message) |
| |
if defined (pta^.searchArgTable.command) |
| |
if defined (pta^.postArgs.command) |
| |
case command //handle admin commands |
| |
«html.setpagetableaddress (@workspace.pt) |
| |
«managesite (workspace.adrinfo) |
Relative to Frontier version 9.7b10
|