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

manilaData

manilamacros

manilaSuite

space
space

admin

backups

discuss

gems

getCanonicalSiteName

hierarchyPage

hosting

html

mail

member

members

news

plugins

prefs

referer

renderNewsPage

rpcHandlers

rpcUtils

search

sendMail

siteStructure

staticRendering

storyList

space

system

Patches by Group

Papers

Sales

Sign My Guestbook

User(land) Relations.

Contact Address

Search Baylys

urlchains

space
Join Now
Login
space space space

manilaSuite.hierarchyPage

The html generated for a category that has no message - the directory of embedded stories - was generating bad html. This patch fixes the html

on hierarchyPage (pta=nil)
  «Dive into the XML #hierarchy structure and find and build a page
  «Changes:
  «10/22/04; 9:57:15 AM by EDS
  «incorporating patches by DAB
  «Use valid html ul, li when listing stories in a hierarchy based directory
  «Restore preference for hiding the admin box
  «2/16/04; 5:29:01 PM by JES
 unaltered lines omitted
  «2/10/04; 5:35:12 PM by JES
 unaltered lines omitted
  «4/25/03; 3:44:44 PM by JES
 unaltered lines omitted
  «8/10/02; 6:59:58 PM by JES
 unaltered lines omitted
  «1/14/02; 3:42:22 PM by PBS
 unaltered lines omitted
  «10/15/01; 9:21:16 PM by PBS
 unaltered lines omitted
  «9/28/01; 2:37:46 PM by PBS
 unaltered lines omitted
  «06/12/01; 8:08:28 AM by JES
 unaltered lines omitted
  «06/11/01; 6:43:07 PM by JES
 unaltered lines omitted
  «04/24/01; 8:48:00 PM by JES
 unaltered lines omitted
  «2000:
 unaltered lines omitted
 
  if pta == nil // 05/08/00 JES: pta is now an optional parameter (useful for debugging)
 unaltered lines omitted
  local (adrTable = pta^.hierarchy)
  local (adrHierarchy = pta^.hierarchy)
  local (path = pta^.remainingPath)
  «local (path = pta^.path)
  path = string.urlDecode (path)
  local (flOpml = false)
  if string.lower (path) endsWith ".opml" //PBS 01/05/02: request for OPML document?
 unaltered lines omitted
  if flOpml //home page or archive page?
 unaltered lines omitted
  «if path beginsWith "/"
 unaltered lines omitted
 
  bundle //compile the XML outline if needed
 
  local (nomad = @adrTable^.structure [1]) //points to #hierarchy structure
 
  on hierarchyDive (nomad, name) //PBS 6/17/99: dive into an XML hierarchy table
 unaltered lines omitted
 
  bundle //loop through the remaining path, looking for the object in the #hierarchy structure to serve
 
  local (type)
  type = string.lower (string.nthField (nameOf (nomad^), '\t', 2))
  if type == ""«made conditional
 unaltered lines omitted
 
  local (htmlText)
 
  on displayMessage (msgNum)
  pta^.msgNum = msgNum //moved 05/04/28, 21:49:11 by DAB
  if defined(pta^.newsSite^.accessControl.enabled) and pta^.newsSite^.accessControl.enabled //made conditional 05/06/04, 13:27:38 by DAB
  manilaSuite.accesscontrol.checks() //05/04/28, 21:46:22 by DAB
  «if defined(pta^.newsSite^.accessControl) //made conditional 05/06/04, 13:27:38 by DAB
  local (adrMsgTable = mainResponder.discuss.getMessageTable (msgNum))
  pta^.adrMsgTable = adrMsgTable
  «pta^.msgNum = msgNum
  pta^.title = manilaSuite.unTaint (adrMsgTable^.subject)
  manilaSuite.discuss.setLastUpdateTime (adrMsgTable)
 
  local (flAdminBox = false)
  if not manilaSuite.staticRendering.isStaticRendering (pta)
 unaltered lines omitted
  if flAdminBox
 unaltered lines omitted
 
  «Do we display bylines for stories?
  local (flByline)
  flByline = boolean (manilaSuite.getNewsSitePref ("flBylinesOnStories", default:true, flCreate:true))
 
  if flByline
 unaltered lines omitted
  else //no byline
 unaltered lines omitted
 
  bundle //possibly add the admin box
 
  return (true)
 
  on add (s)
 unaltered lines omitted
 
  case string.lower (type)
 unaltered lines omitted
 
  «Build hierarchy path.
  bundle
 
  bundle //possibly add the render this page button
 
  return (htmlText)

Relative to Frontier version 9.7b10