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

space
space

buildPathsTable

visitPages

space

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.siteStructure.buildPathsTable

HTML specifications require that urls

  • be represented in the is8859-1 (latin-1) characetr set
  • be url encoded

This change ensure that on a Macintosh, the url is converted to latin-1 character set before it is url encoded. See also, the inverse patch to mainresponder.respond.

Amended Script

on buildPathsTable (adrSite)
  «Changes
  «9/16/04; 2:27:50 AM by JES
 unaltered lines omitted
  «04/05/31, 12:10:28 by DAB
  «overcome design flaw; build table that handles msgnums with multiple paths in site structure
  «03/03/00; 6:09:19 PM; PBS
 unaltered lines omitted
 
  local (adrHierarchy = @adrSite^.["#hierarchy"])
  local (adrPaths = @adrHierarchy^.paths)
  new (tableType, adrPaths)
  local (adrMultiPaths = @adrHierarchy^.multiplePaths) //04/05/31, 12:10:14 by DAB
  new (tableType, adrMultiPaths) //04/05/31, 12:10:23 by DAB
 
  if not defined (adrHierarchy^.structure)
 unaltered lines omitted
  if not defined (adrHierarchy^.structure [1])
 unaltered lines omitted
 
  local (structure = adrHierarchy^.structure [1])
 
  local (currentPath = "/")
  on doTable (adrTable)
  local (adrItem)
  for adrItem in adrTable
  local (itemName = xml.convertToDisplayName (nameOf (adrItem^)))
  if string.lower (itemName) == "category"
 unaltered lines omitted
  if defined (adrItem^.["/atts"].msgNum)
  local (msgNum = adrItem^.["/atts"].msgNum)
  if defined (adrItem^.["/atts"].pathName)
  local (pathName = adrItem^.["/atts"].pathName)
 
  local (path)
  if system.environment.isMac
 unaltered lines omitted
  else
 unaltered lines omitted
  if string.lower (itemName) == "category"
 unaltered lines omitted
  adrPaths^.[msgNum] = path
 
  if not defined(adrMultiPaths^.[msgNum]) //04/05/31, 12:09:30 by DAB
  new(tabletype, @adrMultiPaths^.[msgNum])
  xml.addValue(@adrMultiPaths^.[msgNum], "path", path) //04/05/31, 12:13:27 by DAB
  doTable (@structure)
 
  return

Relative to Frontier version 9.7b10