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


on delete () {
		<<3/24/11; 8:41:16 AM by DW
				<<bundle //old code
					<<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)
	local (pta = html.getpagetableaddress (), adruser, args);
	if not radio2Suite.securityChallenge (@adruser) {
		return ("")};
	return (radio2Suite.viewDelete (adruser))}

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.