[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/discuss readMessage,1.3,1.4 renderOneMessage,1.1.1.1,1.2 newMessageForm,1.1.1.1,1.2 cowSkullImage,1.1.1.1,1.2

[creedon <icr...@us...>]

Update of /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9631

Modified Files:
	readMessage renderOneMessage newMessageForm cowSkullImage 
Log Message:
changes for xhtml compliance

Index: renderOneMessage
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/renderOneMessage,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** renderOneMessage	26 Mar 2005 21:45:43 -0000	1.1.1.1
--- renderOneMessage	26 Nov 2005 19:37:51 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.discuss.renderOneMessage
  
! on renderOneMessage (adrMsgTable, adrTemplate, flShowAuthor=true, flShowPostTime=true, flShowReadCount=true, flShowResponseCount=true, flShowEnclosures=true, flShowResponseForm=true, flShowCowSkullLink=false, editPageUrl="", adrData=nil, bgColor="ivory", otherColor="beige", headerColor="black", headerTextColor="ivory", adrGetBodyCallback=nil, adrGetTimeCallback=nil, cssPrefix="", y=nil, m=nil, d=nil, defaultMode="day", responseItemTemplate=nil, responseListHeader=nil, responseListFooter=nil, responseIndentTemplate=nil, responseSubThreadStartTemplate=nil, responseSubThreadEndTemplate=nil, pta=nil, userIcon=nil, adrInDgCallback=nil, depthToExpandResponses=0, flResponsesInChronologicalOrder=false, responseFullItemTemplate=nil, flUseMappedMemberKeys=false) {
	ÇRender a single message in a thread, flowing through a template if specified.
		Ç10/11/00; 10:30:27 PM by JES
	ÇChanges:
		Ç4/8/03; 11:43:18 PM by JES
			ÇAdded support for the {ipAddress} pseudo-macro in the template.
		Ç4/4/02; 1:07:05 AM by JES
			ÇNew optional parameter, adrInDgCallback, is the address of a callback which determines whether a message should be included in the rendering. If the callback returns true, add the message. If it returns false, don't add the message.
			ÇMore new optional params: depthToExpandResponses, flResponsesInChronologicalOrder and responseFullItemTemplate, used for displaying the full text of responses in the response list. These support the Slashdot-style discussion group renderings.
		Ç10/18/01; 11:11:11 AM by PBS
			ÇDon't use IP address when constructing URLs to built-in icons. Fixes a bug with machines with multiple IP addresses.
		Ç11/21/00; 6:04:09 PM by PBS
			ÇUse new bottleneck for displaying edit message in Pike button.
		Ç10/18/00; 10:48:50 PM by JES
			ÇCommented out code that adds the Edit in Frontier button.
		Ç10/14/00; 2:29:42 PM by JES
			ÇAdded 'in response to xxx' to the msg number when rendered in a template.
		Ç10/13/00; 12:05:00 AM by JES
			ÇAdded support for template-based rendering.
	
	bundle { // get pta, adrData, y, m and d
		if pta == nil {
			pta = html.getPageTableAddress ()};
		if adrData == nil {
			adrData = mainResponder.discuss.openRoot (pta)};
		if y == nil {
			y = date.year ()};
		if m == nil {
			m = date.month ()};
		if d == nil {
			d = date.day ()}};
	bundle { //increment read stats on the top message
		adrMsgTable^.ctReads++;
		config.mainResponder.stats.ctDiscussionGroupReads++};
	
	local (flMember = defined (pta^.adrMemberInfo));
	local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup);
	local (flCss = (cssPrefix != ""));
	local (msgReaderUrl = pta^.urls^.discussMsgReader);
	if not (msgReaderUrl endsWith "$") {
		msgReaderUrl = msgReaderUrl + "$"};
	
	on buildSearchArgs (adrArgTable) {
		local (ct = sizeOf (adrArgTable^), i, s = "?");
		for i = 1 to ct {
			s = s + nameOf (adrArgTable^[i]) + "=" + adrArgTable^[i] + "&"};
		s = string.mid (s, 1, sizeOf (s) - 1);
		return (s)};
	
	local (mode, thisModeSearchArgs, otherModeSearchArgs, replyToThisSearchArgs, flShowResponses=true);
	bundle { // get the mode, and the search args for preserving and switching the mode
		local (searchArgs = "", argTable);
		new (tableType, @argTable);
		bundle { //parse search args
			if defined (pta^.searchArgs) {
				searchArgs = pta^.searchArgs};
			webserver.parseArgs (searchArgs, @argTable)};
		if not defined (argTable.mode) {
			argTable.mode = defaultMode};
		bundle { //user-specifiable search args
			if defined (argTable.showResponses) {
				flShowResponses = boolean (argTable.showResponses)};
			if defined (argTable.expandToDepth) {
				depthToExpandResponses = number (argTable.expandToDepth)};
			if defined (argTable.newestFirst) {
				flResponsesInChronologicalOrder = not boolean (argTable.newestFirst)}};
		bundle { //this mode search args
			argTable.mode = string.lower (argTable.mode);
			mode = argTable.mode;
			thisModeSearchArgs = buildSearchArgs (@argTable)};
		bundle { //reply to this search args
			local (replyArgsTable = argTable);
			replyArgsTable.showResponses = false;
			replyToThisSearchArgs = buildSearchArgs (@replyArgsTable)};
		bundle { //other mode search args
			local (otherModeArgsTable = argTable);
			if otherModeArgsTable.mode == "day" {
				otherModeArgsTable.mode = "topic"}
			else {
				otherModeArgsTable.mode = "day"};
			otherModeSearchArgs = buildSearchArgs (@otherModeArgsTable)}};
	
	local (htmltext);
	local (msgnum = adrMsgTable^.msgnum);
	local (template);
	if adrTemplate != nil {
		template = string (adrTemplate^)};
	
	local (userIconUrl, userIconHeight = 16, userIconWidth = 16);
	local (internalLinkImgUrl, internalLinkImgWidth = 11, internalLinkImgHeight = 9, internalLinkUrl);
	bundle { // build image data for internal link arrows and message status icons
		Çlocal (myDottedId = tcp.myDottedId ())
		Çlocal (myPort = user.inetd.config.http.port)
		Çlocal (portString = "")
		Çif myPort != 80
			ÇportString = ":" + myPort
		Çlocal (resourcesUrl = "http://" + myDottedId + portString + "/mainResponderResources/")
		local (resourcesUrl = "/mainResponderResources/");
		
		internalLinkImgUrl = resourcesUrl + "icons/leftArrow";
		internalLinkUrl = pta^.responderAttributes.urls^.discussMsgReader;
		if not (internalLinkUrl endsWith '$') {
			internalLinkUrl = internalLinkUrl + "$"};
		ÇinternalLinkUrl = internalLinkUrl + msgNum + "#"
		userIconUrl = resourcesUrl + "icons/user";
		
		ÇmsgIconUrl = resourcesUrl + "icons/message"
		if userIcon == nil {
			userIcon = "<img src=\"" + userIconUrl + "\" height=\"" + userIconHeight + "\" width=\"" + userIconWidth + "\" border=\"0\" alt=\"user\">"}};
	
	local (cowskullImg = mainResponder.discuss.cowSkullImage (pta), cowskullLink);
	bundle { // get the cowskull link html
		cowskullLink = "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + otherModeSearchArgs + "\">" + cowskullImg + "</a>"};
	
	on add (s) {
		htmlText = htmlText + s};
	on countResponses (adrMsgTable) { // count all the responses in a thread
		local (responseCount);
		local (i, ct = sizeOf (adrMsgTable^.responses));
		responseCount = ct;
		for i = 1 to ct {
			local (adrResponse = @adrData^.messages.[string.padWithZeros (adrMsgTable^.responses[i], 7)]);
			if sizeOf (adrResponse^.responses) {
				responseCount = responseCount + countResponses (adrResponse)}};
		return (responseCount)};
	on getBody (adrMsgTable) { // get the body of the message, calling callbacks if necessary
		local (body, flCallbackReturnedBody = false);
		if adrGetBodyCallback != nil {
			body = adrGetBodyCallback^ (adrMsgTable);
			if body != "" {
				Çadd (body)
				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.
						body = body + mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum);
						body = body + "<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 {body = body + html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta)}}
				else {
					if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls {
						try {body = body + html.tenderRender (@adrMsgTable^.body)}}
					else { //default, original behavior
						try {body = body + 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)};
				body = body + s}};
		return (body)};
	on getEditButtons () { //add Edit button (or buttons) to the page
		local (s, editableInFrontier = false);
		
		Çs = s + "<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" bgcolor=\"white\"><tr>"
		Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button
			Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum)
			Ç
			ÇBuild the Edit in Frontier button.
			Çs = s + "<td valign=\"baseline\">"
			Çs = s + "<form method=\"POST\" action=\"" + url + "\">"
			Çs = s + "<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">"
			Çs = s + "&nbsp;<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">"
			Çs = s + "</form>"
			Çs = s + "</td>"
			Ç
			ÇeditableInFrontier = true
		bundle { //edit in web browser button
			if editPageURL == "" {
				editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser};
			
			Çs = s + "<td valign=\"baseline\">"
			
			s = s + "<form method=\"POST\" action=\"" + editPageURL + msgNum + "\">";
			s = s + "<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">";
			local (buttonValue = "&nbsp;" + mainResponder.getString ("discuss.editThisPage") + "&nbsp;");
			
			if editableInFrontier {
				buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser
				s = s + "&nbsp;"};
			
			s = s + "&nbsp;<input type=\"submit\" value=\"" + buttonValue + "\">";
			s = s + "</form>";
			
			};Çs = s + "</td>"
		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 messages and the Edit this Page button, 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)
					Ç
					Çs = s + "<td valign=\"baseline\">"
					Çs = s + "&nbsp;" + manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta) //true because this is a message
					Çs = s + "</td>"
			s = s + "&nbsp;" + manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta)}; //PBS 11/21/00: use new bottleneck for displaying edit message in Pike button
		Çs = s + "</tr></table>"
		
		return (s)};
	on getTopicMsgTable () {
		local (nomad = adrMsgTable);
		while nomad^.inResponseTo > 0 {
			Çnomad = @adrData^.messages.[string.padWithZeros (nomad^.inResponseTo, 7)]
			nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo, pta, adrData)};
		return (nomad)};
	on getNextMsgNum () {
		local (lastMsgNum = adrData^.prefs.nextMsgNum - 1);
		local (nomad, nextMsgNum = msgNum + 1);
		while nextMsgNum <= lastMsgNum {
			nomad = mainResponder.discuss.getMessageTable (nextMsgNum, pta, adrData);
			if not (mainResponder.discuss.isMessageDeleted (nextMsgNum, nomad, pta:pta)) {
				if adrInDgCallback == nil {
					return (nextMsgNum)}
				else {
					local (adrmsg = mainResponder.discuss.getMessageTable (nextMsgNum, pta));
					if adrInDgCallback^ (adrmsg) {
						return (nextMsgNum)}}};
			nextMsgNum++};
		return (0)};
	on getPrevMsgNum () {
		local (nomad, prevMsgNum = msgNum - 1);
		while prevMsgNum > 0 {
			nomad = mainResponder.discuss.getMessageTable (prevMsgNum, pta, adrData);
			if not (mainResponder.discuss.isMessageDeleted (prevMsgNum, nomad, pta:pta)) {
				if adrInDgCallback == nil {
					return (prevMsgNum)}
				else {
					local (adrmsg = mainResponder.discuss.getMessageTable (prevMsgNum, pta));
					if adrInDgCallback^ (adrmsg) {
						return (prevMsgNum)}}};
			prevMsgNum--};
		return (prevMsgNum)};
	on obscureEmail (s, link=false) {
		if s contains '@' {
			local (part1 = string.nthField (s, '@', 1));
			local (part2 = string.nthField (s, '@', 2));
			if link {
				return ("<a href=\"mailto:" + s + "\">" + part1 + "&#64;" + part2[1] + "...</a>")}
			else {
				return (part1 + "&#64;" + part2[1] + "...")}};
		return (s)};
	
	if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) {
		return ("")};
	
	bundle { //calculate enclosure and edit buttons display flags
		flShowEnclosures = flShowEnclosures and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != ""));
		flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo, pta)))};
	
	if adrTemplate == nil { //render the message in default fashion
		bundle { //add member, internal link, read count and date
			if flCss { // the header row and cell
				add ("<tr class=\"" + cssPrefix + "HeaderRow\">");
				add ("<td class=\"" + cssPrefix + "AuthorCell\">")}
			else {
				add ("<tr><td>")};
			
			bundle { // the header table
				add ("<table bgcolor=\"" + othercolor + "\" cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tr><td>");
				
				if flShowAuthor {
					add (mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, hideEmail: true, useMap:flUseMappedMemberKeys))}
				else {
					add ("&nbsp;")};
				bundle { // add internal link
					add ("<a name=\"" + msgNum + "\">&nbsp;</a>");
					add ("<a href=\"" + internalLinkUrl + msgNum + "?y=" + y + "&amp;m=" + m + "&amp;d=" + d + "\" title=\"Permanent link to this message in archives.\">");
					add ("<img src=\"" + internalLinkImgUrl + "\" height=\"" + internalLinkImgHeight + "\" width=\"" + internalLinkImgWidth + "\" border=\"0\" alt=\"blueArrow\"></a>")};
				
				if flShowReadCount or flShowResponseCount {
					local (s = "&nbsp;(");
					if flShowReadCount {
						s = s + adrMsgTable^.ctReads + "&nbsp;read";
						if adrMsgTable^.ctReads != 1 {
							s = s + "s"};
						if flShowResponseCount {
							s = s + ",&nbsp;"}};
					if flShowResponseCount {
						local (responses = countResponses (adrMsgTable));
						s = s + responses + "&nbsp;response";
						if responses != 1 {
							s = s + "s"}};
					s = s + ")";
					add ("<font size=\"-1\">" + s + "</font>")};
				add ("</td>");
				
				if flCss { // the post time cell and font
					add ("<td class=\"" + cssPrefix + "DateCell\" align=\"right\"><font size=\"-1\">")}
				else {
					add ("<td align=\"right\" width=\"100%\"><font size=\"-1\">")};
				if flShowPostTime {
					local (postTime = adrMsgTable^.postTime);
					if adrGetTimeCallback != nil {
						postTime = adrGetTimeCallback^ (postTime)};
					add (mainResponder.localization.abbrevDateString (postTime, pta) + " " + mainResponder.localization.timeString (postTime, pta))}
				else {
					add ("&nbsp;")};
				add ("</font></td>");
				
				add ("</table>")};
			
			add ("</td></tr>");
			
			};Çadd ("</font></td></tr>")
		bundle { //add the body of the message
			if flCss { // the row and cell containing the body of the message
				add ("<tr bgcolor=\"white\" class=\"" + cssPrefix + "BodyRow\">");
				add ("<td class=\"" + cssPrefix + "BodyCell\">")}
			else {
				add ("<tr bgcolor=\"white\"><td>")};
			
			bundle { // the body table
				add ("<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tr><td>");
				
				add (getBody (adrMsgTable));
				
				if flShowEditButtons {
					add (getEditButtons ())};
				
				if flShowCowSkullLink { //add cowskull link to standard msgReader page
					ÇThe cowskull link is a link to the discussion group interface version of this page.
					add ("<p>" + cowskullLink + "</p>")};
				
				add ("</td></tr></table>")};
			
			add ("</td></tr>")}}
	else { //flow the message through the template, and add it
		local (s = template, lowerTemplate = string.lower (template));
		
		bundle { // replace bgcolor, headerColor and headerTextColor
			s = string.replaceAll (s, "{bgcolor}", otherColor, false);
			s = string.replaceAll (s, "{headerColor}", headerColor, false);
			s = string.replaceAll (s, "{headerTextColor}", headerTextColor, false)};
		bundle { // replace author
			local (memberLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, hideEmail: true, useMap:flUseMappedMemberKeys));
			s = string.replaceAll (s, "{author}", memberLink, false)};
		bundle { // replace authorIcon
			s = string.replaceAll (s, "{authorIcon}", userIcon, false)};
		bundle { // replace subject
			s = string.replaceAll (s, "{subject}", adrMsgTable^.subject, false)};
		bundle { // replace topic link -- this does a mode flip
			local (topicLink, topicMsgTable = getTopicMsgTable ());
			topicLink = "<a href=\"" + msgReaderUrl + topicMsgTable^.msgNum + otherModeSearchArgs + "\"";
			if flCss {
				topicLink = topicLink + " class=\"" + cssPrefix + "TopicLink\""};
			topicLink = topicLink + ">" + topicMsgTable^.subject + "</a>";
			s = string.replaceAll (s, "{topicLink}", topicLink, false)};
		bundle { // replace messageNumberLink -- this doea a mode flip
			local (msgNumLink = "<a href=\"" + msgReaderUrl + msgNum + otherModeSearchArgs + "\"");
			if flCss {
				msgNumLink = msgNumLink + " class=\"" + cssPrefix + "MessageNumberLink\""};
			msgNumLink = msgNumLink + ">" + msgNum + "</a>";
			s = string.replaceAll (s, "{messageNumberLink}", msgNumLink, false)};
		bundle { // replace inResponseToLink
			local (inResponseToLink);
			if adrMsgTable^.inResponseTo > 0 {
				local (replacementTable); new (tableType, @replacementTable);
				replacementTable.msglink = "<a href=\"" + msgReaderUrl + adrMsgTable^.inResponseTo + thisModeSearchArgs + "\">" + adrMsgTable^.inResponseTo + "</a>";
				inResponseToLink = mainResponder.getString ("discuss.inResponseTo", @replacementTable, pta: pta)}
			else {
				inResponseToLink = mainResponder.getString ("discuss.topMsgInThread", pta: pta)};
			s = string.replaceAll (s, "{inResponseToLink}", inResponseToLink, false)};
		bundle { // replace previousMessageLink
			local (prevMsgNum = getPrevMsgNum (), msgNumLink = "");
			if prevMsgNum {
				msgNumLink = "<a href=\"" + msgReaderUrl + prevMsgNum + thisModeSearchArgs + "\"";
				if flCss {
					msgNumLink = msgNumLink + " class=\"" + cssPrefix + "PreviousMessageLink\""};
				msgNumLink = msgNumLink + ">" + prevMsgNum + "</a>"};
			s = string.replaceAll (s, "{previousMessageLink}", msgNumLink, false)};
		bundle { // replace nextMessageLink
			local (nextMsgNum = getNextMsgNum (), msgNumLink = "");
			if nextMsgNum {
				msgNumLink = "<a href=\"" + msgReaderUrl + nextMsgNum + thisModeSearchArgs + "\"";
				if flCss {
					msgNumLink = msgNumLink + " class=\"" + cssPrefix + "NextMessageLink\""};
				msgNumLink = msgNumLink + ">" + nextMsgNum + "</a>"};
			s = string.replaceAll (s, "{nextMessageLink}", msgNumLink, false)};
		bundle { // replace postTime
			local (d = adrMsgTable^.postTime);
			if adrGetTimeCallback != nil {
				d = adrGetTimeCallback^ (d)};
			s = string.replaceAll (s, "{postTime}", d, false)};
		bundle { // replace readCount
			s = string.replaceAll (s, "{readCount}", adrMsgTable^.ctReads, false)};
		bundle { // replace response count
			if lowerTemplate contains "{responsecount}" { // this may be time-consuming if there are lots of responses
				s = string.replaceAll (s, "{responseCount}", countResponses (adrMsgTable), false)}};
		bundle { // replace editLink 
			if flShowEditButtons {
				s = string.replaceAll (s, "{editLink}", getEditButtons (), false)}
			else { // replace with the empty string
				s = string.replaceAll (s, "{editLink}", "", false)}};
		bundle { // replace discussLink -- this is the cowskull, and it's a mode flip
			if flShowCowSkullLink {
				s = string.replaceAll (s, "{discussLink}", cowskullLink, false)}
			else { // replace with the empty string
				s = string.replaceAll (s, "{discussLink}", "", false)}};
		bundle { // replace internal link
			local (internalLink);
			internalLink = internalLink + "<a name=\"" + msgNum + "\">&nbsp;</a>";
			internalLink = internalLink + "<a href=\"" + internalLinkUrl + msgNum + "?y=" + y + "&amp;m=" + m + "&amp;d=" + d + "\" title=\"Permanent link to this message in archives.\">";
			internalLink = internalLink + "<img src=\"" + internalLinkImgUrl + "\" height=\"" + internalLinkImgHeight + "\" width=\"" + internalLinkImgWidth + "\" border=\"0\" alt=\"blueArrow\"></a>";
			s = string.replaceAll (s, "{internalLink}", internalLink, false)};
		bundle { // replace responseList
			if lowerTemplate contains "{responselist}" { // short circuit if the template doesn't include a responseList macro because it may be time-consuming
				local (responseList = "");
				if flShowResponses {
					bundle { // set default templates, headers, etc.
						ÇIt's not ideal, but we check to see if the value of mini-templates equals nil, and also that the type == typeOf (nil). That way we can tell the difference between the empty string and not having passed in a value. This is because the empty string equals nil, but its type is stringType, not typeOf (nil)
						if responseListHeader == nil and typeOf (responseListHeader) == typeOf (nil) {
							responseListHeader = "<p><hr><b>" + mainResponder.getString ("discuss.thereAreResponsesToThisMsg") + "</b></p>"};
						if responseSubThreadStartTemplate == nil and typeOf (responseSubThreadStartTemplate) == typeOf (nil) {
							responseSubThreadStartTemplate = "<ul>"};
						if responseSubThreadEndTemplate == nil and typeOf (responseSubThreadEndTemplate) == typeOf (nil) {
							responseSubThreadEndTemplate = "</ul>"};
						if responseItemTemplate == nil and typeOf (responseItemTemplate) == typeOf (nil) {
							responseItemTemplate = "<li><p><a href=\"{responseUrl}\">{responseSubject}</a>, {responseAuthor}, {responsePostTime}</p></li>"};
						if responseFullItemTemplate == nil and typeOf (responseFullItemTemplate) == typeOf (nil) {
							responseFullItemTemplate = responseItemTemplate}};
					local (stack = {}); // keep track of which messages have been added to aviod infinite recursion
					on addResponses (adrItem, level = 0) {
						local (adrTable, msgNum, responseMember, i, ct = sizeOf (adrItem^.responses), itemHtml);
						local (flFullMessage = level <= (depthToExpandResponses - 1) ); //level is zero-based but the pref is 1-based
						
						if not flFullMessage { //add threadSubStartTemplate
							responseList = responseList + responseSubThreadStartTemplate};
						
						on addResponse () {
							msgNum = adrItem^.responses [i];
							if stack contains msgNum { //avoid infinite recursion
								continue;
								};
							adrTable = mainResponder.discuss.getMessageTable (msgNum, pta, adrData);
							if not defined (adrTable^) {
								continue};
							
							local (flAddMessage = not mainResponder.discuss.isMessageDeleted (msgNum, adrTable, pta) );
							Çif flAddMessage
								Çif adrInDgCallback != nil
									ÇflAddMessage = adrInDgCallback^ (adrTable)
							if flAddMessage {
								responseMember = mainResponder.members.getMemberName (membershipGroup, adrTable^.member);
								
								if flFullMessage {
									itemHtml = responseFullItemTemplate;
									if string.lower (responseFullItemTemplate) contains "{responsetext}" { //bump read count
										adrTable^.ctReads++;
										config.mainResponder.stats.ctDiscussionGroupReads++};
									itemHtml = string.replaceAll (itemHtml, "{responseText}", adrTable^.body, false)}
								else {
									itemHtml = responseItemTemplate;
									itemHtml = string.replaceAll (itemHtml, "{responseText}", "", false)};
								itemHtml = string.replaceAll (itemHtml, "{replyUrl}", msgReaderUrl + msgNum + replyToThisSearchArgs, false);
								itemHtml = string.replaceAll (itemHtml, "{responseUrl}", msgReaderUrl + msgNum + thisModeSearchArgs, false);
								itemHtml = string.replaceAll (itemHtml, "{responseSubject}", adrTable^.subject, false);
								itemHtml = string.replaceAll (itemHtml, "{responseAuthor}", obscureEmail (responseMember), false);
								itemHtml = string.replaceAll (itemHtml, "{responsePostTime}", mainResponder.localization.dateTimeString (adrTable^.postTime, pta: pta), false);
								itemHtml = string.replaceAll (itemHtml, "{responseMessageNumber}", adrTable^.msgNum, false);
								
								if responseIndentTemplate != "" { // work around kernel bug on windows: string.filledString ("", n) == crash.
									responseList = responseList + string.filledString (responseIndentTemplate, level)};
								responseList = responseList + itemHtml;
								
								if sizeof (adrTable^.responses) > 0 {
									stack = stack + {adrTable^.msgNum};
									addResponses (adrTable, level + 1);
									delete (@stack [sizeof (stack)])}}};
						if flResponsesInChronologicalOrder {
							for i = 1 to ct {
								addResponse ()}}
						else {
							for i = ct downTo 1 {
								addResponse ()}};
						
						if not flFullMessage { //add subThreadEntTemplate
							responseList = responseList + responseSubThreadEndTemplate};
						};
					if sizeOf (adrMsgTable^.responses) {
						responseList = responseListHeader;
						addResponses (adrMsgTable); //it's recursive
						responseList = responseList + responseListFooter}};
				s = string.replaceAll (s, "{responseList}", responseList, false)}};
		bundle { // replace messageText
			s = string.replaceAll (s, "{messageText}", getBody (adrMsgTable), false)};
		bundle { // replace responseForm
			local (responseForm = "", responseFormHeader = "<p><hr>", responseFormFooter = "");
			if flMember and flShowResponseForm {
				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");
				responseForm = responseFormHeader + mainResponder.discuss.newMessageForm (msgNum, subject, subjectprompt, buttontext, bodyprompt: bodyprompt, pta:pta) + responseFormFooter};
			s = string.replaceAll (s, "{responseForm}", responseForm, false)};
		bundle { // 11/03/00 JES: replace enclosureLink
			if flShowEnclosures {
				local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum);
				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>");
				
				s = string.replaceAll (s, "{enclosureLink}", listingLink + ", " + fatPageLink + ", " + rpcLink, false)}
			else {
				s = string.replaceAll (s, "{enclosureLink}", "", false)}};
		bundle { //replace ipAddress
			local (ipAddress = "");
			if defined (adrMsgTable^.ipAddress) {
				ipAddress = adrMsgTable^.ipAddress};
			s = string.replaceAll (s, "{ipAddress}", ipAddress, false)};
		
		add (s)};
	
	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.renderOneMessage
  
