General information
Title:
String under message window
Michel
I'm getting a string below the message.
example below.
Doesn't seem to effect functionality
Nick
% ERROR: LOCAL lcHtml lcHtml='' lcHtml=lcHtml+GenerateXPStyleFolderAlignment(1) RETURN lcHtml % > < % ERROR: LOCAL lcHtml,lnLength,lnActual lnLength=4 IF glSysop lnLength=9 IF llUnmarkSysop lnLength=lnLength+1 ENDIF IF NOT llSolutionSysop lnLength=lnLength+1 ENDIF ENDIF LOCAL ARRAY laMenu[lnLength,2] IF glAutoLink laMenu[1,1]=GetMes('Personal','NoAutoLink') ELSE laMenu[1,1]=GetMes('Personal','AutoLink') ENDIF laMenu[1,2]='javascript:SaveOption("3,'+ALLTRIM(STR(Thread.Numero))+'")' IF glAcronym laMenu[2,1]=GetMes('Personal','NoAcronym') ELSE laMenu[2,1]=GetMes('Personal','Acronym') ENDIF laMenu[2,2]='javascript:SaveOption("4,'+ALLTRIM(STR(Thread.Numero))+'")' IF NOT glMessHeader laMenu[3,1]=GetMes('Personal','NoHeader') ELSE laMenu[3,1]=GetMes('Personal','NoHeaderOff') ENDIF laMenu[3,2]='javascript:SaveOption("10,'+ALLTRIM(STR(Thread.Numero))+'")' IF Member.Reply=0 laMenu[4,1]=GetMes('Personal','AutoReply') ELSE laMenu[4,1]=GetMes('Personal','NoAutoReply') ENDIFS laMenu[4,2]='javascript:SaveOption("11")' lnActual=4 IF glSysop lnActual=lnActual+1 laMenu[lnActual,1]='Move this thread...' laMenu[lnActual,2]='javascript:AssignationForum()' lnActual=lnActual+1 laMenu[lnActual,1]='Update the title of this thread...' laMenu[lnActual,2]=gcCgi+'2,2,40,'+ALLTRIM(STR(Thread.NoThread)) lnActual=lnActual+1 laMenu[lnActual,1]='Remove this message...' laMenu[lnActual,2]='javascript:RemoveMessage('+ALLTRIM(STR(Thread.Numero))+')' lnActual=lnActual+1 IF NOT FOUND('Sensitive') laMenu[lnActual,1]='Mark this message sensitive' laMenu[lnActual,2]=gcCgi+'2,2,8,'+ALLTRIM(STR(Thread.Numero)) ELSE laMenu[lnActual,1]='Unmark this message sensitive' laMenu[lnActual,2]=gcCgi+'2,2,9,'+ALLTRIM(STR(Thread.Numero)) ENDIF lnActual=lnActual+1 IF NOT FOUND('Freeze') laMenu[lnActual,1]='Freeze this thread' laMenu[lnActual,2]=gcCgi+'2,2,6,'+ALLTRIM(STR(Thread.NoThread))+','+ALLTRIM(STR(Thread.Numero)) ELSE laMenu[lnActual,1]='Unfreeze this thread' laMenu[lnActual,2]=gcCgi+'2,2,7,'+ALLTRIM(STR(Thread.NoThread))+','+ALLTRIM(STR(Thread.Numero)) ENDIF IF llUnmarkSysop lnActual=lnActual+1 laMenu[lnActual,1]='Unmark this message for points' laMenu[lnActual,2]=gcCgi+'2,2,25,'+ALLTRIM(STR(Thread.NoThread))+','+ALLTRIM(STR(Thread.Numero)) ENDIF IF NOT llSolutionSysop lnActual=lnActual+1 laMenu[lnActual,1]='Mark this message as a solution' laMenu[lnActual,2]=gcCgi+'2,2,41,'+ALLTRIM(STR(Thread.NoThread))+','+ALLTRIM(STR(Thread.Numero)) ENDIF ENDIF lcHtml='' lcHtml=lcHtml+GenerateDynamicMenu(@laMenu,.T.,,.T.,.T.,.T.,,'1,'+ALLTRIM(STR(Thread.Numero))) RETURN lcHtml % >
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only