Monday, November 08, 2010 at 12:00 AM.
scripting2Suite.utilities.fixNextPrevs
on fixNextPrevs (username) {
<<Changes
<<6/14/10; 3:37:07 AM by DW
<<Created.
local (adrdata = scripting2suite.inituser (username));
on visit (adrstory) {
scripting2Suite.server.initStory (adrstory);
<<try
<<if adrstory^.fname == "newFeatureBlogPostSubtext"
<<msg ("hello")
if adrnext == nil {
adrstory^.adrnext = ""}
else {
adrstory^.adrnext = string.popfilefromaddress (adrnext);
adrnext^.adrprev = string.popfilefromaddress (adrstory)};
adrnext = adrstory;
return (true)};
local (adrnext = nil);
mainresponder.calendar.visitreversechronologic (@adrdata^.calendar, @visit);
filemenu.savemyroot (adrdata)};
bundle { //test code
fixNextPrevs ("davewiner")}
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.