Monday, April 04, 2011 at 1:08 AM.


on viewDelete (adruser) {
		<<3/7/11; 10:06:47 AM by DW
			<<Update call to radio2Suite.securityChallenge to new conventions. 
		<<3/6/11; 6:24:37 PM by DW
			<<Rebuild the feed after deleting.
		<<1/11/11; 11:32:00 AM by DW
	local (pta = html.getpagetableaddress (), args);
	<<scratchpad.deletepostparams = pta^
	new (tabletype, @args);
	webserver.parseargs (pta^.searchargs, @args);
	local (adrfeed = @adruser^.feeds.[args.feed], adrpost, title, link, description);
	if not radio2Suite.findPost (adrfeed, args.idPost, @adrpost) {
		scripterror ("Can't delete the post because there is no post whose ID is " + args.idPost + ".")};
	delete (adrpost);
	bundle { //rebuild the feed -- 3/6/11 by DW
		if adruser^.prefs.flPublishEnabled {
			thread.callscript (@radio2Suite.publish, {adruser, adrfeed})}};
	webserver.redirect (pta, "/?feed=" + args.feed)}

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.