system.verbs.builtins.html.nextprev.buildOutline

A very old bug in the html suite that is a consequence of the introduction of guest databases and the filename prefix in their addresses.

on buildOutline (adrtable, adroutline)

«Changes

unaltered lines omitted

local (oldtarget = target.get ())

new (outlinetype, adroutline)

target.set (adroutline)

edit (adroutline)

local (dir = down)

on traverse (adrtable)

local (s)

«s = string(adrtable) + "." + html.getPref ("defaultFileName") //99/11/26, 22:04:40 by DAB

s = string.popfileFromAddress (adrtable) + "." + html.getPref ("defaultFileName")

if firstline

unaltered lines omitted

else

unaltered lines omitted

local (adrsubitem, i)

for i = 1 to sizeof (adrtable^)

adrsubitem = @adrtable^ [i]

msg (adrsubitem)

if html.traversalSkip (adrsubitem)

unaltered lines omitted

if nameOf (adrsubitem^) == html.getPref ("defaultFileName")

unaltered lines omitted

if typeOf (adrsubitem^) == tableType

unaltered lines omitted

else

«op.insert (adrsubitem, dir)

op.insert(string.popFileFromAddress(adrsubitem), dir) //99/11/26, 21:56:40 by DAB

rollBeachBall ()

local (firstline = true)

traverse (adrtable)

op.firstSummit ()

target.set (oldtarget)

return (true)

«bundle { //test code

«buildOutline (@user.websites.midas, @user.websites.midas.["#nextPrevs"])

Relative to Frontier version 9.7b10