space Baylys
Just practicing to pass the Turing test.
space
space
space
space
Developer for Hire!
space
addedValues Plugin
space

Home

What's new

Bayly.Root

Cornershop Plugin

Career

edutools Root

Enhancements

Interests

linguist Plugin

Manila

Patches

space

mainresponder

space
space

adminSite

space
space

macros

space
space

adminMenu

space

prefs

urls

website

space

calendar

controlpanel

discuss

getFileMimeType

members

parseMultipart

respond

subscriptions

space

manilaData

manilamacros

manilaSuite

system

Patches by Group

Papers

Sales

Sign My Guestbook

User(land) Relations.

Contact Address

Search Baylys

urlchains

space
Join Now
Login
space space space

mainResponder.adminSite.macros.adminMenu

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.

on adminMenu (color = "#FFFFFF")
  «Changes
 unaltered lines omitted
  local (pta = html.getPageTableAddress ())
  if pta^.adrObject == @mainResponder.adminSite.website.errorPage
 unaltered lines omitted
  local (fontopen = "<font class=\"adminMenuLinkFont\" \" color=\"" + color + "\">", fontclose = "</font>")
  local (uriWithSearchArgs = pta^.uri)
  if sizeof (pta^.searchargs) > 0
 unaltered lines omitted
  local (htmltext = "")
  on add (s)
 unaltered lines omitted
  on addCommand (linetext, url, fllastcommand = false)
 unaltered lines omitted
 
  add (fontopen + "<b>Frontier " + frontier.version () + "</b>: " + fontclose)
  addCommand ("Home", mainResponder.adminSite.urls.home)
  addCommand ("Readouts", mainResponder.adminSite.urls.readouts)
  addCommand ("Settings", mainResponder.adminSite.urls.settings)
  addCommand ("Maintenance", mainResponder.adminSite.urls.maintenance)
  addCommand ("Updates", mainResponder.adminSite.urls.updates)
  addCommand ("Tools", mainResponder.adminSite.urls.tools)
  addCommand ("Help", mainResponder.adminSite.urls.help, fllastcommand:true)
 
  return (htmltext)

Relative to Frontier version 9.7b10