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


on addUserLink (link, pta=nil) {
		<<4/24/10; 4:08:13 PM by DW
			<<Factors code that was appearing in lots of places.
	if pta == nil {
		pta = html.getpagetableaddress ()};
	if pta^.adruser != nil {
		link = link + "?user=" + nameof (pta^.adruser^)};
	return (link)}
<<bundle //test code
	<<local (pagetable)
	<<new (tabletype, @pt)
	<<pt.adruser = @davey
	<<pt.adruser = nil
	<<html.setpagetableaddress (@pt)
	<<dialog.alert (addUserLink ("hello"))

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.