Mariette,
Step 1:
Add the following code into your web.config file.
....
Forum_Admins_AutoConfigure = "Full"
Forum_Admins_SecurityPolicyFile = "admin.config"
Forum_Admins_DisableItemList = ""
Forum_Admins_AllowPasteHtml = "true"
Forum_Admins_EditorOnPaste = "default"
Forum_Admins_ReadOnly = "false"
Forum_Admins_ShowBottomBar ="true"
Forum_Admins_ShowHtmlMode = "false"
Forum_Admins_ShowPreviewMode = "true"
...
Step 2:
Open the CEHtmlEditorProvider.vb file, adding the following private variables:
....
Private _forum_admins_autoconfigure As String
Private _forum_admins_securitypolicyfile As String
Private _forum_admins_templateitemlist As String
Private _forum_admins_disableitemlist As String
Private _forum_admins_allowpastehtml As Boolean
Private _forum_admins_editoronpaste As String
Private _forum_admins_readonly As Boolean
Private _forum_admins_showbottombar As Boolean
Private _forum_admins_showhtmlmode As Boolean
Private _forum_admins_showpreviewmode As Boolean
...
Step 3:
Open the CEHtmlEditorProvider.vb file, adding the following code into the New() subroutine:
....
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_AutoConfigure")) Then
_forum_admins_autoconfigure = objProvider.Attributes("Forum_Admins_AutoConfigure")
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_SecurityPolicyFile")) Then
_forum_admins_securitypolicyfile = objProvider.Attributes("Forum_Admins_SecurityPolicyFile")
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_TemplateItemList")) Then
_forum_admins_templateitemlist = objProvider.Attributes("Forum_Admins_TemplateItemList")
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_DisableItemList")) Then
_forum_admins_disableitemlist = objProvider.Attributes("Forum_Admins_DisableItemList")
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_AllowPasteHtml")) Then
_forum_admins_allowpastehtml = Boolean.Parse(objProvider.Attributes("Forum_Admins_AllowPasteHtml"))
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_EditorOnPaste")) Then
_forum_admins_editoronpaste = objProvider.Attributes("Forum_Admins_EditorOnPaste")
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_ReadOnly")) Then
_forum_admins_readonly = Boolean.Parse(objProvider.Attributes("Forum_Admins_ReadOnly"))
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_ShowBottomBar")) Then
_forum_admins_showbottombar = Boolean.Parse(objProvider.Attributes("Forum_Admins_ShowBottomBar"))
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_ShowHtmlMode")) Then
_forum_admins_showbottombar = Boolean.Parse(objProvider.Attributes("Forum_Admins_ShowHtmlMode"))
End If
If Not Null.IsNull(objProvider.Attributes("Forum_Admins_ShowPreviewMode")) Then
_forum_admins_showpreviewmode = Boolean.Parse(objProvider.Attributes("Forum_Admins_ShowPreviewMode"))
End If
...
Step 4
Open the CEHtmlEditorProvider.vb file, adding the following code into the Initialize() subroutine:
....
Dim IsForum_Admins As Boolean
IsForum_Admins = PortalSecurity.IsInRoles("Forum Admins")
...
Step 5
Open the CEHtmlEditorProvider.vb file, change the following code block:
from:
If Isadmin Then
....
ElseIf Isregistered Then
...
Else
...
End If
to:
If Isadmin Then
....
ElseIf Isregistered Then
...
ElseIf IsForum_Admins Then
_temp_templateitemlist = _forum_admins_templateitemlist
_temp_disableitemlist = _forum_admins_disableitemlist
_temp_allowpastehtml = _forum_admins_allowpastehtml
_temp_securitypolicyfile = _forum_admins_securitypolicyfile
_temp_readonly = _forum_admins_readonly
_temp_showbottombar = _forum_admins_showbottombar
_temp_showhtmlmode = _forum_admins_showhtmlmode
_temp_showpreviewmode = _forum_admins_showpreviewmode
_temp_editoronpaste = _forum_admins_editoronpaste
_temp_autoconfigure = _forum_admins_autoconfigure
Else
...
End If
That's it!
asp.net Chat http://cutesoft.net/ASP.NET+Chat/default.aspx
Web Messenger: http://cutesoft.net/Web-Messenger/default.aspx
asp.net wysiwyg editor: http://cutesoft.net/ASP.NET+WYSIWYG+Editor/default.aspx
asp wysiwyg html editor: http://cutesoft.net/ASP
asp.net Image Gallery: http://cutesoft.net/ASP.NET+Image+Gallery/default.aspx
Live Support: http://cutesoft.net/live-support/default.aspx