mainresponder.discuss.newMessageForm

Increase the size (maximum length) of the subject field in the edit Message form from 40 (60) to 70 (100).

on newMessageForm (inResponseTo=0, subject="", subjectprompt=nil, buttontext=nil, redirectUrl=nil, flShowFileUpload=false, fileprompt=nil, bodyprompt=nil, actionURL="", pta=nil, flEditableSubject=true, bodyText="", flLimitSubjectLength=true)

«Changes:

unaltered lines omitted

if pta == nil

unaltered lines omitted

local (flWysEditor = false, flTagEditor = true)

bundle //figure out which editing tool is preferred

local (htmltext = "", indentlevel = 0)

on add (s)

unaltered lines omitted

local (enctypeAttrib = "")

if flShowFileUpload

unaltered lines omitted

if actionURL == ""

unaltered lines omitted

local (editorText = mainResponder.discuss.getHtmlEditor (bodyText, pta, fieldName:"text"))

if (editorText == "") or (flTagEditor)

unaltered lines omitted

else //WYSIWYG editor

unaltered lines omitted

add ("<input type=\"hidden\" name=\"inResponseTo\" value=\"" + inResponseTo + "\">")

if redirectUrl != nil

unaltered lines omitted

«bundle // old code

if flEditableSubject // 10/09/00 JES

unaltered lines omitted

else // add the subject as a hidden field

unaltered lines omitted

if flShowFileUpload

unaltered lines omitted

«PBS 02/15/00: possibly add the HTML editor buttons and menus.

if bodyprompt == nil //4/12/00; 1:15:56 PM by JES: localized default bodyprompt

unaltered lines omitted

if editorText == ""

unaltered lines omitted

else //add the HTML editor.

unaltered lines omitted

if buttontext == nil //4/12/00; 1:10:09 PM by JES: localized default buttontext

unaltered lines omitted

add ("<input type=\"submit\" value=\"" + buttontext + "\">")

add ("</form>"); indentlevel--

return (htmltext)

Relative to Frontier version 9.7b10