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


on buildAfterDelete (username, adrstory) {
		<<7/12/10; 8:22:50 AM by DW
	local (adrdata = scripting2suite.inituser (username));
	scripting2Suite.server.buildHomePage (username);
	scripting2Suite.server.buildRecentStories (username); //build js include
	scripting2Suite.server.buildMonthPage (username, adrstory^.postdate);
	scripting2Suite.server.buildDayPage (username, adrstory^.postdate);
	bundle { //point next and prev around this story
		local (adrnext = nil, adrprev = nil);
		if adrstory^.adrnext != "" {
			adrnext = address (adrstory^.adrnext)};
		if adrstory^.adrprev != "" {
			adrprev = address (adrstory^.adrprev)};
		if adrnext != nil {
			adrnext^.adrprev = adrstory^.adrprev;
			scripting2Suite.server.buildStoryPage (username, adrnext)};
		if adrprev != nil {
			adrprev^.adrnext = adrstory^.adrnext;
			scripting2Suite.server.buildStoryPage (username, adrprev)}}}

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.