[frontierkernel-commits] odbs/mainResponderRoot/mainResponder/discuss editMessageForm,1.1.1.1,1.2

SourceForge Headquarters 1320 Columbia Street Suite 310 San Diego, CA 92101 +1 (858) 422-6466

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

Modified Files:
	editMessageForm 
Log Message:
nil subjectPrompt wasn't getting assigned from get string

Index: editMessageForm
===================================================================
RCS file: /cvsroot/frontierkernel/odbs/mainResponderRoot/mainResponder/discuss/editMessageForm,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** editMessageForm	26 Mar 2005 21:45:34 -0000	1.1.1.1
--- editMessageForm	25 Jul 2005 21:53:32 -0000	1.2
***************
*** 1,3 ****
  FrontierVcsFile:1:scpt:mainResponder.discuss.editMessageForm
  
! on editMessageForm (msgNum, flLinkToReferer=false, flShowFileList=false, flShowFileUpload=false, fileprompt=nil, subjectPrompt=nil, bodyPrompt=nil, actionURL="", flLimitSubjectLength=true) {
	ÇDisplay the edit message form.
	ÇChanges:
		Ç9/24/04; 3:19:22 AM by JES
			ÇIncreased size of subject input field to 70 (from 40). Increased maxlength of subject to 255 (from 60).
		Ç8/22/03; 12:55:35 PM by JES
			ÇSlight formatting fix when not using the WYSIWYG editor.
		Ç8/14/03; 12:40:09 AM by JES
			ÇAdded support for the Mozilla rich text editor.
		Ç6/14/02; 12:43:47 AM by JES
			ÇNew optional parameter flLimitSubjectLength. Default is true, previous behavior. No breakage. If false, then there's no maxLength attribute for the subject input field. Manila needed this.
		Ç05/23/01; 3:01:59 PM by PBS
			ÇChange in policy for Radio-edited messages. If it was edited in Radio, allow the person to edit the rendered text -- but give them a warning saying that their outline formatting will be lost.
		Ç12/14/00; 7:11:22 PM by PBS
			ÇIf a message was edited in Radio, is an OPML document, then the browser form allows you to edit the OPML, not the rendered version.
		Ç10/02/00; 6:03:52 PM by JES
			ÇAdded WYSIWYG HTML editor.
		Ç4/10/00; 4:15:32 PM by JES
			ÇLocalized using mainResponder.getSting
			ÇMoved default text lookups into the body of the script because if they're in the declaration, it gets really long
		Ç03/19/00; 12:56:49 PM by PBS
			ÇIn the editing form, convert left curly braces to HTML entities to prevent unwanted macro expansion -- which means you can now call this script from a page that is itself a script.
		Ç03/15/00; 5:25:54 PM by PBS
			ÇWhen computing the path to the attachments folder for this message, it now calls mainResponder.discuss.getMessageAttachmentsFolder -- a new bottleneck script.
		Ç02/15/00; 11:47:11 AM by PBS
			ÇIf the HTML editor hasn't been turned off, and the user is running a compatible browser, add the HTML editor.
		Ç01/31/00; 3:17:41 PM by PBS
			ÇIn the subject and text, convert quotes, ampersands, and left carets to HTML entities.
		Ç9/23/99; 11:39:21 AM by PBS
			ÇEncode quotes in the subject as &quot; HTML entities so the value attribute in the input box doesn't terminate prematurely. In other words:
			ÇThe tag might look like this:
			Ç<input size="40" maxlength="60" name="subject" value="Re: "Foo" bar">
			ÇNow it looks like this:
			Ç<input size="40" maxlength="60" name="subject" value="Re: &quot;Foo&quot; bar">
			ÇThis is safe to do because the entity will be translated back into an actual quote. You don't end up with HTML entities in the subject field of the stored dg message, you get actual quote marks, as you should.
		ÇWednesday, June 09, 1999 at 4:49:09 PM by PBS
			ÇCall mainResponder.discuss.memberCanEdit to determine if the member can edit this message.
		ÇFri, 21 May 1999 17:33:22 GMT by AR
			ÇAdded optional parameter, subjectPrompt. It defaults to "Subject". It's used as the label for the subject form element.
			ÇAdded optional parameter, bodyPrompt. It defaults to "Text". It's used as the label for the message text form element.
			ÇAdded optional parameter, actionURL. It's the URL for the action attribute of the form tag. If its value is the empty string (the default), we use pta^.responderAttributes.urls^.discussPostEditedMessage.
		ÇThu, 20 May 1999 16:15:08 GMT by AR
			ÇAdded optional parameter, flShowFileUpload. It defaults to false. If true, a form element of type=file is displayed between the <textarea> and the submit button.
			ÇAdded optional parameter, filePrompt. It defaults to "Attach file". It's used as the label for the optional type=file form element.
			ÇAdded optional parameter named flShowFileList. It defaults to false. If true, a table of URLs pointing to the attached files is displayed between the <textarea> and the type=file form element. The rows consists of two cells. The first cell is a checkbox, the second cell contains the absolute URL of the file. If you check the checkbox and submit the page, the file is deleted from the associated folder.
		ÇWed, 19 May 1999 20:16:19 GMT by DW
			ÇAdded hidden field containing the referer URL, so the form can redirect back to the place where the request to edit the object came from. Added optional param, flLinkToReferer, to control this feature.
	
	local (pta = html.getPageTableAddress ());
	Çworkspace.pt = pta^; edit (@workspace.pt) //debugging
	local (htmlText = "", indentLevel = 0);
	local (flWysEditor = false, flTagEditor = true);
	bundle { //figure out which editing tool is preferred
		if defined (pta^.editingToolName) {
			if string.lower (pta^.editingToolName) == "wysiwyg" {
				flWysEditor = true;
				flTagEditor = false}}};
	
	on add (s) {
		htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"};
	
	on translateToEntities (s) {
		ÇIt's not necessary to translate everything, just ampersands, quotes, and left carets.
		s = string.replaceAll (s, "&", "&amp;");
		s = string.replaceAll (s, "<", "&lt;"); //PBS 01/31/00: convert carets to entities
		s = string.replaceAll (s, "\"", "&quot;"); //PBS 01/31/00: convert quotes to entities
		s = string.replaceAll (s, "{", "&#123;"); //PBS 03/19/00: convert { to HTML entities
		return (s)};
	
	local (flOpml = false);
	local (adrMsg = mainResponder.discuss.getMessageTable (msgNum, pta:pta));
	local (s = string (adrMsg^.body));
	Çbundle //PBS 12/14/00: if this was edited in Radio, return the OPML
		Çif defined (adrMsg^.opml)
			Çif not (date.versionLessThan (Frontier.version (), "7.0b21")) //requires 7.0b21 or greater
				Çlocal (membershipGroup = pta^.defaultMembershipGroup)
				Çlocal (memberName = mainResponder.members.getMemberName (membershipGroup, adrMsg^.member))
				Çs = string (adrMsg^.opml)
				Çs = op.outlineToXml (@adrMsg^.outline, memberName, adrMsg^.member)
				Çlocal (ix = string.patternMatch ("<title>", s))
				Çlocal (ixend = string.patternMatch ("</title>", s))
				Çs = string.delete (s, ix, ixend - ix)
				Çs = string.insert ("<title>" + adrMsg^.subject, s, ix)
				ÇflOpml = true
	bundle { //PBS 05/23/01: if this was edited in Radio, present a warning
		if defined (adrMsg^.opml) {
			add ("<font color=\"red\">This text was previously edited in an outline in Radio. If you edit it in your browser, your outline formatting may be lost.<p>Click the Back button in your browser if you don't want to edit in your browser.</font><p>\r")}};
	s = translateToEntities (s); //PBS 01/31/00: convert quotes, ampersands, and left carets to HTML entities.
	local (editorText = mainResponder.discuss.getHtmlEditor (s, pta));
	
	if not (mainResponder.discuss.memberCanEdit (adrMsg, pta^.adrMemberInfo)) { //PBS 6/9/99
		scriptError (mainResponder.getString ("discuss.cantEditBecauseNoPermission"))};
	Çif string.lower (adrMsg^.member) != string.lower (nameOf (pta^.adrmemberinfo^))
		ÇscriptError ("Can't edit this message because you are not the author of the message.")
	
	local (enctypeAttrib = "");
	if flShowFileUpload {
		enctypeAttrib = " enctype=\"multipart/form-data\""};
	if actionURL == "" {
		actionURL = pta^.responderAttributes.urls^.discussPostEditedMessage};
	
	if (editorText == "") or (flTagEditor) {
		add ("<form method=\"POST\"" + enctypeAttrib + " action=\"" + actionURL + "\">"); indentLevel++}
	else {
		if flWysEditor {
			try {
				local (enctype);
				if flShowFileUpload {
					enctype = "multipart/form-data"};
				add (html.editor.formStart ("body", actionUrl, "editMessageForm", "POST", enctype, pta))}
			else {
				add ("<form name=\"editMessageForm\" method=\"POST\"" + enctypeAttrib + " action=\"" + actionURL + "\" onsubmit=\"setMode(true);document.editMessageForm.body.value = document.frames('idEdit').document.body.innerHTML;\">"); indentLevel++;
				add ("<input type=\"hidden\" name=\"body\">")}}};
	add ("<input type=\"hidden\" name=\"msgNum\" value=\"" + msgNum + "\">");
	
	if flLinkToReferer {
		if defined (pta^.requestHeaders.referer) { //PBS 01/31/00: use if-defined rather than try
			add ("<input type=\"hidden\" name=\"referer\" value=\"" + pta^.requestHeaders.referer + "\">")}};
	if flShowFileUpload {
		if fileprompt == nil { //JES 04/10/00: get the default fileprompt
			fileprompt = mainResponder.getString ("discuss.editMessageDefaultFilePrompt")};
		add ("<b>" + filePrompt + "</b><br><input type=\"file\" name=\"attachfile\"><p>")};
	if flShowFileList {
		local (folderPath, urlPrefix);
		bundle { //compute folderPath and urlPrefix
			folderPath = mainResponder.discuss.getMessageAttachmentsFolder (adrMsg, @urlPrefix);
			
			ÇPBS 03/15/00: old code, now factored out
				Çlocal (pc = file.getPathChar ())
				Çlocal (adrDiscuss = mainResponder.discuss.openRoot ())
				Çon addToPaths (s) //append sub-folders to folderPath
					ÇfolderPath = folderPath + s + pc
					ÇurlPrefix = urlPrefix + s + "/"
				ÇfolderPath = adrDiscuss^.prefs.binaryServerFolder
				ÇurlPrefix = adrDiscuss^.prefs.binaryServerURL
				ÇaddToPaths (pta^.members)
				ÇaddToPaths (adrMsg^.member)
				ÇaddToPaths (nameOf (adrDiscuss^))
				ÇaddToPaths (msgNum)};
		if (file.exists (folderPath) and (file.filesInFolder (folderPath, 1) > 0)) {
			add ("<p><table>"); indentLevel++;
			add ("<tr>"); indentLevel++;
			add ("<td><b>" + mainResponder.getString ("discuss.attachedFilesHeader") + "</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>");
			add ("<td><b>" + mainResponder.getString ("discuss.deletePrompt") + "</b></td>");
			add ("</tr>"); indentLevel--;
			local (f);
			fileLoop (f in folderPath, 1) {
				local (fname = file.fileFromPath (f));
				add ("<tr>"); indentLevel++;
				add ("<td><a href=\"" + urlPrefix + fname + "\">" + fname + "</td>");
				add ("<td align=\"center\"><input type=\"checkbox\" name=\"delete_" + fname + "\" value=\"0\"></td>");
				add ("</tr>"); indentLevel--};
			add ("</table><p>"); indentLevel--}};
	
	ÇSubject prompt.
	local (subject = adrMsg^.subject);
	subject = translateToEntities (subject); //PBS 01/31/00: convert quotes, ampersands, and left carets to HTML entities.
	if subjectprompt == nil { //JES 04/10/00: get the default subjectprompt
		mainResponder.getString("discuss.editMessageDefaultSubjectPrompt")};
	if flLimitSubjectLength {
		add ("<b>" + subjectPrompt + "</b><br><input size=\"70\" maxlength=\"255\" name=\"subject\" value=\"" + subject + "\">")}
	else { //no subject length limit
		add ("<b>" + subjectPrompt + "</b><br><input size=\"70\" name=\"subject\" value=\"" + subject + "\">")};
	
	ÇPBS 02/15/00: possibly add the HTML editor buttons and menus.
	if bodyprompt == nil { //JES 04/10/00: get the default bodyprompt
		bodyprompt = mainResponder.getString("discuss.editMessageDefaultBodyPrompt")};
	if editorText == "" {
		add ("<p><b>" + bodyPrompt + "</b><br><textarea name=\"body\" rows=\"20\" cols=\"70\" wrap=\"soft\">" + s + "</textarea>")}
	else { //add the HTML editor
		if flTagEditor {
			add ("<p><b>" + bodyPrompt + "</b><p>" + editorText + "<p>")} //<textarea name=\"body\" rows=\"20\" cols=\"70\" wrap=\"soft\" style=\"padding:7px\">" + s + "</textarea>")
		else { //WYSIWYG editor
			add ("<p><b>" + bodyPrompt + "</b><br>" + editorText)}};
	
	if flOpml { //PBS 12/14/00: let mainResponder know that it's an OPML document
		add ("<input type=\"hidden\" name=\"flOpml\" value=\"true\">")};
	
	add ("<p><input type=\"submit\" value=\"" + mainResponder.getString ("discuss.postChangesButtonText") + "\">");
	add ("</form>"); indentLevel--;
	
	return (htmlText)};
Çbundle //test code
	Çhtml.setPageTableAddress (@workspace.pt)
	ÇeditMessageForm (22, subjectPrompt:"Subject", bodyPrompt:"Body")
	Çhtml.deletePageTableAddress ()
\ No newline at end of file
--- 1,3 ----
  FrontierVcsFile:1:scpt:mainResponder.discuss.editMessageForm
  
! on editMessageForm (msgNum, flLinkToReferer=false, flShowFileList=false, flShowFileUpload=false, fileprompt=nil, subjectPrompt=nil, bodyPrompt=nil, actionURL="", flLimitSubjectLength=true) {
	ÇDisplay the edit message form.
	ÇChanges
		Ç7/12/05; 3:49:08 PM by TAC
			Çnil subjectPrompt wasn't getting assigned from get string
		Ç9/24/04; 3:19:22 AM by JES
			ÇIncreased size of subject input field to 70 (from 40). Increased maxlength of subject to 255 (from 60).
		Ç8/22/03; 12:55:35 PM by JES
			ÇSlight formatting fix when not using the WYSIWYG editor.
		Ç8/14/03; 12:40:09 AM by JES
			ÇAdded support for the Mozilla rich text editor.
		Ç6/14/02; 12:43:47 AM by JES
			ÇNew optional parameter flLimitSubjectLength. Default is true, previous behavior. No breakage. If false, then there's no maxLength attribute for the subject input field. Manila needed this.
		Ç05/23/01; 3:01:59 PM by PBS
			ÇChange in policy for Radio-edited messages. If it was edited in Radio, allow the person to edit the rendered text -- but give them a warning saying that their outline formatting will be lost.
		Ç12/14/00; 7:11:22 PM by PBS
			ÇIf a message was edited in Radio, is an OPML document, then the browser form allows you to edit the OPML, not the rendered version.
		Ç10/02/00; 6:03:52 PM by JES
			ÇAdded WYSIWYG HTML editor.
		Ç4/10/00; 4:15:32 PM by JES
			ÇLocalized using mainResponder.getSting
			ÇMoved default text lookups into the body of the script because if they're in the declaration, it gets really long
		Ç03/19/00; 12:56:49 PM by PBS
			ÇIn the editing form, convert left curly braces to HTML entities to prevent unwanted macro expansion -- which means you can now call this script from a page that is itself a script.
		Ç03/15/00; 5:25:54 PM by PBS
			ÇWhen computing the path to the attachments folder for this message, it now calls mainResponder.discuss.getMessageAttachmentsFolder -- a new bottleneck script.
		Ç02/15/00; 11:47:11 AM by PBS
			ÇIf the HTML editor hasn't been turned off, and the user is running a compatible browser, add the HTML editor.
		Ç01/31/00; 3:17:41 PM by PBS
			ÇIn the subject and text, convert quotes, ampersands, and left carets to HTML entities.
		Ç9/23/99; 11:39:21 AM by PBS
			ÇEncode quotes in the subject as &quot; HTML entities so the value attribute in the input box doesn't terminate prematurely. In other words:
			ÇThe tag might look like this:
			Ç<input size="40" maxlength="60" name="subject" value="Re: "Foo" bar">
			ÇNow it looks like this:
			Ç<input size="40" maxlength="60" name="subject" value="Re: &quot;Foo&quot; bar">
			ÇThis is safe to do because the entity will be translated back into an actual quote. You don't end up with HTML entities in the subject field of the stored dg message, you get actual quote marks, as you should.
		ÇWednesday, June 09, 1999 at 4:49:09 PM by PBS
			ÇCall mainResponder.discuss.memberCanEdit to determine if the member can edit this message.
		ÇFri, 21 May 1999 17:33:22 GMT by AR
			ÇAdded optional parameter, subjectPrompt. It defaults to "Subject". It's used as the label for the subject form element.
			ÇAdded optional parameter, bodyPrompt. It defaults to "Text". It's used as the label for the message text form element.
			ÇAdded optional parameter, actionURL. It's the URL for the action attribute of the form tag. If its value is the empty string (the default), we use pta^.responderAttributes.urls^.discussPostEditedMessage.
		ÇThu, 20 May 1999 16:15:08 GMT by AR
			ÇAdded optional parameter, flShowFileUpload. It defaults to false. If true, a form element of type=file is displayed between the <textarea> and the submit button.
			ÇAdded optional parameter, filePrompt. It defaults to "Attach file". It's used as the label for the optional type=file form element.
			ÇAdded optional parameter named flShowFileList. It defaults to false. If true, a table of URLs pointing to the attached files is displayed between the <textarea> and the type=file form element. The rows consists of two cells. The first cell is a checkbox, the second cell contains the absolute URL of the file. If you check the checkbox and submit the page, the file is deleted from the associated folder.
		ÇWed, 19 May 1999 20:16:19 GMT by DW
			ÇAdded hidden field containing the referer URL, so the form can redirect back to the place where the request to edit the object came from. Added optional param, flLinkToReferer, to control this feature.
	
	local (pta = html.getPageTableAddress ());
	Çworkspace.pt = pta^; edit (@workspace.pt) //debugging
	local (htmlText = "", indentLevel = 0);
	local (flWysEditor = false, flTagEditor = true);
	bundle { //figure out which editing tool is preferred
		if defined (pta^.editingToolName) {
			if string.lower (pta^.editingToolName) == "wysiwyg" {
				flWysEditor = true;
				flTagEditor = false}}};
	
	on add (s) {
		htmlText = htmlText + string.filledString ("\t", indentLevel) + s + "\r"};
	
	on translateToEntities (s) {
		ÇIt's not necessary to translate everything, just ampersands, quotes, and left carets.
		s = string.replaceAll (s, "&", "&amp;");
		s = string.replaceAll (s, "<", "&lt;"); //PBS 01/31/00: convert carets to entities
		s = string.replaceAll (s, "\"", "&quot;"); //PBS 01/31/00: convert quotes to entities
		s = string.replaceAll (s, "{", "&#123;"); //PBS 03/19/00: convert { to HTML entities
		return (s)};
	
	local (flOpml = false);
	local (adrMsg = mainResponder.discuss.getMessageTable (msgNum, pta:pta));
	local (s = string (adrMsg^.body));
	Çbundle //PBS 12/14/00: if this was edited in Radio, return the OPML
		Çif defined (adrMsg^.opml)
			Çif not (date.versionLessThan (Frontier.version (), "7.0b21")) //requires 7.0b21 or greater
				Çlocal (membershipGroup = pta^.defaultMembershipGroup)
				Çlocal (memberName = mainResponder.members.getMemberName (membershipGroup, adrMsg^.member))
				Çs = string (adrMsg^.opml)
				Çs = op.outlineToXml (@adrMsg^.outline, memberName, adrMsg^.member)
				Çlocal (ix = string.patternMatch ("<title>", s))
				Çlocal (ixend = string.patternMatch ("</title>", s))
				Çs = string.delete (s, ix, ixend - ix)
				Çs = string.insert ("<title>" + adrMsg^.subject, s, ix)
				ÇflOpml = true
	bundle { //PBS 05/23/01: if this was edited in Radio, present a warning
		if defined (adrMsg^.opml) {
			add ("<font color=\"red\">This text was previously edited in an outline in Radio. If you edit it in your browser, your outline formatting may be lost.<p>Click the Back button in your browser if you don't want to edit in your browser.</font><p>\r")}};
	s = translateToEntities (s); //PBS 01/31/00: convert quotes, ampersands, and left carets to HTML entities.
	local (editorText = mainResponder.discuss.getHtmlEditor (s, pta));
	
	if not (mainResponder.discuss.memberCanEdit (adrMsg, pta^.adrMemberInfo)) { //PBS 6/9/99
		scriptError (mainResponder.getString ("discuss.cantEditBecauseNoPermission"))};
	Çif string.lower (adrMsg^.member) != string.lower (nameOf (pta^.adrmemberinfo^))
		ÇscriptError ("Can't edit this message because you are not the author of the message.")
	
	local (enctypeAttrib = "");
	if flShowFileUpload {
		enctypeAttrib = " enctype=\"multipart/form-data\""};
	if actionURL == "" {
		actionURL = pta^.responderAttributes.urls^.discussPostEditedMessage};
	
	if (editorText == "") or (flTagEditor) {
		add ("<form method=\"POST\"" + enctypeAttrib + " action=\"" + actionURL + "\">"); indentLevel++}
	else {
		if flWysEditor {
			try {
				local (enctype);
				if flShowFileUpload {
					enctype = "multipart/form-data"};
				add (html.editor.formStart ("body", actionUrl, "editMessageForm", "POST", enctype, pta))}
			else {
				add ("<form name=\"editMessageForm\" method=\"POST\"" + enctypeAttrib + " action=\"" + actionURL + "\" onsubmit=\"setMode(true);document.editMessageForm.body.value = document.frames('idEdit').document.body.innerHTML;\">"); indentLevel++;
				add ("<input type=\"hidden\" name=\"body\">")}}};
	add ("<input type=\"hidden\" name=\"msgNum\" value=\"" + msgNum + "\">");
	
	if flLinkToReferer {
		if defined (pta^.requestHeaders.referer) { //PBS 01/31/00: use if-defined rather than try
			add ("<input type=\"hidden\" name=\"referer\" value=\"" + pta^.requestHeaders.referer + "\">")}};
	if flShowFileUpload {
		if fileprompt == nil { //JES 04/10/00: get the default fileprompt
			fileprompt = mainResponder.getString ("discuss.editMessageDefaultFilePrompt")};
		add ("<b>" + filePrompt + "</b><br><input type=\"file\" name=\"attachfile\"><p>")};
	if flShowFileList {
		local (folderPath, urlPrefix);
		bundle { //compute folderPath and urlPrefix
			folderPath = mainResponder.discuss.getMessageAttachmentsFolder (adrMsg, @urlPrefix);
			
			ÇPBS 03/15/00: old code, now factored out
				Çlocal (pc = file.getPathChar ())
				Çlocal (adrDiscuss = mainResponder.discuss.openRoot ())
				Çon addToPaths (s) //append sub-folders to folderPath
					ÇfolderPath = folderPath + s + pc
					ÇurlPrefix = urlPrefix + s + "/"
				ÇfolderPath = adrDiscuss^.prefs.binaryServerFolder
				ÇurlPrefix = adrDiscuss^.prefs.binaryServerURL
				ÇaddToPaths (pta^.members)
				ÇaddToPaths (adrMsg^.member)
				ÇaddToPaths (nameOf (adrDiscuss^))
				ÇaddToPaths (msgNum)};};
		if (file.exists (folderPath) and (file.filesInFolder (folderPath, 1) > 0)) {
			add ("<p><table>"); indentLevel++;
			add ("<tr>"); indentLevel++;
			add ("<td><b>" + mainResponder.getString ("discuss.attachedFilesHeader") + "</b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>");
			add ("<td><b>" + mainResponder.getString ("discuss.deletePrompt") + "</b></td>");
			add ("</tr>"); indentLevel--;
			local (f);
			fileLoop (f in folderPath, 1) {
				local (fname = file.fileFromPath (f));
				add ("<tr>"); indentLevel++;
				add ("<td><a href=\"" + urlPrefix + fname + "\">" + fname + "</td>");
				add ("<td align=\"center\"><input type=\"checkbox\" name=\"delete_" + fname + "\" value=\"0\"></td>");
				add ("</tr>"); indentLevel--};
			add ("</table><p>"); indentLevel--}};
	
	ÇSubject prompt.
	local (subject = adrMsg^.subject);
	subject = translateToEntities (subject); //PBS 01/31/00: convert quotes, ampersands, and left carets to HTML entities.
	if subjectPrompt == nil { //JES 04/10/00: get the default subjectPrompt
		subjectPrompt = mainResponder.getString ("discuss.editMessageDefaultSubjectPrompt")};
	if flLimitSubjectLength {
		add ("<b>" + subjectPrompt + "</b><br><input size=\"70\" maxlength=\"255\" name=\"subject\" value=\"" + subject + "\">")}
	else { //no subject length limit
		add ("<b>" + subjectPrompt + "</b><br><input size=\"70\" name=\"subject\" value=\"" + subject + "\">")};
	
	ÇPBS 02/15/00: possibly add the HTML editor buttons and menus.
	if bodyprompt == nil { //JES 04/10/00: get the default bodyprompt
		bodyprompt = mainResponder.getString("discuss.editMessageDefaultBodyPrompt")};
	if editorText == "" {
		add ("<p><b>" + bodyPrompt + "</b><br><textarea name=\"body\" rows=\"20\" cols=\"70\" wrap=\"soft\">" + s + "</textarea>")}
	else { //add the HTML editor
		if flTagEditor {
			add ("<p><b>" + bodyPrompt + "</b><p>" + editorText + "<p>")} //<textarea name=\"body\" rows=\"20\" cols=\"70\" wrap=\"soft\" style=\"padding:7px\">" + s + "</textarea>")
		else { //WYSIWYG editor
			add ("<p><b>" + bodyPrompt + "</b><br>" + editorText)}};
	
	if flOpml { //PBS 12/14/00: let mainResponder know that it's an OPML document
		add ("<input type=\"hidden\" name=\"flOpml\" value=\"true\">")};
	
	add ("<p><input type=\"submit\" value=\"" + mainResponder.getString ("discuss.postChangesButtonText") + "\">");
	add ("</form>"); indentLevel--;
	
	return (htmlText)};
Çbundle //test code
	Çhtml.setPageTableAddress (@workspace.pt)
	ÇeditMessageForm (5, subjectPrompt:"Subject", bodyPrompt:"Body")
	Çhtml.deletePageTableAddress ()
\ No newline at end of file