! on renderOneMessage (adrMsgTable, adrTemplate, flShowAuthor=true, flShowPostTime=true, flShowReadCount=true, flShowResponseCount=true, flShowEnclosures=true, flShowResponseForm=true, flShowCowSkullLink=false, editPageUrl="", adrData=nil, bgColor="ivory", otherColor="beige", headerColor="black", headerTextColor="ivory", adrGetBodyCallback=nil, adrGetTimeCallback=nil, cssPrefix="", y=nil, m=nil, d=nil, defaultMode="day", responseItemTemplate=nil, responseListHeader=nil, responseListFooter=nil, responseIndentTemplate=nil, responseSubThreadStartTemplate=nil, responseSubThreadEndTemplate=nil, pta=nil, userIcon=nil, adrInDgCallback=nil, depthToExpandResponses=0, flResponsesInChronologicalOrder=false, responseFullItemTemplate=nil, flUseMappedMemberKeys=false) {
	ÇChanges
		Ç11/24/05; 11:32:06 AM by TAC
			Çclose input, hr, and p tags
			Çlowercase form method POST for xhtml compatibility
		Ç10/9/03; 5:03:32 PM by TAC
			Çlocalize date time
		Ç4/8/03; 11:43:18 PM by JES
			ÇAdded support for the {ipAddress} pseudo-macro in the template.
		Ç4/4/02; 1:07:05 AM by JES
			ÇNew optional parameter, adrInDgCallback, is the address of a callback which determines whether a message should be included in the rendering. If the callback returns true, add the message. If it returns false, don't add the message.
			ÇMore new optional params: depthToExpandResponses, flResponsesInChronologicalOrder and responseFullItemTemplate, used for displaying the full text of responses in the response list. These support the Slashdot-style discussion group renderings.
		Ç10/18/01; 11:11:11 AM by PBS
			ÇDon't use IP address when constructing URLs to built-in icons. Fixes a bug with machines with multiple IP addresses.
		Ç2000
			Ç11/21/00; 6:04:09 PM by PBS
				ÇUse new bottleneck for displaying edit message in Pike button.
			Ç10/18/00; 10:48:50 PM by JES
				ÇCommented out code that adds the Edit in Frontier button.
			Ç10/14/00; 2:29:42 PM by JES
				ÇAdded 'in response to xxx' to the msg number when rendered in a template.
			Ç10/13/00; 12:05:00 AM by JES
				ÇAdded support for template-based rendering.
			Ç10/11/00; 10:30:27 PM by JES
				ÇRender a single message in a thread, flowing through a template if specified.
	
	bundle { // get pta, adrData, y, m and d
		if pta == nil {
			pta = html.getPageTableAddress ()};
		if adrData == nil {
			adrData = mainResponder.discuss.openRoot (pta)};
		if y == nil {
			y = date.year ()};
		if m == nil {
			m = date.month ()};
		if d == nil {
			d = date.day ()}};
	bundle { //increment read stats on the top message
		adrMsgTable^.ctReads++;
		config.mainResponder.stats.ctDiscussionGroupReads++};
	
	local (flMember = defined (pta^.adrMemberInfo));
	local (membershipGroup = pta^.responderAttributes.defaultMembershipGroup);
	local (flCss = (cssPrefix != ""));
	local (msgReaderUrl = pta^.urls^.discussMsgReader);
	if not (msgReaderUrl endsWith "$") {
		msgReaderUrl = msgReaderUrl + "$"};
	
	on buildSearchArgs (adrArgTable) {
		local (ct = sizeOf (adrArgTable^), i, s = "?");
		for i = 1 to ct {
			s = s + nameOf (adrArgTable^[i]) + "=" + adrArgTable^[i] + "&"};
		s = string.mid (s, 1, sizeOf (s) - 1);
		return (s)};
	
	local (mode, thisModeSearchArgs, otherModeSearchArgs, replyToThisSearchArgs, flShowResponses=true);
	bundle { // get the mode, and the search args for preserving and switching the mode
		local (searchArgs = "", argTable);
		new (tableType, @argTable);
		bundle { //parse search args
			if defined (pta^.searchArgs) {
				searchArgs = pta^.searchArgs};
			webserver.parseArgs (searchArgs, @argTable)};
		if not defined (argTable.mode) {
			argTable.mode = defaultMode};
		bundle { //user-specifiable search args
			if defined (argTable.showResponses) {
				flShowResponses = boolean (argTable.showResponses)};
			if defined (argTable.expandToDepth) {
				depthToExpandResponses = number (argTable.expandToDepth)};
			if defined (argTable.newestFirst) {
				flResponsesInChronologicalOrder = not boolean (argTable.newestFirst)}};
		bundle { //this mode search args
			argTable.mode = string.lower (argTable.mode);
			mode = argTable.mode;
			thisModeSearchArgs = buildSearchArgs (@argTable)};
		bundle { //reply to this search args
			local (replyArgsTable = argTable);
			replyArgsTable.showResponses = false;
			replyToThisSearchArgs = buildSearchArgs (@replyArgsTable)};
		bundle { //other mode search args
			local (otherModeArgsTable = argTable);
			if otherModeArgsTable.mode == "day" {
				otherModeArgsTable.mode = "topic"}
			else {
				otherModeArgsTable.mode = "day"};
			otherModeSearchArgs = buildSearchArgs (@otherModeArgsTable)}};
	
	local (htmltext);
	local (msgnum = adrMsgTable^.msgnum);
	local (template);
	if adrTemplate != nil {
		template = string (adrTemplate^)};
	
	local (userIconUrl, userIconHeight = 16, userIconWidth = 16);
	local (internalLinkImgUrl, internalLinkImgWidth = 11, internalLinkImgHeight = 9, internalLinkUrl);
	bundle { // build image data for internal link arrows and message status icons
		Çlocal (myDottedId = tcp.myDottedId ())
		Çlocal (myPort = user.inetd.config.http.port)
		Çlocal (portString = "")
		Çif myPort != 80
			ÇportString = ":" + myPort
		Çlocal (resourcesUrl = "http://" + myDottedId + portString + "/mainResponderResources/")
		local (resourcesUrl = "/mainResponderResources/");
		
		internalLinkImgUrl = resourcesUrl + "icons/leftArrow";
		internalLinkUrl = pta^.responderAttributes.urls^.discussMsgReader;
		if not (internalLinkUrl endsWith '$') {
			internalLinkUrl = internalLinkUrl + "$"};
		ÇinternalLinkUrl = internalLinkUrl + msgNum + "#"
		userIconUrl = resourcesUrl + "icons/user";
		
		ÇmsgIconUrl = resourcesUrl + "icons/message"
		if userIcon == nil {
			userIcon = "<img src=\"" + userIconUrl + "\" height=\"" + userIconHeight + "\" width=\"" + userIconWidth + "\" border=\"0\" alt=\"user\">"}};
	
	local (cowskullImg = mainResponder.discuss.cowSkullImage (pta), cowskullLink);
	bundle { // get the cowskull link html
		cowskullLink = "<a href=\"" + pta^.responderAttributes.urls^.discussMsgReader + msgNum + otherModeSearchArgs + "\">" + cowskullImg + "</a>"};
	
	on add (s) {
		htmlText = htmlText + s};
	on countResponses (adrMsgTable) { // count all the responses in a thread
		local (responseCount);
		local (i, ct = sizeOf (adrMsgTable^.responses));
		responseCount = ct;
		for i = 1 to ct {
			local (adrResponse = @adrData^.messages.[string.padWithZeros (adrMsgTable^.responses[i], 7)]);
			if sizeOf (adrResponse^.responses) {
				responseCount = responseCount + countResponses (adrResponse)}};
		return (responseCount)};
	on getBody (adrMsgTable) { // get the body of the message, calling callbacks if necessary
		local (body, flCallbackReturnedBody = false);
		if adrGetBodyCallback != nil {
			body = adrGetBodyCallback^ (adrMsgTable);
			if body != "" {
				Çadd (body)
				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.
						body = body + mainResponder.discuss.buildImageTag (adrMsgTable^.msgNum);
						body = body + "<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 {body = body + html.processMacros (html.tenderRender (@adrMsgTable^.body), false, pta)}}
				else {
					if defined (pta^.flReadMessageExpandUrls) and not pta^.flReadMessageExpandUrls {
						try {body = body + html.tenderRender (@adrMsgTable^.body)}}
					else { //default, original behavior
						try {body = body + 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)};
				body = body + s}};
		return (body)};
	on getEditButtons () { //add Edit button (or buttons) to the page
		local (s, editableInFrontier = false);
		
		Çs = s + "<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" bgcolor=\"white\"><tr>"
		Çif defined (pta^.adrMemberInfo^.isFrontierSixAlpha) //edit in Frontier button
			Çlocal (url = pta^.responderAttributes.urls^.discussEditInFrontier + msgNum)
			Ç
			ÇBuild the Edit in Frontier button.
			Çs = s + "<td valign=\"baseline\">"
			Çs = s + "<form method=\"POST\" action=\"" + url + "\">"
			Çs = s + "<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\">"
			Çs = s + "&nbsp;<input type=\"submit\" value=\"" + mainResponder.getString ("discuss.editInFrontier") + "\">"
			Çs = s + "</form>"
			Çs = s + "</td>"
			Ç
			ÇeditableInFrontier = true
		bundle { //edit in web browser button
			if editPageURL == "" {
				editPageURL = pta^.responderAttributes.urls^.discussEditInBrowser};
			
			Çs = s + "<td valign=\"baseline\">"
			
			s = s + "<form method=\"post\" action=\"" + editPageURL + msgNum + "\">";
			s = s + "<input name=\"msgnum\" type=\"hidden\" value=\"" + msgNum + "\" />";
			local (buttonValue = "&nbsp;" + mainResponder.getString ("discuss.editThisPage") + "&nbsp;");
			
			if editableInFrontier {
				buttonValue = mainResponder.getString ("discuss.editInBrowser"); //change button name from Edit this Page to Edit in Browser
				s = s + "&nbsp;"};
			
			s = s + "&nbsp;<input type=\"submit\" value=\"" + buttonValue + "\" />";
			s = s + "</form>";
			
			};Çs = s + "</td>"
		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 messages and the Edit this Page button, 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)
					Ç
					Çs = s + "<td valign=\"baseline\">"
					Çs = s + "&nbsp;" + manilaSuite.pike.pikeButton (editInPikeUrl, adrMsgTable, adrMember, adrSite, true, mainResponder.getString ("discuss.editThisStoryInPikeOutline"), pta) //true because this is a message
					Çs = s + "</td>"
			s = s + "&nbsp;" + manilaSuite.pike.editMessageButton (adrMsgTable, pta:pta)}; //PBS 11/21/00: use new bottleneck for displaying edit message in Pike button
		Çs = s + "</tr></table>"
		
		return (s)};
	on getTopicMsgTable () {
		local (nomad = adrMsgTable);
		while nomad^.inResponseTo > 0 {
			Çnomad = @adrData^.messages.[string.padWithZeros (nomad^.inResponseTo, 7)]
			nomad = mainResponder.discuss.getMessageTable (nomad^.inResponseTo, pta, adrData)};
		return (nomad)};
	on getNextMsgNum () {
		local (lastMsgNum = adrData^.prefs.nextMsgNum - 1);
		local (nomad, nextMsgNum = msgNum + 1);
		while nextMsgNum <= lastMsgNum {
			nomad = mainResponder.discuss.getMessageTable (nextMsgNum, pta, adrData);
			if not (mainResponder.discuss.isMessageDeleted (nextMsgNum, nomad, pta:pta)) {
				if adrInDgCallback == nil {
					return (nextMsgNum)}
				else {
					local (adrmsg = mainResponder.discuss.getMessageTable (nextMsgNum, pta));
					if adrInDgCallback^ (adrmsg) {
						return (nextMsgNum)}}};
			nextMsgNum++};
		return (0)};
	on getPrevMsgNum () {
		local (nomad, prevMsgNum = msgNum - 1);
		while prevMsgNum > 0 {
			nomad = mainResponder.discuss.getMessageTable (prevMsgNum, pta, adrData);
			if not (mainResponder.discuss.isMessageDeleted (prevMsgNum, nomad, pta:pta)) {
				if adrInDgCallback == nil {
					return (prevMsgNum)}
				else {
					local (adrmsg = mainResponder.discuss.getMessageTable (prevMsgNum, pta));
					if adrInDgCallback^ (adrmsg) {
						return (prevMsgNum)}}};
			prevMsgNum--};
		return (prevMsgNum)};
	on obscureEmail (s, link=false) {
		if s contains '@' {
			local (part1 = string.nthField (s, '@', 1));
			local (part2 = string.nthField (s, '@', 2));
			if link {
				return ("<a href=\"mailto:" + s + "\">" + part1 + "&#64;" + part2[1] + "...</a>")}
			else {
				return (part1 + "&#64;" + part2[1] + "...")}};
		return (s)};
	
	if mainResponder.discuss.isMessageDeleted (msgNum, adrMsgTable, pta) {
		return ("")};
	
	bundle { //calculate enclosure and edit buttons display flags
		flShowEnclosures = flShowEnclosures and (defined (adrMsgTable^.enclosureAddress) and (adrMsgTable^.enclosureAddress != ""));
		flShowEditButtons = (flMember and (mainResponder.discuss.memberCanEdit (adrMsgTable, pta^.adrMemberInfo, pta)))};
	
	if adrTemplate == nil { //render the message in default fashion
		bundle { //add member, internal link, read count and date
			if flCss { // the header row and cell
				add ("<tr class=\"" + cssPrefix + "HeaderRow\">");
				add ("<td class=\"" + cssPrefix + "AuthorCell\">")}
			else {
				add ("<tr><td>")};
			
			bundle { // the header table
				add ("<table bgcolor=\"" + othercolor + "\" cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tr><td>");
				
				if flShowAuthor {
					add (mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, hideEmail: true, useMap:flUseMappedMemberKeys))}
				else {
					add ("&nbsp;")};
				bundle { // add internal link
					add ("<a name=\"" + msgNum + "\">&nbsp;</a>");
					add ("<a href=\"" + internalLinkUrl + msgNum + "?y=" + y + "&amp;m=" + m + "&amp;d=" + d + "\" title=\"Permanent link to this message in archives.\">");
					add ("<img src=\"" + internalLinkImgUrl + "\" height=\"" + internalLinkImgHeight + "\" width=\"" + internalLinkImgWidth + "\" border=\"0\" alt=\"blueArrow\"></a>")};
				
				if flShowReadCount or flShowResponseCount {
					local (s = "&nbsp;(");
					if flShowReadCount {
						s = s + adrMsgTable^.ctReads + "&nbsp;read";
						if adrMsgTable^.ctReads != 1 {
							s = s + "s"};
						if flShowResponseCount {
							s = s + ",&nbsp;"}};
					if flShowResponseCount {
						local (responses = countResponses (adrMsgTable));
						s = s + responses + "&nbsp;response";
						if responses != 1 {
							s = s + "s"}};
					s = s + ")";
					add ("<font size=\"-1\">" + s + "</font>")};
				add ("</td>");
				
				if flCss { // the post time cell and font
					add ("<td class=\"" + cssPrefix + "DateCell\" align=\"right\"><font size=\"-1\">")}
				else {
					add ("<td align=\"right\" width=\"100%\"><font size=\"-1\">")};
				if flShowPostTime {
					local (postTime = adrMsgTable^.postTime);
					if adrGetTimeCallback != nil {
						postTime = adrGetTimeCallback^ (postTime)};
					add (mainResponder.localization.abbrevDateString (postTime, pta) + " " + mainResponder.localization.timeString (postTime, pta))}
				else {
					add ("&nbsp;")};
				add ("</font></td>");
				
				add ("</table>")};
			
			add ("</td></tr>");
			
			};Çadd ("</font></td></tr>")
		bundle { //add the body of the message
			if flCss { // the row and cell containing the body of the message
				add ("<tr bgcolor=\"white\" class=\"" + cssPrefix + "BodyRow\">");
				add ("<td class=\"" + cssPrefix + "BodyCell\">")}
			else {
				add ("<tr bgcolor=\"white\"><td>")};
			
			bundle { // the body table
				add ("<table cellpadding=\"5\" cellspacing=\"0\" border=\"0\" width=\"100%\"><tr><td>");
				
				add (getBody (adrMsgTable));
				
				if flShowEditButtons {
					add (getEditButtons ())};
				
				if flShowCowSkullLink { //add cowskull link to standard msgReader page
					ÇThe cowskull link is a link to the discussion group interface version of this page.
					add ("<p>" + cowskullLink + "</p>")};
				
				add ("</td></tr></table>")};
			
			add ("</td></tr>")}}
	else { //flow the message through the template, and add it
		local (s = template, lowerTemplate = string.lower (template));
		
		bundle { // replace bgcolor, headerColor and headerTextColor
			s = string.replaceAll (s, "{bgcolor}", otherColor, false);
			s = string.replaceAll (s, "{headerColor}", headerColor, false);
			s = string.replaceAll (s, "{headerTextColor}", headerTextColor, false)};
		bundle { // replace author
			local (memberLink = mainResponder.members.linkToMember (membershipGroup, adrMsgTable^.member, hideEmail: true, useMap:flUseMappedMemberKeys));
			s = string.replaceAll (s, "{author}", memberLink, false)};
		bundle { // replace authorIcon
			s = string.replaceAll (s, "{authorIcon}", userIcon, false)};
		bundle { // replace subject
			s = string.replaceAll (s, "{subject}", adrMsgTable^.subject, false)};
		bundle { // replace topic link -- this does a mode flip
			local (topicLink, topicMsgTable = getTopicMsgTable ());
			topicLink = "<a href=\"" + msgReaderUrl + topicMsgTable^.msgNum + otherModeSearchArgs + "\"";
			if flCss {
				topicLink = topicLink + " class=\"" + cssPrefix + "TopicLink\""};
			topicLink = topicLink + ">" + topicMsgTable^.subject + "</a>";
			s = string.replaceAll (s, "{topicLink}", topicLink, false)};
		bundle { // replace messageNumberLink -- this doea a mode flip
			local (msgNumLink = "<a href=\"" + msgReaderUrl + msgNum + otherModeSearchArgs + "\"");
			if flCss {
				msgNumLink = msgNumLink + " class=\"" + cssPrefix + "MessageNumberLink\""};
			msgNumLink = msgNumLink + ">" + msgNum + "</a>";
			s = string.replaceAll (s, "{messageNumberLink}", msgNumLink, false)};
		bundle { // replace inResponseToLink
			local (inResponseToLink);
			if adrMsgTable^.inResponseTo > 0 {
				local (replacementTable); new (tableType, @replacementTable);
				replacementTable.msglink = "<a href=\"" + msgReaderUrl + adrMsgTable^.inResponseTo + thisModeSearchArgs + "\">" + adrMsgTable^.inResponseTo + "</a>";
				inResponseToLink = mainResponder.getString ("discuss.inResponseTo", @replacementTable, pta: pta)}
			else {
				inResponseToLink = mainResponder.getString ("discuss.topMsgInThread", pta: pta)};
			s = string.replaceAll (s, "{inResponseToLink}", inResponseToLink, false)};
		bundle { // replace previousMessageLink
			local (prevMsgNum = getPrevMsgNum (), msgNumLink = "");
			if prevMsgNum {
				msgNumLink = "<a href=\"" + msgReaderUrl + prevMsgNum + thisModeSearchArgs + "\"";
				if flCss {
					msgNumLink = msgNumLink + " class=\"" + cssPrefix + "PreviousMessageLink\""};
				msgNumLink = msgNumLink + ">" + prevMsgNum + "</a>"};
			s = string.replaceAll (s, "{previousMessageLink}", msgNumLink, false)};
		bundle { // replace nextMessageLink
			local (nextMsgNum = getNextMsgNum (), msgNumLink = "");
			if nextMsgNum {
				msgNumLink = "<a href=\"" + msgReaderUrl + nextMsgNum + thisModeSearchArgs + "\"";
				if flCss {
					msgNumLink = msgNumLink + " class=\"" + cssPrefix + "NextMessageLink\""};
				msgNumLink = msgNumLink + ">" + nextMsgNum + "</a>"};
			s = string.replaceAll (s, "{nextMessageLink}", msgNumLink, false)};
		bundle { // replace postTime
			local (d = adrMsgTable^.postTime);
			if adrGetTimeCallback != nil {
				d = adrGetTimeCallback^ (d)};
			d = mainResponder.localization.dateTimeString (d, pta);
			s = string.replaceAll (s, "{postTime}", d, false)};
		bundle { // replace readCount
			s = string.replaceAll (s, "{readCount}", adrMsgTable^.ctReads, false)};
		bundle { // replace response count
			if lowerTemplate contains "{responsecount}" { // this may be time-consuming if there are lots of responses
				s = string.replaceAll (s, "{responseCount}", countResponses (adrMsgTable), false)}};
		bundle { // replace editLink 
			if flShowEditButtons {
				s = string.replaceAll (s, "{editLink}", getEditButtons (), false)}
			else { // replace with the empty string
				s = string.replaceAll (s, "{editLink}", "", false)}};
		bundle { // replace discussLink -- this is the cowskull, and it's a mode flip
			if flShowCowSkullLink {
				s = string.replaceAll (s, "{discussLink}", cowskullLink, false)}
			else { // replace with the empty string
				s = string.replaceAll (s, "{discussLink}", "", false)}};
		bundle { // replace internal link
			local (internalLink);
			internalLink = internalLink + "<a name=\"" + msgNum + "\">&nbsp;</a>";
			internalLink = internalLink + "<a href=\"" + internalLinkUrl + msgNum + "?y=" + y + "&amp;m=" + m + "&amp;d=" + d + "\" title=\"Permanent link to this message in archives.\">";
			internalLink = internalLink + "<img src=\"" + internalLinkImgUrl + "\" height=\"" + internalLinkImgHeight + "\" width=\"" + internalLinkImgWidth + "\" border=\"0\" alt=\"blueArrow\"></a>";
			s = string.replaceAll (s, "{internalLink}", internalLink, false)};
		bundle { // replace responseList
			if lowerTemplate contains "{responselist}" { // short circuit if the template doesn't include a responseList macro because it may be time-consuming
				local (responseList = "");
				if flShowResponses {
					bundle { // set default templates, headers, etc.
						ÇIt's not ideal, but we check to see if the value of mini-templates equals nil, and also that the type == typeOf (nil). That way we can tell the difference between the empty string and not having passed in a value. This is because the empty string equals nil, but its type is stringType, not typeOf (nil)
						if responseListHeader == nil and typeOf (responseListHeader) == typeOf (nil) {
							responseListHeader = "<p><hr /><b>" + mainResponder.getString ("discuss.thereAreResponsesToThisMsg") + "</b></p>"};
						if responseSubThreadStartTemplate == nil and typeOf (responseSubThreadStartTemplate) == typeOf (nil) {
							responseSubThreadStartTemplate = "<ul>"};
						if responseSubThreadEndTemplate == nil and typeOf (responseSubThreadEndTemplate) == typeOf (nil) {
							responseSubThreadEndTemplate = "</ul>"};
						if responseItemTemplate == nil and typeOf (responseItemTemplate) == typeOf (nil) {
							responseItemTemplate = "<li><p><a href=\"{responseUrl}\">{responseSubject}</a>, {responseAuthor}, {responsePostTime}</p></li>"};
						if responseFullItemTemplate == nil and typeOf (responseFullItemTemplate) == typeOf (nil) {
							responseFullItemTemplate = responseItemTemplate}};
					local (stack = {}); // keep track of which messages have been added to aviod infinite recursion
					on addResponses (adrItem, level = 0) {
						local (adrTable, msgNum, responseMember, i, ct = sizeOf (adrItem^.responses), itemHtml);
						local (flFullMessage = level <= (depthToExpandResponses - 1) ); //level is zero-based but the pref is 1-based
						
						if not flFullMessage { //add threadSubStartTemplate
							responseList = responseList + responseSubThreadStartTemplate};
						
						on addResponse () {
							msgNum = adrItem^.responses [i];
							if stack contains msgNum { //avoid infinite recursion
								continue;
								};
							adrTable = mainResponder.discuss.getMessageTable (msgNum, pta, adrData);
							if not defined (adrTable^) {
								continue};
							
							local (flAddMessage = not mainResponder.discuss.isMessageDeleted (msgNum, adrTable, pta) );
							Çif flAddMessage
								Çif adrInDgCallback != nil
									ÇflAddMessage = adrInDgCallback^ (adrTable)
							if flAddMessage {
								responseMember = mainResponder.members.getMemberName (membershipGroup, adrTable^.member);
								
								if flFullMessage {
									itemHtml = responseFullItemTemplate;
									if string.lower (responseFullItemTemplate) contains "{responsetext}" { //bump read count
										adrTable^.ctReads++;
										config.mainResponder.stats.ctDiscussionGroupReads++};
									itemHtml = string.replaceAll (itemHtml, "{responseText}", adrTable^.body, false)}
								else {
									itemHtml = responseItemTemplate;
									itemHtml = string.replaceAll (itemHtml, "{responseText}", "", false)};
								itemHtml = string.replaceAll (itemHtml, "{replyUrl}", msgReaderUrl + msgNum + replyToThisSearchArgs, false);
								itemHtml = string.replaceAll (itemHtml, "{responseUrl}", msgReaderUrl + msgNum + thisModeSearchArgs, false);
								itemHtml = string.replaceAll (itemHtml, "{responseSubject}", adrTable^.subject, false);
								itemHtml = string.replaceAll (itemHtml, "{responseAuthor}", obscureEmail (responseMember), false);
								itemHtml = string.replaceAll (itemHtml, "{responsePostTime}", mainResponder.localization.dateTimeString (adrTable^.postTime, pta: pta), false);
								itemHtml = string.replaceAll (itemHtml, "{responseMessageNumber}", adrTable^.msgNum, false);
								
								if responseIndentTemplate != "" { // work around kernel bug on windows: string.filledString ("", n) == crash.
									responseList = responseList + string.filledString (responseIndentTemplate, level)};
								responseList = responseList + itemHtml;
								
								if sizeof (adrTable^.responses) > 0 {
									stack = stack + {adrTable^.msgNum};
									addResponses (adrTable, level + 1);
									delete (@stack [sizeof (stack)])}}};
						if flResponsesInChronologicalOrder {
							for i = 1 to ct {
								addResponse ()}}
						else {
							for i = ct downTo 1 {
								addResponse ()}};
						
						if not flFullMessage { //add subThreadEntTemplate
							responseList = responseList + responseSubThreadEndTemplate};
						};
					if sizeOf (adrMsgTable^.responses) {
						responseList = responseListHeader;
						addResponses (adrMsgTable); //it's recursive
						responseList = responseList + responseListFooter}};
				s = string.replaceAll (s, "{responseList}", responseList, false)}};
		bundle { // replace messageText
			s = string.replaceAll (s, "{messageText}", getBody (adrMsgTable), false)};
		bundle { // replace responseForm
			local (responseForm = "", responseFormHeader = "<p /><hr />", responseFormFooter = "");
			if flMember and flShowResponseForm {
				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");
				responseForm = responseFormHeader + mainResponder.discuss.newMessageForm (msgNum, subject, subjectprompt, buttontext, bodyprompt: bodyprompt, pta:pta) + responseFormFooter};
			s = string.replaceAll (s, "{responseForm}", responseForm, false)};
		bundle { // 11/03/00 JES: replace enclosureLink
			if flShowEnclosures {
				local (viewingUrl = pta^.responderAttributes.urls^.discussEnclosureViewer + msgNum);
				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>");
				
				s = string.replaceAll (s, "{enclosureLink}", listingLink + ", " + fatPageLink + ", " + rpcLink, false)}
			else {
				s = string.replaceAll (s, "{enclosureLink}", "", false)}};
		bundle { //replace ipAddress
			local (ipAddress = "");
			if defined (adrMsgTable^.ipAddress) {
				ipAddress = adrMsgTable^.ipAddress};
			s = string.replaceAll (s, "{ipAddress}", ipAddress, false)};
		
		add (s)};
	
	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

