on viewShortcuts (pta=nil)

«Display the shortcuts page.

unaltered lines omitted

«Changes:

«2/18/05; 5:18:26 AM by JES

unaltered lines omitted

«11/7/2004; 12:32:47 by DAB

«Added support for link targets.

«8/12/04; 2:54:38 AM by JES

unaltered lines omitted

«9/23/03; 4:48:54 PM by JES

unaltered lines omitted

«1/25/02; 6:17:38 PM by PBS

unaltered lines omitted

«9/6/01; 4:00:04 PM by PBS

unaltered lines omitted

«05/30/01; 2:27:25 PM by JES

unaltered lines omitted

«05/11/00; 7:14:21 PM by JES

unaltered lines omitted

«05/09/00; 10:35:30 PM by PBS

unaltered lines omitted

«05/01/00; 4:09:14 PM by JES

unaltered lines omitted

«04/18/00; 4:32:36 PM by JES

unaltered lines omitted

«04/16/00; 11:36:56 AM by PBS

unaltered lines omitted

«10/31/99; 1:29:47 PM by PBS

unaltered lines omitted

«9/4/99; 5:23:14 PM by PBS

unaltered lines omitted

if pta == nil

unaltered lines omitted

local (flManagingEditor = false, flContributingEditor = false, flContentEditor = false)

bundle //find out if this person is an editor, and if so, what type

local (adrGlossary = pta^.glossary)

local (htmlText = "", indentLevel = 0)

local (flNeedNextLink = false, flNeedPrevLink = false)

local (adrSite = pta^.adrSiteRootTable)

local (argTable)

new (tableType, @argTable)

local (letterToJumpTo = "")

local (maxPerPage = 25, ixStart = 1) //PBS 8/21/99: these determine how many to list on a single page

local (ctAdded = 0)

local (actionUrl = pta^.URI)

if defined (pta^.searchArgs) and pta^.searchArgs != ""

unaltered lines omitted

on add (s)

unaltered lines omitted

pta^.title = manilaSuite.getString ("admin.shortcutsPageTitle", pta: pta) // 4/18/00 JES: localized

pta^.activeUrls = false //keep it from hotting up email addresses in Urls

pta^.autoParagraphs = false

if pta^.method == "POST" and defined (pta^.postArgs)

manilaSuite.referer.checkSelf () //PBS 05/09/00: check referer to defeat client side trojan horse

manilaSuite.unTaintPostArgs () //PBS 10/31/99: security

case pta^.postArgs.cmd

"add"

«local (name, url)

local (name, url, linkTarget) //04/11/07, 12:30:14 by DAB

name = string.trimWhiteSpace (pta^.postArgs.name)

url = string.trimWhiteSpace (pta^.postArgs.url)

linkTarget = string.trimWhiteSpace (pta^.postArgs.target) //04/11/07, 12:30:36 by DAB

if linkTarget != "" //04/11/07, 12:06:24 by DAB

linkTarget = " target='" + linkTarget + "'"

if string.lower (url) beginswith "local:"

unaltered lines omitted

else

if defined (adrGlossary^.[name])

unaltered lines omitted

«adrGlossary^.[name] = "<a href=\"" + url + "\">" + name + "</a>"

adrGlossary^.[name] = "<a href=\"" + url + "\"" + linkTarget + ">" + name + "</a>" //04/11/07, 12:06:19 by DAB

"delete"

unaltered lines omitted

fileMenu.saveMyRoot (adrGlossary) //PBS 9/4/99: save the gdb containing the glossary when changes are made

bundle //introductory text

if flManagingEditor or flContentEditor //add or replace a glossary entry

add ("<table><tr><td valign=\"top\">"); indentLevel++

bundle //form: Add Glossary Item

«local (defaultUrl = "http://", defaultTitle = "")

local (defaultUrl = "http://", defaultTitle = "", defaultTarget = "") //04/11/07, 12:32:47 by DAB

if defined (pta^.requestHeaders.referer) //added check: Wed, 26 May 1999 21:50:54 GMT by AR

unaltered lines omitted

defaultTitle = manilaSuite.unTaint (defaultTitle) //PBS 10/30/99: security

defaultUrl = manilaSuite.unTaint (defaultUrl) //PBS 10/30/99: security

add ("<form method=\"POST\" action=\"" + actionUrl + "\">"); indentLevel++

add ("<input type=\"hidden\" name=\"cmd\" value=\"add\">")

add ("<b>" + manilaSuite.getString ("admin.addShortcutPrompt", pta: pta) + "</b><p>") // 4/18/00 JES: localized

add ("<table cellspacing=\"3\" cellpadding = \"0\">"); indentLevel++

add ("<tr><td>" + manilaSuite.getString ("admin.shortcutNamePrompt", pta: pta) + " </td>")

add ("<td><input size=\"40\" maxlength=\"200\" name=\"name\" value=\"" + defaultTitle + "\"></td></tr>")

add ("<tr><td>" + manilaSuite.getString ("admin.shortcutUrlPrompt", pta: pta) + " </td>")

«add ("<td><input size=\"40\" maxlength=\"200\" name=\"url\" value=\"" + defaultUrl + "\"></td></tr>")

add ("<td><input size=\"40\" name=\"url\" value=\"" + defaultUrl + "\"></td></tr>") //JES 8/12/04: don't restrict length of URL for shortcut

add ("<tr><td>Target: </td>") //04/11/07, 12:08:06 by DAB

add ("<td><input size=\"40\" name=\"target\" value=\"" + defaultTarget + "\"></td></tr>") //04/11/07, 12:04:20 by DAB

add ("<tr><td align=\"right\" colspan=\"2\"><input type=\"submit\" value=\"" + manilaSuite.getString ("admin.addShortcutButton", pta: pta) + "\"></td></tr>")

add ("</table>"); indentLevel--

add ("</form>"); indentLevel--

add ("</td><td>   </td><td valign=\"top\">")

add ("</td></tr></table>"); indentLevel--

bundle //list the current glossary elements, allow the user to delete them

local (alphaLinks = "")

bundle //PBS 09/06/01: add alphabet links

if flNeedPrevLink or flNeedNextLink //buildNext and Previous Links

unaltered lines omitted

else

unaltered lines omitted

if ctAdded < 1

unaltered lines omitted

else

unaltered lines omitted

htmlText = manilaSuite.unTaint (htmlText) //ensure that no macros are run

return (htmlText)

Relative to Frontier version 9.7b10