Menu
▾
▴
[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/discuss readMessage,1.4,1.5
|
From: creedon <icr...@us...> - 2006-01-05 06:16:54
|
Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24216 Modified Files: readMessage Log Message: towards XHTML compliance Index: readMessage =================================================================== RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/readMessage,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** readMessage 26 Nov 2005 19:37:51 -0000 1.4 --- readMessage 5 Jan 2006 06:16:46 -0000 1.5 *************** *** 1,3 **** FrontierVcsFile:1:scpt:mainResponder.discuss.readMessage ! on readMessage (msgNum, flResponses=true, flResponseForm=true, flShowMsgNums=true, flShowAuthor=true, flShowPostTime=true, flShowReads=true, flStoryHeaderOnly=false, flEditButtonsInHeader=true, flShowEnclosure=true, editPageURL="", flShowCowSkullLink=false, pta=nil, adrMsgTable=nil, adrData=nil, adrGetBodyCallback=nil, searchArgs="", flUseMappedMemberKeys=false) { ÇThis is the main bottleneck script for displaying discussion group messages. ÇIt's used in discussion groups -- but also any time you want to display a discussion group message as a page outside of the discussion group interface. Most of the parameters govern whether or not to display the various discussion group message headers. ÇChanges Ç11/24/05; 9:50:02 AM by TAC Çclose input, hr and more p tags Çlowercase form method POST for xhtml compatibility Ç10/13/05; 12:37:15 AM by TAC Çclose paragraph tag for auto paragraphs for compatibility with post HTML v4.01 transitional Ç7/12/05; 1:14:38 AM by TAC Çhide member emails Ç4/18/03; 6:06:50 PM by JES ÇNew optional parameter, flUseMappedMemberKeys -- if true, we use the newer style numeric member keys instead of the older email address style member keys. ÇThu, Jun 6, 2002 at 2:29:44 PM by TAC Çmake davenet style bylines work with deleted members and stories Ç2000 Ç11/27/00; 6:22:13 PM by PBS Çpta is named parameter in call to manilaSuite.pike.editMessageButton. Ç11/26/00; 8:13:51 PM by PBS ÇUse the new bottleneck routine for displaying an external editor button. Ç10/18/00; 10:50:08 PM by JES ÇCommented out the code that adds the Edit in Frontier button. Ç10/12/00; 12:35:42 AM by JES ÇNew optional parameter: searchArgs - if provided, it's appended to URLs of links to messages. This is how support for multi-mode (topic-based vs. day-based) DGs are handled. Ç07/13/00; 3:00:29 AM by JES ÇFixed problem where the byline would sometimes appear in Manila's discussion group interface, even though there was already an Author header -- only display the byline if flShowAuthor is false. Ç05/01/00; 7:41:17 PM by JES ÇChanged getString calls to use a replacement table address instead of a lists Ç05/01/00; 5:19:31 PM by PBS ÇNew optional parameter: adrGetBodyCallback. This allows the caller to specify a script that gets the body of the discussion group message. This is used by the news items feature, which needs to convert from XML to HTML when displaying a news item dg message. ÇIf adrGetBodyCallback^ () returns "", then the normal get-body routine runs. Ç01/17/00; 4:48:31 PM by PBS ÇPreliminary server support for Pike. Ç1999 Ç11/18/99; 3:55:29 PM by PBS ÇRemoved <font size="+0"></font> tags from around message text, as they did nothing, but they made it hard for a designer to specify the font of the message text. Ç10/20/99; 4:12:18 PM by PBS ÇIf an image is stored with the message in the dg, display the picture below the title and headers but above the text. Call the new script mainResponder.discuss.buildImageTag to create the image tag. Ç10/5/99; 5:06:24 PM by PBS ÇSometimes the headers section would be empty, there would be an empty table adding an extra blank line to the page. This is now fixed. ÇMon, Aug 2, 1999 at 2:38:39 PM by PBS ÇNew optional parameters: pta, adrMsgTable, and adrData. These were added because sometimes these addresses are known before calling this script, and there's no sense in re-computing them. This is a minor performance enhancement. ÇAdded some comments to this script to make it easier to follow. ÇRemove the unused local variable pagetable. ÇSat, 12 Jun 1999 13:42:51 GMT by AR ÇBug fix: The Topics header now works properly if the displayed message is part of the response tree of a message that has been deleted. ÇFri, Jun 11, 1999 at 10:33:25 AM by PBS ÇNew page table attribute: if pta^.readMessageByLineFormat is "DaveNet," then the byline will appear like this: ÇTuesday, March 16, 1999; by Dave Winer. ÇWednesday, June 09, 1999 at 4:47:49 PM by PBS ÇCall mainResponder.discuss.memberCanEdit to determine if the member may edit this message. ÇMonday, June 07, 1999 at 2:25:39 PM by PBS ÇNew pagetable attributes: flReadMessageAutoParagraphs, flReadMessageProcessMacros, and flReadMessageExpandUrls give more control over what happens when reading a discussion group message. When calling this script from a web page that's a script, it's best to set these all to false. When calling from a macro, it's not necessary to define these attributes: previous behavior is conserved, there's no breakage. ÇWed, 26 May 1999 01:33:57 GMT by AR ÇReal names of message authors are now looked up in the membership group specified thru pta^.responderAttributes.defaultMembershipGroup instead of formerly config.mainresponder.globals.defaultMembershipGroup, allowing greater flexibility while retaining backwards-compatibility. ÇSat, 22 May 1999 15:32:02 GMT by AR ÇAdded optional parameter flShowCowSkullLink. The default is false. If it's set to true, a cowskull linking to the standard msgReader page for this message is added. This feature probably only makes sense for sites like stories.userland.com where messages are displayed outside of the standard discussion group context. ÇFri, 21 May 1999 16:58:48 GMT by AR ÇAdded optional editPageURL parameter for setting the action URL of the Edit This Page button. If it's the empty string, we use pta^.responderattributes.urls^.discussEditInBrowser. ÇWed, 19 May 1999 18:50:24 GMT by AR ÇAdded three new parameters: flShowAuthor, flShowPostTime, flShowReads. Default: true. ÇAdded a new parameter: flStoryHeaderOnly. Default: false. ÇInserted missing </tr> tag after header section. ÇAdded a new parameter: flEditButtonsInHeader. Default: true. Ç5/12/99; 6:43:55 AM by DW ÇAdded Topic line for non-top-level messages. It takes you to the top-level topic that the message is in response to. ÇThu, 22 Apr 1999 15:00:04 GMT by AR ÇModified after closing a security hole in htmlInterfaces.root Çhttp://frontier.userland.com/security/htmlInterfacesRoot ÇMon, 01 Mar 1999 17:45:42 GMT by AR ÇChanged code in the "set member info" section to no longer reference config.mainResponder.prefs.defaultDiscussRoot. Instead we get the discussion group rootname by dereferencing adrdata which is set by mainresponder.discuss.openroot. Ç5/19/99; 10:19:48 PM by DW ÇChanged "By Dave Winer" to "Posted by Dave Winer". This makes more sense because I might post articles written by other people. bundle { //get page table, discussion group, and message table addresses if pta == nil { //PBS 8/2/99: get the page table address pta = html.getPageTableAddress ()}; if adrData == nil { //PBS 8/2/99: get the address of the root of this discussion group adrData = mainResponder.discuss.openRoot (pta)}; if adrMsgTable == nil { //PBS 8/2/99: get the address of the table for this discussion group message adrMsgTable = @adrData^.messages.[string.padWithZeros (msgNum, 7)]}; try { //JES 4/19/03: not particularly pretty, but makes sure that any manila code that calls us will get the right value for flUseMappedMemberKeys if manilaSuite.isManilaSite (manilaSuite.getSiteAddress ()) { flUseMappedMemberKeys = true}}}; local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup); local (flShowEditButtons, flEditButtonsAtTop, flEditButtonsAtBottom, flShowMessageHeaders); local (htmlText = "", indentLevel = 0); local (flMember = defined (pta^.adrMemberInfo)); on add (s) { htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"}; bundle { //increment read stats adrMsgTable^.ctReads++; config.mainResponder.stats.ctDiscussionGroupReads++}; //1/17/99; 9:20:18 AM by DW bundle { //was this message deleted? if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) { Ç4/10/00; 12:17:54 AM by JES - added localization add (mainResponder.getString ("discuss.messageDeleted")); return (htmlText)}}; bundle { //calculate lots of booleans in advance to avoid spitting out unwanted empty table cells etc. flShowEnclosure = flShowEnclosure and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != "")); flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo))); //PBS 6/9/99: a member other than the poster may be able to edit this message flEditButtonsAtTop = (flShowEditButtons and flEditButtonsInHeader); flEditButtonsAtBottom = (flShowEditButtons and not flEditButtonsInHeader); flShowMessageHeaders = (not flStoryHeaderOnly) and (flShowAuthor or flShowPostTime or flShowMsgNums or flShowEnclosure or flShowReads); if not flShowMessageHeaders { //PBS 9/22/99: make it possible to have a byline and message headers: example -- the Samples site needs a byline plus enclosure header if defined (pta^.flReadMessageStoryHeaderAndMessageHeaders) { if pta^.flReadMessageStoryHeaderAndMessageHeaders { flShowMessageHeaders = true}}}}; on addEditButtons () { //add Edit button (or buttons) to the page Ç4/10/00; 12:17:54 AM by JES - added localization local (editableInFrontier = false); Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button Çbundle //old code Çadd ("<hr><b>Frontier 6 Alphas</b><p>") Çadd ("According to our records, you are a Frontier 6 alpha tester, and you created the message that you're viewing. That means that you can edit this message using Frontier 6's wrapping headlines outliner.") Çadd ("To use this feature, be sure Frontier is running, and you have suites.editorial installed. Then click on the following link. <i>Please follow the instructions carefully.</i><p>") Çadd ("<a href=\"" + pta^.responderattributes.urls^.discussEditInFrontier + msgnum + "\">Edit message #" + msgnum + " in Frontier</a>") Çadd ("<font size=\"-2\"><br>You can edit this message<br>because you are a Frontier 6<br>alpha tester and you are<br>the author of this message.</font>") Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum) Ç ÇBuild the Edit in Frontier button. Çadd ("<td valign=\"middle\"><center>"); indentLevel++ Çadd ("<form method=\"POST\" action=\"" + url + "\">"); indentLevel++ Çadd ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">") Çadd ("<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">") Çadd ("</form>"); indentLevel-- Çadd ("</center></td>"); indentLevel-- Ç ÇeditableInFrontier = true bundle { //edit in web browser button if editPageURL == "" { editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser}; add ("<td valign=\"middle\"><center>"); indentLevel++; add ("<form method=\"post\" action=\"" + editPageURL + msgNum + "\">"); indentLevel++; add ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\" />"); local (buttonValue = mainResponder.getString ("discuss.editThisPage")); if editableInFrontier { buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser add (" ")}; add ("<input type=\"submit\" value=\"" + buttonValue + "\" />"); add ("</form>"); indentLevel--; add ("</center>"); bundle { //PBS 01/13/00: Add the Edit in Pike button if defined (pta^.responderAttributes.urls^.editInPike) { ÇPike support is a feature not of mainResponder but of Manila. However, this script, which displays the discussion group message and the Edit this Page, needs to be Pike-aware enough to display the Pike button. Çif manilaSuite.pike.memberHasPike (pta) Çlocal (editInPikeUrl = pta^.responderAttributes.urls^.editInPike) Çif not (editInPikeUrl endsWith "$") ÇeditInPikeUrl = editInPikeUrl + "$" ÇeditInPikeUrl = editInPikeUrl + msgNum Çlocal (adrSite = pta^.adrSiteRootTable) Çlocal (adrMember = pta^.adrMemberInfo) Çadd (manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta)) //true because this is a message add (manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta))}}; //PBS 11/27/00: pta is named parameter add ("</td>"); indentLevel--}}; bundle { //put up message headers section Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") local (flByline = flStoryHeaderOnly); //PBS 06/22/00: message table can over-ride byline display if defined (adrMsgTable^.flByline) { //an attribute in the message table can over-ride the site setting if not adrMsgTable^.flByline { flByline = false} else { flByline = true}}; if flByline and !flShowAuthor { //07/13/00 JES: added !flShowAuthor -- never show a Byline if we have an Author header ÇSupport DaveNet-style bylines: PBS 6/11/99 ÇLike: Friday, June 11, 1999; by Dave Winer (no link to author) if defined (pta^.readMessageBylineFormat) and string.lower (pta^.readMessageBylineFormat) == "davenet" { bundle { local { name = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member)}; add ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}; Çbundle // old code Çlocal (adrMember = mainResponder.members.getMemberTable (membershipGroup, adrMsgTable^.member)) Çlocal (name = nameOf (adrMember^)) // 10/05/05; 7:01:56 PM by PR default to the member key Çif defined (adrMember^.personalInfo.name) Çname = adrMember^.personalInfo.name Çelse Çif name contains '@' Çname = string.replace (string.mid (name, 1, string.patternMatch ('@', name)+2) + "...", '@', "@") Çadd ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}} else { // standard byline format local (authorLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys)); add ("<i>" + mainResponder.macros.byline (authorLink, adrMsgTable^.postTime) + "</i>")}}; local (flDoHeaders = false); //PBS 10/5/99: fix for blank headers section, which messages up the formatting if flEditButtonsAtTop { flDoHeaders = true} else { if flShowMessageHeaders { case true { flShowAuthor; flShowPostTime; flShowMsgNums; flShowEnclosure; flShowReads { flDoHeaders = true}}}}; if flDoHeaders { //PBS 10/5/99: was: if (flShowMessageHeaders or flEditButtonsAtTop) add ("<p />");; add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; add ("<tr>"); indentLevel++; if flShowMessageHeaders { //add author, posted, msg#, etc add ("<td>"); indentLevel++; add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; on tr (label, val) { add ("<tr>"); indentLevel++; add ("<td valign=\"top\"><font size=\"+0\"><b>" + label + "</b> </font></td>"); add ("<td valign=\"top\"><font size=\"+0\">" + val + "</font></td>"); add ("</tr>"); indentLevel--}; on msgLink (msgNum) { return ("<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + msgNum + "</a>")}; if flShowAuthor { tr (mainResponder.getString ("discuss.authorHeader"), mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys))}; // 4/13/00 JES: localized the header if flShowPostTime { tr (mainResponder.getString ("discuss.postedHeader"), mainResponder.localization.dateTimeString (adrMsgTable^.postTime))}; // 4/13/00 JES: localized the header and the date if flShowMsgNums and (adrMsgTable^.inResponseTo > 0) { //spit out the Topic line local (nomad = adrMsgTable); while (nomad^.inResponseTo > 0) { nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo)}; tr (mainResponder.getString ("discuss.topicHeader"), "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + nomad^.msgNum + searchArgs + "\">" + nomad^.subject + "</a>")}; // 4/13/00 JES: localized the header if flShowMsgNums { // put out the Msg# line local (val = msgNum); if adrMsgTable^.inResponseTo > 0 { try { local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list replacementTable.msglink = msgLink (adrMsgTable^.inResponseTo); val = val + " (" + mainResponder.getString ("discuss.inResponseTo", @replacementTable) + ")"}} // 4/13/00 JES: localized the header else { val = val + " (" + mainResponder.getString ("discuss.topMsgInThread") + ")"}; // 4/13/00 JES: localized tr (mainResponder.getString ("discuss.msgNumHeader"), val)}; if flShowEnclosure { //regurgitate the Enclosure line Çhttp://discuss.userland.com/enclosures/view$868 local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum); Ç4/13/00; 5:52:43 PM by JES: localized enclosure text local (listingLink = "<a href=\"" + viewingUrl + "\">" + mainResponder.getString ("discuss.viewEnclosure") + "</a>"); local (fatPageLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureDownloader + msgNum + "\">" + mainResponder.getString ("discuss.fatPageEnclosure") + "</a>"); local (rpcLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureRPCer + msgNum + "\">" + mainResponder.getString ("discuss.RPCenclosure") + "</a>"); tr (mainResponder.getString ("discuss.enclosureHeader"), listingLink + ", " + fatPageLink + ", " + rpcLink)}; if flShowMsgNums { //throw up Prev/Next local (ixPrev = -1, ixNext = -1); local (ixLastMsg = adrData^.prefs.nextMsgNum - 1); for i = (msgNum - 1) downTo 1 { //find the previous message local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData)); if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) { ixPrev = i; break}}; for i = (msgNum + 1) to ixLastMsg { //find the next message local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData)); if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) { ixNext = i; break}}; Ç4/13/00; 5:53:22 PM by JES: localized next/prev header and link display if ixPrev == -1 { if ixNext != -1 { tr (mainResponder.getString ("discuss.nextMsgHeader"), msgLink (ixNext))}} else { if ixNext == -1 { if ixPrev != -1 { tr (mainResponder.getString ("discuss.prevMsgHeader"), msgLink (ixPrev))}} else { local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list replacementTable.prevmsglink = msgLink (ixPrev); replacementTable.nextmsglink = msgLink (ixNext); tr (mainResponder.getString ("discuss.prevNextMsgHeader"), mainResponder.getString ("discuss.prevNextMsgNums", @replacementTable))}}}; if flShowReads { //show the number of times this message has been read tr (mainResponder.getString ("discuss.readsHeader"), adrMsgTable^.ctReads)}; // 4/13/00 JES: localized add ("</table>"); indentLevel--; add ("</td>"); indentLevel--}; if flEditButtonsAtTop { //add edit in Frontier button, possibly other stuff if (flStoryHeaderOnly or flShowMessageHeaders) { //add a bit of horizontal space add ("<td width=\50\"> </td>")}; addEditButtons ()}; add ("</tr>"); indentLevel--; add ("</table>"); indentLevel--; add ("<p />")} else { add ("<p />")}}; bundle { //add the body of the story local (flCallbackReturnedBody = false); if adrGetBodyCallback != nil { local (s); s = adrGetBodyCallback^ (adrMsgTable); if s != "" { add (s); flCallbackReturnedBody = true}}; if not flCallbackReturnedBody { bundle { //PBS 10/20/99: if an image is attached to this message, display it above the body if defined (adrMsgTable^.image) { if defined (pta^.responderAttributes.urls^.imageViewer) { //must be defined: it's the link to the imageViewer script ÇThe imageViewer script takes a msgNum as pathArgs and displays the picture attached to that dg message. add (mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum)); add ("<p />")}}}; if typeOf (adrMsgTable^.body) == outlineType { //outlines get passed through an outline renderer local (oldRenderOutlineWith = nil); if defined (pta^.renderOutlineWith) { oldRenderOutlineWith = pta^.renderOutlineWith}; if defined (pta^.renderDiscussOutlinesWith) { pta^.renderOutlineWith = pta^.renderDiscussOutlinesWith}; if defined (pta^.flReadMessageProcessMacros) and pta^.flReadMessageProcessMacros { try {add (html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta))}} else { if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls { try {add (html.tenderRender (@adrMsgTable^.body))}} else { //default, original behavior try {add (html.expandURLs (html.tenderRender (@adrMsgTable^.body)))}}}; if oldRenderOutlineWith != nil { pta^.renderOutlineWith = oldRenderOutlineWith}} else { //it's not an outline local (s = string (adrMsgTable^.body)); s = string.replaceAll (s, "\n", ""); //2/15/99 DW, inside <pre>s these cause extra line-skips if not (defined (pta^.flReadMessageAutoParagraphs)) or pta^.flReadMessageAutoParagraphs { s = string.replaceAll (s, "\r\r", "\r\r<p />")}; if not (defined (pta^.flReadMessageProcessMacros)) or pta^.flReadMessageProcessMacros { s = html.processMacros (s, false, pta); }; Çadd ("<font size=\"+0\">" + s + "</font>") add (s)}}}; //PBS 11/18/99: removed <font> tags from around message text, as they didn't do anything, but made it harder for a designer to specify the font for the page if flEditButtonsAtBottom { //add edit buttons to the bottom add ("<p />"); add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; add ("<tr>"); indentLevel++; addEditButtons (); add ("</tr>"); indentLevel--; add ("</table>"); indentLevel--; add ("<p />")}; if flShowCowSkullLink { //add cowskull link to standard msgReader page ÇThe cowskull link is a link to the discussion group interface version of this page. try {add ("<p>\r<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + "\">" + mainResponder.discuss.cowSkullImage (pta) + "</a>\r</p>")}}; if flResponses { //list message response structure Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") if sizeof (adrMsgTable^.responses) > 0 { local (stack = {}); on addResponses (adrItem) { local (adrTable, msgNum, replyMember, i, ct = sizeOf (adrItem^.responses), flDeleted); add ("<ul>"); indentLevel++; for i = ct downTo 1 { msgNum = adrItem^.responses [i]; if stack contains msgNum { //avoid infinite recursion continue; }; adrTable = mainResponder.discuss.getMessageTable (msgNum, pta, adrData); if not defined (adrTable^) { continue}; if not (mainResponder.discuss.isMessageDeleted (msgNum, adrTable, pta)) { replyMember = mainResponder.members.getMemberName (membershipGroup, adrTable^.member); add ("<li><a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + adrTable^.subject + "</a>, " + replyMember + ", " + mainResponder.localization.dateTimeString (adrTable^.postTime, pta: pta) + "<p />"); // 4/13/00 JES: localized the date display if sizeof (adrTable^.responses) > 0 { stack = stack + {adrTable^.msgNum}; addResponses (adrTable); delete (@stack [sizeof (stack)])}}}; add ("</ul>"); indentLevel--; }; add ("<p /><hr /><b>" + mainResponder.getString ("discuss.thereAreResponsesToThisMsg") + "</b>"); addResponses (adrMsgTable)}}; //it's recursive if flResponseForm { //provide a response form Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") if flMember { //only members can add messages local (subject = adrMsgTable^.subject); if not (string.lower (subject) beginswith string.lower (string.trimWhiteSpace (mainResponder.getString ("discuss.rePrefix")))) { subject = mainResponder.getString ("discuss.rePrefix") + subject}; local (subjectprompt, buttontext, bodyprompt); subjectprompt = mainResponder.getString ("discuss.responseSubjectPrompt"); buttontext = mainResponder.getString ("discuss.postResponseButtonText"); bodyprompt = mainResponder.getString ("discuss.responseBodyPrompt"); add (mainResponder.discuss.newMessageForm (msgNum, subject, "<p /><hr />" + subjectprompt, buttontext, bodyprompt: bodyprompt, pta: pta))}}; bundle { //set member info ÇFor every member, store the highest message read for the current discussion group. ÇFirst make sure the discussionGroupInfo table exists for this member, then make sure there's a table for this dg, then set highestMessageRead for this dg for this member. if flMember { //is this a member? local (adrMember = pta^.adrMemberInfo); if not defined (adrMember^.discussionGroupInfo) { new (tabletype, @adrmember^.discussionGroupInfo)}; local (rootName = nameOf (adrData^)); local (adrTable = @adrMember^.discussionGroupInfo.[rootName]); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.highestMessageRead) { adrTable^.highestMessageRead = 0}; if msgNum > adrTable^.highestMessageRead { adrTable^.highestMessageRead = msgNum}}}; return (htmlText)} \ No newline at end of file --- 1,3 ---- FrontierVcsFile:1:scpt:mainResponder.discuss.readMessage ! on readMessage (msgNum, flResponses=true, flResponseForm=true, flShowMsgNums=true, flShowAuthor=true, flShowPostTime=true, flShowReads=true, flStoryHeaderOnly=false, flEditButtonsInHeader=true, flShowEnclosure=true, editPageURL="", flShowCowSkullLink=false, pta=nil, adrMsgTable=nil, adrData=nil, adrGetBodyCallback=nil, searchArgs="", flUseMappedMemberKeys=false) { ÇChanges Ç1/4/06; 4:48:10 PM by TAC Çfor response form. moved p and hr tags out of mainResponder.discuss.newMessageForm call, XHTML compliance Çadded missing quote character from width attribute of td tag when adding horizontal for etp button Ç2005 Ç11/24/05; 9:50:02 AM by TAC Çclose input, hr and more p tags Çlowercase form method POST for xhtml compatibility Ç10/13/05; 12:37:15 AM by TAC Çclose paragraph tag for auto paragraphs for compatibility with post HTML v4.01 transitional Ç7/12/05; 1:14:38 AM by TAC Çhide member emails Ç4/18/03; 6:06:50 PM by JES ÇNew optional parameter, flUseMappedMemberKeys -- if true, we use the newer style numeric member keys instead of the older email address style member keys. ÇThu, Jun 6, 2002 at 2:29:44 PM by TAC Çmake davenet style bylines work with deleted members and stories Ç2000 Ç11/27/00; 6:22:13 PM by PBS Çpta is named parameter in call to manilaSuite.pike.editMessageButton. Ç11/26/00; 8:13:51 PM by PBS ÇUse the new bottleneck routine for displaying an external editor button. Ç10/18/00; 10:50:08 PM by JES ÇCommented out the code that adds the Edit in Frontier button. Ç10/12/00; 12:35:42 AM by JES ÇNew optional parameter: searchArgs - if provided, it's appended to URLs of links to messages. This is how support for multi-mode (topic-based vs. day-based) DGs are handled. Ç07/13/00; 3:00:29 AM by JES ÇFixed problem where the byline would sometimes appear in Manila's discussion group interface, even though there was already an Author header -- only display the byline if flShowAuthor is false. Ç05/01/00; 7:41:17 PM by JES ÇChanged getString calls to use a replacement table address instead of a lists Ç05/01/00; 5:19:31 PM by PBS ÇNew optional parameter: adrGetBodyCallback. This allows the caller to specify a script that gets the body of the discussion group message. This is used by the news items feature, which needs to convert from XML to HTML when displaying a news item dg message. ÇIf adrGetBodyCallback^ () returns "", then the normal get-body routine runs. Ç01/17/00; 4:48:31 PM by PBS ÇPreliminary server support for Pike. Ç1999 Ç11/18/99; 3:55:29 PM by PBS ÇRemoved <font size="+0"></font> tags from around message text, as they did nothing, but they made it hard for a designer to specify the font of the message text. Ç10/20/99; 4:12:18 PM by PBS ÇIf an image is stored with the message in the dg, display the picture below the title and headers but above the text. Call the new script mainResponder.discuss.buildImageTag to create the image tag. Ç10/5/99; 5:06:24 PM by PBS ÇSometimes the headers section would be empty, there would be an empty table adding an extra blank line to the page. This is now fixed. ÇMon, Aug 2, 1999 at 2:38:39 PM by PBS ÇNew optional parameters: pta, adrMsgTable, and adrData. These were added because sometimes these addresses are known before calling this script, and there's no sense in re-computing them. This is a minor performance enhancement. ÇAdded some comments to this script to make it easier to follow. ÇRemove the unused local variable pagetable. ÇSat, 12 Jun 1999 13:42:51 GMT by AR ÇBug fix: The Topics header now works properly if the displayed message is part of the response tree of a message that has been deleted. ÇFri, Jun 11, 1999 at 10:33:25 AM by PBS ÇNew page table attribute: if pta^.readMessageByLineFormat is "DaveNet," then the byline will appear like this: ÇTuesday, March 16, 1999; by Dave Winer. ÇWednesday, June 09, 1999 at 4:47:49 PM by PBS ÇCall mainResponder.discuss.memberCanEdit to determine if the member may edit this message. ÇMonday, June 07, 1999 at 2:25:39 PM by PBS ÇNew pagetable attributes: flReadMessageAutoParagraphs, flReadMessageProcessMacros, and flReadMessageExpandUrls give more control over what happens when reading a discussion group message. When calling this script from a web page that's a script, it's best to set these all to false. When calling from a macro, it's not necessary to define these attributes: previous behavior is conserved, there's no breakage. ÇWed, 26 May 1999 01:33:57 GMT by AR ÇReal names of message authors are now looked up in the membership group specified thru pta^.responderAttributes.defaultMembershipGroup instead of formerly config.mainresponder.globals.defaultMembershipGroup, allowing greater flexibility while retaining backwards-compatibility. ÇSat, 22 May 1999 15:32:02 GMT by AR ÇAdded optional parameter flShowCowSkullLink. The default is false. If it's set to true, a cowskull linking to the standard msgReader page for this message is added. This feature probably only makes sense for sites like stories.userland.com where messages are displayed outside of the standard discussion group context. ÇFri, 21 May 1999 16:58:48 GMT by AR ÇAdded optional editPageURL parameter for setting the action URL of the Edit This Page button. If it's the empty string, we use pta^.responderattributes.urls^.discussEditInBrowser. ÇWed, 19 May 1999 18:50:24 GMT by AR ÇAdded three new parameters: flShowAuthor, flShowPostTime, flShowReads. Default: true. ÇAdded a new parameter: flStoryHeaderOnly. Default: false. ÇInserted missing </tr> tag after header section. ÇAdded a new parameter: flEditButtonsInHeader. Default: true. Ç5/12/99; 6:43:55 AM by DW ÇAdded Topic line for non-top-level messages. It takes you to the top-level topic that the message is in response to. ÇThu, 22 Apr 1999 15:00:04 GMT by AR ÇModified after closing a security hole in htmlInterfaces.root Çhttp://frontier.userland.com/security/htmlInterfacesRoot ÇMon, 01 Mar 1999 17:45:42 GMT by AR ÇChanged code in the "set member info" section to no longer reference config.mainResponder.prefs.defaultDiscussRoot. Instead we get the discussion group rootname by dereferencing adrdata which is set by mainresponder.discuss.openroot. Ç5/19/99; 10:19:48 PM by DW ÇChanged "By Dave Winer" to "Posted by Dave Winer". This makes more sense because I might post articles written by other people. ÇThis is the main bottleneck script for displaying discussion group messages. ÇIt's used in discussion groups -- but also any time you want to display a discussion group message as a page outside of the discussion group interface. Most of the parameters govern whether or not to display the various discussion group message headers. bundle { //get page table, discussion group, and message table addresses if pta == nil { //PBS 8/2/99: get the page table address pta = html.getPageTableAddress ()}; if adrData == nil { //PBS 8/2/99: get the address of the root of this discussion group adrData = mainResponder.discuss.openRoot (pta)}; if adrMsgTable == nil { //PBS 8/2/99: get the address of the table for this discussion group message adrMsgTable = @adrData^.messages.[string.padWithZeros (msgNum, 7)]}; try { //JES 4/19/03: not particularly pretty, but makes sure that any manila code that calls us will get the right value for flUseMappedMemberKeys if manilaSuite.isManilaSite (manilaSuite.getSiteAddress ()) { flUseMappedMemberKeys = true}}}; local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup); local (flShowEditButtons, flEditButtonsAtTop, flEditButtonsAtBottom, flShowMessageHeaders); local (htmlText = "", indentLevel = 0); local (flMember = defined (pta^.adrMemberInfo)); on add (s) { htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"}; bundle { //increment read stats adrMsgTable^.ctReads++; config.mainResponder.stats.ctDiscussionGroupReads++}; //1/17/99; 9:20:18 AM by DW bundle { //was this message deleted? if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) { Ç4/10/00; 12:17:54 AM by JES - added localization add (mainResponder.getString ("discuss.messageDeleted")); return (htmlText)}}; bundle { //calculate lots of booleans in advance to avoid spitting out unwanted empty table cells etc. flShowEnclosure = flShowEnclosure and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != "")); flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo))); //PBS 6/9/99: a member other than the poster may be able to edit this message flEditButtonsAtTop = (flShowEditButtons and flEditButtonsInHeader); flEditButtonsAtBottom = (flShowEditButtons and not flEditButtonsInHeader); flShowMessageHeaders = (not flStoryHeaderOnly) and (flShowAuthor or flShowPostTime or flShowMsgNums or flShowEnclosure or flShowReads); if not flShowMessageHeaders { //PBS 9/22/99: make it possible to have a byline and message headers: example -- the Samples site needs a byline plus enclosure header if defined (pta^.flReadMessageStoryHeaderAndMessageHeaders) { if pta^.flReadMessageStoryHeaderAndMessageHeaders { flShowMessageHeaders = true}}}}; on addEditButtons () { //add Edit button (or buttons) to the page Ç4/10/00; 12:17:54 AM by JES - added localization local (editableInFrontier = false); Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button Çbundle //old code Çadd ("<hr><b>Frontier 6 Alphas</b><p>") Çadd ("According to our records, you are a Frontier 6 alpha tester, and you created the message that you're viewing. That means that you can edit this message using Frontier 6's wrapping headlines outliner.") Çadd ("To use this feature, be sure Frontier is running, and you have suites.editorial installed. Then click on the following link. <i>Please follow the instructions carefully.</i><p>") Çadd ("<a href=\"" + pta^.responderattributes.urls^.discussEditInFrontier + msgnum + "\">Edit message #" + msgnum + " in Frontier</a>") Çadd ("<font size=\"-2\"><br>You can edit this message<br>because you are a Frontier 6<br>alpha tester and you are<br>the author of this message.</font>") Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum) Ç ÇBuild the Edit in Frontier button. Çadd ("<td valign=\"middle\"><center>"); indentLevel++ Çadd ("<form method=\"POST\" action=\"" + url + "\">"); indentLevel++ Çadd ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">") Çadd ("<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">") Çadd ("</form>"); indentLevel-- Çadd ("</center></td>"); indentLevel-- Ç ÇeditableInFrontier = true bundle { //edit in web browser button if editPageURL == "" { editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser}; add ("<td valign=\"middle\"><center>"); indentLevel++; add ("<form method=\"post\" action=\"" + editPageURL + msgNum + "\">"); indentLevel++; add ("<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\" />"); local (buttonValue = mainResponder.getString ("discuss.editThisPage")); if editableInFrontier { buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser add (" ")}; add ("<input type=\"submit\" value=\"" + buttonValue + "\" />"); add ("</form>"); indentLevel--; add ("</center>"); bundle { //PBS 01/13/00: Add the Edit in Pike button if defined (pta^.responderAttributes.urls^.editInPike) { ÇPike support is a feature not of mainResponder but of Manila. However, this script, which displays the discussion group message and the Edit this Page, needs to be Pike-aware enough to display the Pike button. Çif manilaSuite.pike.memberHasPike (pta) Çlocal (editInPikeUrl = pta^.responderAttributes.urls^.editInPike) Çif not (editInPikeUrl endsWith "$") ÇeditInPikeUrl = editInPikeUrl + "$" ÇeditInPikeUrl = editInPikeUrl + msgNum Çlocal (adrSite = pta^.adrSiteRootTable) Çlocal (adrMember = pta^.adrMemberInfo) Çadd (manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta)) //true because this is a message add (manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta))}}; //PBS 11/27/00: pta is named parameter add ("</td>"); indentLevel--}}; bundle { //put up message headers section Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") local (flByline = flStoryHeaderOnly); //PBS 06/22/00: message table can over-ride byline display if defined (adrMsgTable^.flByline) { //an attribute in the message table can over-ride the site setting if not adrMsgTable^.flByline { flByline = false} else { flByline = true}}; if flByline and !flShowAuthor { //07/13/00 JES: added !flShowAuthor -- never show a Byline if we have an Author header ÇSupport DaveNet-style bylines: PBS 6/11/99 ÇLike: Friday, June 11, 1999; by Dave Winer (no link to author) if defined (pta^.readMessageBylineFormat) and string.lower (pta^.readMessageBylineFormat) == "davenet" { bundle { local { name = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member)}; add ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}; Çbundle // old code Çlocal (adrMember = mainResponder.members.getMemberTable (membershipGroup, adrMsgTable^.member)) Çlocal (name = nameOf (adrMember^)) // 10/05/05; 7:01:56 PM by PR default to the member key Çif defined (adrMember^.personalInfo.name) Çname = adrMember^.personalInfo.name Çelse Çif name contains '@' Çname = string.replace (string.mid (name, 1, string.patternMatch ('@', name)+2) + "...", '@', "@") Çadd ("<i>" + mainResponder.macros.byline (name, adrMsgTable^.postTime, "DaveNet") + "</i>")}} else { // standard byline format local (authorLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys)); add ("<i>" + mainResponder.macros.byline (authorLink, adrMsgTable^.postTime) + "</i>")}}; local (flDoHeaders = false); //PBS 10/5/99: fix for blank headers section, which messages up the formatting if flEditButtonsAtTop { flDoHeaders = true} else { if flShowMessageHeaders { case true { flShowAuthor; flShowPostTime; flShowMsgNums; flShowEnclosure; flShowReads { flDoHeaders = true}}}}; if flDoHeaders { //PBS 10/5/99: was: if (flShowMessageHeaders or flEditButtonsAtTop) add ("<p />");; add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; add ("<tr>"); indentLevel++; if flShowMessageHeaders { //add author, posted, msg#, etc add ("<td>"); indentLevel++; add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; on tr (label, val) { add ("<tr>"); indentLevel++; add ("<td valign=\"top\"><font size=\"+0\"><b>" + label + "</b> </font></td>"); add ("<td valign=\"top\"><font size=\"+0\">" + val + "</font></td>"); add ("</tr>"); indentLevel--}; on msgLink (msgNum) { return ("<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + msgNum + "</a>")}; if flShowAuthor { tr (mainResponder.getString ("discuss.authorHeader"), mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, true, useMap: flUseMappedMemberKeys))}; // 4/13/00 JES: localized the header if flShowPostTime { tr (mainResponder.getString ("discuss.postedHeader"), mainResponder.localization.dateTimeString (adrMsgTable^.postTime))}; // 4/13/00 JES: localized the header and the date if flShowMsgNums and (adrMsgTable^.inResponseTo > 0) { //spit out the Topic line local (nomad = adrMsgTable); while (nomad^.inResponseTo > 0) { nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo)}; tr (mainResponder.getString ("discuss.topicHeader"), "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + nomad^.msgNum + searchArgs + "\">" + nomad^.subject + "</a>")}; // 4/13/00 JES: localized the header if flShowMsgNums { // put out the Msg# line local (val = msgNum); if adrMsgTable^.inResponseTo > 0 { try { local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list replacementTable.msglink = msgLink (adrMsgTable^.inResponseTo); val = val + " (" + mainResponder.getString ("discuss.inResponseTo", @replacementTable) + ")"}} // 4/13/00 JES: localized the header else { val = val + " (" + mainResponder.getString ("discuss.topMsgInThread") + ")"}; // 4/13/00 JES: localized tr (mainResponder.getString ("discuss.msgNumHeader"), val)}; if flShowEnclosure { //regurgitate the Enclosure line Çhttp://discuss.userland.com/enclosures/view$868 local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum); Ç4/13/00; 5:52:43 PM by JES: localized enclosure text local (listingLink = "<a href=\"" + viewingUrl + "\">" + mainResponder.getString ("discuss.viewEnclosure") + "</a>"); local (fatPageLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureDownloader + msgNum + "\">" + mainResponder.getString ("discuss.fatPageEnclosure") + "</a>"); local (rpcLink = "<a href=\"" + pta^.responderAttributes.urls^.discussEnclosureRPCer + msgNum + "\">" + mainResponder.getString ("discuss.RPCenclosure") + "</a>"); tr (mainResponder.getString ("discuss.enclosureHeader"), listingLink + ", " + fatPageLink + ", " + rpcLink)}; if flShowMsgNums { //throw up Prev/Next local (ixPrev = -1, ixNext = -1); local (ixLastMsg = adrData^.prefs.nextMsgNum - 1); for i = (msgNum - 1) downTo 1 { //find the previous message local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData)); if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) { ixPrev = i; break}}; for i = (msgNum + 1) to ixLastMsg { //find the next message local (adrMsg = mainResponder.discuss.getMessageTable (i, pta, adrData)); if not (mainResponder.discuss.isMessageDeleted (i, adrMsg, pta:pta)) { ixNext = i; break}}; Ç4/13/00; 5:53:22 PM by JES: localized next/prev header and link display if ixPrev == -1 { if ixNext != -1 { tr (mainResponder.getString ("discuss.nextMsgHeader"), msgLink (ixNext))}} else { if ixNext == -1 { if ixPrev != -1 { tr (mainResponder.getString ("discuss.prevMsgHeader"), msgLink (ixPrev))}} else { local (replacementTable); new (tableType, @replacementTable); // 05/01/00 JES: use replacement table instead of a list replacementTable.prevmsglink = msgLink (ixPrev); replacementTable.nextmsglink = msgLink (ixNext); tr (mainResponder.getString ("discuss.prevNextMsgHeader"), mainResponder.getString ("discuss.prevNextMsgNums", @replacementTable))}}}; if flShowReads { //show the number of times this message has been read tr (mainResponder.getString ("discuss.readsHeader"), adrMsgTable^.ctReads)}; // 4/13/00 JES: localized add ("</table>"); indentLevel--; add ("</td>"); indentLevel--}; if flEditButtonsAtTop { //add edit in Frontier button, possibly other stuff if (flStoryHeaderOnly or flShowMessageHeaders) { //add a bit of horizontal space add ("<td width=\"50\"> </td>")}; addEditButtons ()}; add ("</tr>"); indentLevel--; add ("</table>"); indentLevel--; add ("<p />")} else { add ("<p />")}}; bundle { //add the body of the story local (flCallbackReturnedBody = false); if adrGetBodyCallback != nil { local (s); s = adrGetBodyCallback^ (adrMsgTable); if s != "" { add (s); flCallbackReturnedBody = true}}; if not flCallbackReturnedBody { bundle { //PBS 10/20/99: if an image is attached to this message, display it above the body if defined (adrMsgTable^.image) { if defined (pta^.responderAttributes.urls^.imageViewer) { //must be defined: it's the link to the imageViewer script ÇThe imageViewer script takes a msgNum as pathArgs and displays the picture attached to that dg message. add (mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum)); add ("<p />")}}}; if typeOf (adrMsgTable^.body) == outlineType { //outlines get passed through an outline renderer local (oldRenderOutlineWith = nil); if defined (pta^.renderOutlineWith) { oldRenderOutlineWith = pta^.renderOutlineWith}; if defined (pta^.renderDiscussOutlinesWith) { pta^.renderOutlineWith = pta^.renderDiscussOutlinesWith}; if defined (pta^.flReadMessageProcessMacros) and pta^.flReadMessageProcessMacros { try {add (html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta))}} else { if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls { try {add (html.tenderRender (@adrMsgTable^.body))}} else { //default, original behavior try {add (html.expandURLs (html.tenderRender (@adrMsgTable^.body)))}}}; if oldRenderOutlineWith != nil { pta^.renderOutlineWith = oldRenderOutlineWith}} else { //it's not an outline local (s = string (adrMsgTable^.body)); s = string.replaceAll (s, "\n", ""); //2/15/99 DW, inside <pre>s these cause extra line-skips if not (defined (pta^.flReadMessageAutoParagraphs)) or pta^.flReadMessageAutoParagraphs { s = string.replaceAll (s, "\r\r", "\r\r<p />")}; if not (defined (pta^.flReadMessageProcessMacros)) or pta^.flReadMessageProcessMacros { s = html.processMacros (s, false, pta); }; Çadd ("<font size=\"+0\">" + s + "</font>") add (s)}}}; //PBS 11/18/99: removed <font> tags from around message text, as they didn't do anything, but made it harder for a designer to specify the font for the page if flEditButtonsAtBottom { //add edit buttons to the bottom add ("<p />"); add ("<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">"); indentLevel++; add ("<tr>"); indentLevel++; addEditButtons (); add ("</tr>"); indentLevel--; add ("</table>"); indentLevel--; add ("<p />")}; if flShowCowSkullLink { //add cowskull link to standard msgReader page ÇThe cowskull link is a link to the discussion group interface version of this page. try {add ("<p>\r<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + "\">" + mainResponder.discuss.cowSkullImage (pta) + "</a>\r</p>")}}; if flResponses { //list message response structure Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") if sizeof (adrMsgTable^.responses) > 0 { local (stack = {}); on addResponses (adrItem) { local (adrTable, msgNum, replyMember, i, ct = sizeOf (adrItem^.responses), flDeleted); add ("<ul>"); indentLevel++; for i = ct downTo 1 { msgNum = adrItem^.responses [i]; if stack contains msgNum { //avoid infinite recursion continue; }; adrTable = mainResponder.discuss.getMessageTable (msgNum, pta, adrData); if not defined (adrTable^) { continue}; if not (mainResponder.discuss.isMessageDeleted (msgNum, adrTable, pta)) { replyMember = mainResponder.members.getMemberName (membershipGroup, adrTable^.member); add ("<li><a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + searchArgs + "\">" + adrTable^.subject + "</a>, " + replyMember + ", " + mainResponder.localization.dateTimeString (adrTable^.postTime, pta: pta) + "<p />"); // 4/13/00 JES: localized the date display if sizeof (adrTable^.responses) > 0 { stack = stack + {adrTable^.msgNum}; addResponses (adrTable); delete (@stack [sizeof (stack)])}}}; add ("</ul>"); indentLevel--; }; add ("<p /><hr /><b>" + mainResponder.getString ("discuss.thereAreResponsesToThisMsg") + "</b>"); addResponses (adrMsgTable)}}; //it's recursive if flResponseForm { //provide a response form Ç4/10/00; 12:17:54 AM by JES - added localization Çbundle // non-localized version Çadd ("<i>" + date.abbrevString (adrMsgTable^.postTime) + "; by " + name + ".</i>") if flMember { //only members can add messages local (subject = adrMsgTable^.subject); if not (string.lower (subject) beginswith string.lower (string.trimWhiteSpace (mainResponder.getString ("discuss.rePrefix")))) { subject = mainResponder.getString ("discuss.rePrefix") + subject}; local (subjectprompt, buttontext, bodyprompt); subjectprompt = mainResponder.getString ("discuss.responseSubjectPrompt"); buttontext = mainResponder.getString ("discuss.postResponseButtonText"); bodyprompt = mainResponder.getString ("discuss.responseBodyPrompt"); add ("<p /><hr />"); add (mainResponder.discuss.newMessageForm (msgNum, subject, subjectprompt, buttontext, bodyprompt: bodyprompt, pta: pta))}}; bundle { //set member info ÇFor every member, store the highest message read for the current discussion group. ÇFirst make sure the discussionGroupInfo table exists for this member, then make sure there's a table for this dg, then set highestMessageRead for this dg for this member. if flMember { //is this a member? local (adrMember = pta^.adrMemberInfo); if not defined (adrMember^.discussionGroupInfo) { new (tabletype, @adrmember^.discussionGroupInfo)}; local (rootName = nameOf (adrData^)); local (adrTable = @adrMember^.discussionGroupInfo.[rootName]); if not defined (adrTable^) { new (tableType, adrTable)}; if not defined (adrTable^.highestMessageRead) { adrTable^.highestMessageRead = 0}; if msgNum > adrTable^.highestMessageRead { adrTable^.highestMessageRead = msgNum}}}; return (htmlText)} \ No newline at end of file |