Index: cowSkullImage
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/cowSkullImage,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** cowSkullImage	26 Mar 2005 21:45:33 -0000	1.1.1.1
--- cowSkullImage	26 Nov 2005 19:37:51 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.discuss.cowSkullImage
  
! on cowSkullImage (pta=nil) {
	ÇDisplay a cow skull image.
		ÇCow skulls signify a link to the discussion group interface version of a page.
		ÇChanges:
			Ç12/8/98; 6:52:33 AM by DW
				ÇThis code was appearing all over the place.
			ÇThu, 04 Mar 1999 03:07:08 GMT by AR
				Çconfig.mainResponder.urls is no longer referenced -- look at the page table instead.
			ÇMon, Aug 2, 1999 at 3:40:25 PM by PBS
				ÇNew optional pta parameter.
			Ç12/17/99; 11:36:58 AM by PBS
				ÇYou can over-ride the default cow skull image with a cowSkullImage item in the page table. Among other things, this allows Manila sites to replace the cow skull image with their own image or text.
	
	if pta == nil {
		pta = html.getPageTableAddress ()};
	
	if defined (pta^.cowSkullImage) { //PBS 12/17/99: one may over-ride the default cow skull image
		return (string (pta^.cowSkullImage))};
	
	return ("<img src=\"" + pta^.responderAttributes.urls^.imageCowSkull + "\" height=\"18\" width=\"22\" border=\"0\" alt=\"\">")}
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.discuss.cowSkullImage
  
! on cowSkullImage (pta=nil) {
	ÇChanges
		Ç11/20/05; 11:13:53 A...
 
[truncated message content]