Monday, November 08, 2010 at 12:05 AM.

---

system.verbs.builtins.radio.html.commandBar

<<Display the navigation.
	<<Changes:
		<<1/19/01; 2:37:54 PM by PBS
			<<Don't hard-code /myUserLand/.
			<<Generate the link using the full path (minus the http:// part) -- this way sub-tables are possible.
		<<1/25/01; 4:20:39 PM by DW
			<<Add class="small" on each of the <p> tags per Bryan's instructions.
		<<1/27/01; 5:55:53 PM by DW
			<<Deprecated. (I love that word.)
return ("");
local (pta = html.getpagetableaddress ());
local (htmltext = "", indentlevel = 0);
on add (s) {
	htmltext = htmltext + string.filledstring ("\t", indentlevel) + s};
on addcommand (commandname, pagename) {
	local (firstPart = string.nthField (pta^.uri, '/', 2));
	local (uri = "/" + firstPart + "/" + pagename + ".wsf");
	local (flhot = true);
	if string.lower (pta^.uri) == string.lower (uri) {
		if pta^.searchargs == "" {
			flhot = false}};
	if flhot {
		add ("<p><font size=\"-1\"><a href=\"/" + firstPart + "/" + pagename + ".wsf\">" + commandname + "</a></font></p>")}
	else {
		add ("<p><font size=\"-1\"><b>" + commandname + "</b></font></p>")}};
addcommand ("Home", "index");
addcommand ("Weblog", "myBlog");
addcommand ("Subscriptions", "viewSubscriptions");
addcommand ("Categories", "viewCategories");
addcommand ("Hotlist", "viewCommunityFavorites");
addcommand ("Events", "viewLog");
addcommand ("Server", "viewWebServerLog");
addcommand ("Tools", "tools");
addcommand ("Prefs", "prefs");
addcommand ("Help", "help");
add ("<br>");
addcommand ("Weblogs", "weblogsCom");
addcommand ("WhoIs", "whoIs");
return (htmltext);


<<Home
<<Categories
<<News
<<Subscriptions
<<Hotlist
<<Events
<<Server
<<Tools
<<Prefs
<<Help

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.