' ' DotNetNukeŽ - http://www.dotnetnuke.com ' Copyright (c) 2002-2010 ' by DotNetNuke Corporation ' ' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated ' documentation files (the "Software"), to deal in the Software without restriction, including without limitation ' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and ' to permit persons to whom the Software is furnished to do so, subject to the following conditions: ' ' The above copyright notice and this permission notice shall be included in all copies or substantial portions ' of the Software. ' ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED ' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL ' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF ' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER ' DEALINGS IN THE SOFTWARE. ' Imports DotNetNuke.Entities.Modules Imports DotNetNuke.Entities.Modules.Actions Imports DotNetNuke.Entities.Profile Imports DotNetNuke.Security.Profile Imports DotNetNuke.Services.Localization Imports DotNetNuke.UI.Skins.Controls.ModuleMessage Imports DotNetNuke.UI.Utilities Imports DotNetNuke.UI.WebControls Imports DotNetNuke.Common.Lists Namespace DotNetNuke.Modules.Admin.Users ''' ----------------------------------------------------------------------------- ''' ''' The Users PortalModuleBase is used to manage the Registered Users of a portal ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' [cnurse] 02/16/2006 Updated to reflect custom profile definitions ''' ''' ----------------------------------------------------------------------------- Partial Class UserAccounts Inherits Entities.Modules.PortalModuleBase Implements Entities.Modules.IActionable #Region "Private Members" Private _Filter As String = "" Private _FilterProperty As String = "" Private _CurrentPage As Integer = 1 Private _Users As ArrayList = New ArrayList #End Region #Region "Protected Members" Protected TotalPages As Integer = -1 Protected TotalRecords As Integer Protected Property CurrentPage() As Integer Get Return _CurrentPage End Get Set(ByVal Value As Integer) _CurrentPage = Value End Set End Property Protected Property Filter() As String Get Return _Filter End Get Set(ByVal Value As String) _Filter = Value End Set End Property Protected Property FilterProperty() As String Get Return _FilterProperty End Get Set(ByVal Value As String) _FilterProperty = Value End Set End Property ''' ----------------------------------------------------------------------------- ''' ''' Gets whether we are dealing with SuperUsers ''' ''' ''' [cnurse] 03/02/2006 Created ''' ''' ----------------------------------------------------------------------------- Protected ReadOnly Property IsSuperUser() As Boolean Get If PortalSettings.ActiveTab.ParentId = PortalSettings.SuperTabId Then Return True Else Return False End If End Get End Property ''' ----------------------------------------------------------------------------- ''' ''' Gets the Page Size for the Grid ''' ''' ''' [cnurse] 03/02/2006 Created ''' ''' ----------------------------------------------------------------------------- Protected ReadOnly Property PageSize() As Integer Get Dim setting As Object = UserModuleBase.GetSetting(UsersPortalId, "Records_PerPage") Return CType(setting, Integer) End Get End Property ''' ----------------------------------------------------------------------------- ''' ''' Gets a flag that determines whether to suppress the Pager (when not required) ''' ''' ''' [cnurse] 08/10/2006 Created ''' ''' ----------------------------------------------------------------------------- Protected ReadOnly Property SuppressPager() As Boolean Get Dim setting As Object = UserModuleBase.GetSetting(UsersPortalId, "Display_SuppressPager") Return CType(setting, Boolean) End Get End Property ''' ----------------------------------------------------------------------------- ''' ''' Gets the Portal Id whose Users we are managing ''' ''' ''' [cnurse] 03/02/2006 Created ''' ''' ----------------------------------------------------------------------------- Protected ReadOnly Property UsersPortalId() As Integer Get Dim intPortalId As Integer = PortalId If IsSuperUser Then intPortalId = Null.NullInteger End If Return intPortalId End Get End Property ''' ----------------------------------------------------------------------------- ''' ''' Gets and sets the Filter to use ''' ''' ''' [cnurse] 03/09/2006 Created ''' ''' ----------------------------------------------------------------------------- Protected ReadOnly Property UserFilter(ByVal newFilter As Boolean) As String Get Dim page As String = IIf(Not String.IsNullOrEmpty(CurrentPage), "currentpage=" & CurrentPage, "").ToString() Dim filterString As String Dim filterPropertyString As String If Not newFilter Then filterString = IIf(Not String.IsNullOrEmpty(Filter), "filter=" & Filter, "").ToString() filterPropertyString = IIf(Not String.IsNullOrEmpty(FilterProperty), "filterproperty=" & FilterProperty, "").ToString() Else filterString = IIf(Not String.IsNullOrEmpty(txtSearch.Text), "filter=" & Server.UrlEncode(txtSearch.Text), "").ToString() filterPropertyString = IIf(Not String.IsNullOrEmpty(ddlSearchType.SelectedValue.ToString()), "filterproperty=" & ddlSearchType.SelectedValue.ToString(), "").ToString() End If If Not String.IsNullOrEmpty(filterString) Then filterString += "&" End If If Not String.IsNullOrEmpty(filterPropertyString) Then filterString += filterPropertyString + "&" End If If Not String.IsNullOrEmpty(page) Then filterString += page End If Return filterString End Get End Property Protected Property Users() As ArrayList Get Return _Users End Get Set(ByVal Value As ArrayList) _Users = Value End Set End Property #End Region #Region "Private Methods" Private Function AddSearchItem(ByVal name As String) As ListItem Dim propertyName As String = Null.NullString If Not Request.QueryString("filterProperty") Is Nothing Then propertyName = Request.QueryString("filterProperty") End If Dim text As String = Localization.GetString(name, Me.LocalResourceFile) If text = "" Then text = name Dim li As ListItem = New ListItem(text, name) If name = propertyName Then li.Selected = True End If Return li End Function ''' ----------------------------------------------------------------------------- ''' ''' BindData gets the users from the Database and binds them to the DataGrid ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Private Sub BindData() BindData(Nothing, Nothing) End Sub ''' ----------------------------------------------------------------------------- ''' ''' BindData gets the users from the Database and binds them to the DataGrid ''' ''' ''' ''' Text to Search ''' Field to Search ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' [aprasad] 2/15/2011 Handle Deleted filter ''' ''' ----------------------------------------------------------------------------- Private Sub BindData(ByVal SearchText As String, ByVal SearchField As String) CreateLetterSearch() Dim strQuerystring As String = Null.NullString If SearchText <> "" Then strQuerystring += "filter=" + SearchText End If If SearchText = Localization.GetString("Unauthorized") Then Users = UserController.GetUnAuthorizedUsers(UsersPortalId, True, IsSuperUser) ctlPagingControl.Visible = False ElseIf SearchText = Localization.GetString("Deleted") Then Users = UserController.GetDeletedUsers(UsersPortalId) ctlPagingControl.Visible = False ElseIf SearchText = Localization.GetString("OnLine") Then Users = UserController.GetOnlineUsers(UsersPortalId) ctlPagingControl.Visible = False ElseIf SearchText = Localization.GetString("All") Then Users = UserController.GetUsers(UsersPortalId, CurrentPage - 1, PageSize, TotalRecords, True, IsSuperUser) ElseIf SearchText <> "None" Then Select Case SearchField Case "Email" Users = UserController.GetUsersByEmail(UsersPortalId, SearchText + "%", CurrentPage - 1, PageSize, TotalRecords, True, IsSuperUser) Case "Username" Users = UserController.GetUsersByUserName(UsersPortalId, SearchText + "%", CurrentPage - 1, PageSize, TotalRecords, True, IsSuperUser) Case Else Users = UserController.GetUsersByProfileProperty(UsersPortalId, SearchField, SearchText + "%", CurrentPage - 1, PageSize, TotalRecords, True, IsSuperUser) strQuerystring += "&filterProperty=" + SearchField End Select End If If SuppressPager And ctlPagingControl.Visible Then ctlPagingControl.Visible = (PageSize < TotalRecords) End If grdUsers.DataSource = Users grdUsers.DataBind() ctlPagingControl.TotalRecords = TotalRecords ctlPagingControl.PageSize = PageSize ctlPagingControl.CurrentPage = CurrentPage ctlPagingControl.QuerystringParams = strQuerystring ctlPagingControl.TabID = TabId End Sub ''' ----------------------------------------------------------------------------- ''' ''' Builds the letter filter ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Private Sub CreateLetterSearch() Dim filters As String = Localization.GetString("Filter.Text", Me.LocalResourceFile) filters += "," + Localization.GetString("All") filters += "," + Localization.GetString("OnLine") filters += "," + Localization.GetString("Unauthorized") filters += "," + Localization.GetString("Deleted") Dim strAlphabet As String() = filters.Split(","c) rptLetterSearch.DataSource = strAlphabet rptLetterSearch.DataBind() End Sub ''' ----------------------------------------------------------------------------- ''' ''' Deletes all unauthorized users ''' ''' ''' [cnurse] 03/02/2006 Created ''' ''' ----------------------------------------------------------------------------- Private Sub DeleteUnAuthorizedUsers() Try UserController.DeleteUnauthorizedUsers(PortalId) BindData(Filter, ddlSearchType.SelectedItem.Value) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' Permanently removes soft-deleted users ''' ''' ''' [aprasad] 02/15/2011 Created ''' ''' ----------------------------------------------------------------------------- Private Sub RemoveDeletedUsers() Try UserController.RemoveDeletedUsers(PortalId) BindData(Filter, ddlSearchType.SelectedItem.Value) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' Can user delete / remove / restore ''' ''' ''' ''' ''' [aprasad] 2/16/2011 Created ''' ''' ''' ----------------------------------------------------------------------------- Private Function IsCommandAllowed(ByVal user As UserInfo, ByVal Command As String) As Boolean Dim immageVisibility As Boolean = Not (user.UserID = PortalSettings.AdministratorId) AndAlso _ (Not user.IsInRole(PortalSettings.AdministratorRoleName) OrElse _ (PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName))) AndAlso _ Not user.UserID = UserId If (immageVisibility) Then If (Command = "Delete") Then If (user.IsDeleted) Then immageVisibility = False End If ElseIf (Command = "Remove" Or Command = "Restore") Then If (user.IsDeleted) Then immageVisibility = True Else immageVisibility = False End If End If End If Return immageVisibility End Function #End Region #Region "Public Methods" ''' ----------------------------------------------------------------------------- ''' ''' DisplayAddress correctly formats an Address ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Public Function DisplayAddress(ByVal Unit As Object, ByVal Street As Object, ByVal City As Object, ByVal Region As Object, ByVal Country As Object, ByVal PostalCode As Object) As String Dim _Address As String = Null.NullString Try _Address = FormatAddress(Unit, Street, City, Region, Country, PostalCode) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try Return _Address End Function ''' ----------------------------------------------------------------------------- ''' ''' DisplayEmail correctly formats an Email Address ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Public Function DisplayEmail(ByVal Email As String) As String Dim _Email As String = Null.NullString Try If Not Email Is Nothing Then _Email = HtmlUtils.FormatEmail(Email, False) End If Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try Return _Email End Function ''' ----------------------------------------------------------------------------- ''' ''' DisplayDate correctly formats the Date ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Public Function DisplayDate(ByVal UserDate As Date) As String Dim _Date As String = Null.NullString Try If Not Null.IsNull(UserDate) Then _Date = UserDate.ToString Else _Date = "" End If Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try Return _Date End Function ''' ----------------------------------------------------------------------------- ''' ''' FormatURL correctly formats the Url for the Edit User Link ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Protected Function FormatURL(ByVal strKeyName As String, ByVal strKeyValue As String) As String Dim _URL As String = Null.NullString Try If Filter <> "" Then _URL = EditUrl(strKeyName, strKeyValue, "", "filter=" & Filter) Else _URL = EditUrl(strKeyName, strKeyValue) End If Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try Return _URL End Function ''' ----------------------------------------------------------------------------- ''' ''' FilterURL correctly formats the Url for filter by first letter and paging ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Protected Function FilterURL(ByVal Filter As String, ByVal CurrentPage As String) As String Dim _URL As String = Null.NullString If Filter <> "" Then If CurrentPage <> "" Then _URL = Common.Globals.NavigateURL(TabId, "", "filter=" & Filter, "currentpage=" & CurrentPage) Else _URL = Common.Globals.NavigateURL(TabId, "", "filter=" & Filter) End If Else If CurrentPage <> "" Then _URL = Common.Globals.NavigateURL(TabId, "", "currentpage=" & CurrentPage) Else _URL = Common.Globals.NavigateURL(TabId, "") End If End If Return _URL End Function #End Region #Region "Event Handlers" ''' ----------------------------------------------------------------------------- ''' ''' Page_Init runs when the control is initialised ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init If Not Request.QueryString("CurrentPage") Is Nothing Then CurrentPage = CType(Request.QueryString("CurrentPage"), Integer) End If If Not Request.QueryString("filter") Is Nothing Then Filter = Request.QueryString("filter") End If If Not Request.QueryString("filterproperty") Is Nothing Then FilterProperty = Request.QueryString("filterproperty") End If If Filter = "" Then 'Get Default View Dim setting As Object = UserModuleBase.GetSetting(UsersPortalId, "Display_Mode") Dim mode As DisplayMode = CType(setting, DisplayMode) Select Case mode Case DisplayMode.All Filter = Localization.GetString("All") Case DisplayMode.FirstLetter Filter = Localization.GetString("Filter.Text", Me.LocalResourceFile).Substring(0, 1) Case DisplayMode.None Filter = "None" End Select End If For Each column As DataGridColumn In grdUsers.Columns Dim isVisible As Boolean Dim header As String = column.HeaderText If header = "" Or header.ToLower = "username" Then isVisible = True Else Dim settingKey As String = "Column_" + header Dim setting As Object = UserModuleBase.GetSetting(UsersPortalId, settingKey) isVisible = CType(setting, Boolean) End If If column.GetType Is GetType(ImageCommandColumn) Then isVisible = Me.IsEditable 'Manage Delete Confirm JS Dim imageColumn As ImageCommandColumn = CType(column, ImageCommandColumn) If imageColumn.CommandName = "Delete" Then imageColumn.OnClickJS = Localization.GetString("DeleteItem") ElseIf imageColumn.CommandName = "Remove" Then imageColumn.OnClickJS = Localization.GetString("RemoveItem") End If 'Manage Edit Column NavigateURLFormatString If imageColumn.CommandName = "Edit" Then 'The Friendly URL parser does not like non-alphanumeric characters 'so first create the format string with a dummy value and then 'replace the dummy value with the FormatString place holder Dim formatString As String = EditUrl("UserId", "KEYFIELD", "Edit", UserFilter(False)) formatString = formatString.Replace("KEYFIELD", "{0}") imageColumn.NavigateURLFormatString = formatString End If 'Manage Roles Column NavigateURLFormatString If imageColumn.CommandName = "UserRoles" Then If IsHostMenu Then isVisible = False Else 'The Friendly URL parser does not like non-alphanumeric characters 'so first create the format string with a dummy value and then 'replace the dummy value with the FormatString place holder Dim formatString As String = EditUrl("UserId", "KEYFIELD", "User Roles", UserFilter(False)) formatString = formatString.Replace("KEYFIELD", "{0}") imageColumn.NavigateURLFormatString = formatString End If End If 'Localize Image Column Text If imageColumn.CommandName <> "" Then imageColumn.Text = Localization.GetString(imageColumn.CommandName, Me.LocalResourceFile) End If End If column.Visible = isVisible Next End Sub ''' ----------------------------------------------------------------------------- ''' ''' Page_Load runs when the control is loaded ''' ''' ''' ''' ''' [cnurse] 9/10/2004 Updated to reflect design changes for Help, 508 support ''' and localisation ''' ''' ----------------------------------------------------------------------------- Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try 'Add an Action Event Handler to the Skin AddActionHandler(AddressOf ModuleAction_Click) If Not Page.IsPostBack Then 'Load the Search Combo ddlSearchType.Items.Add(AddSearchItem("Username")) ddlSearchType.Items.Add(AddSearchItem("Email")) Dim profileProperties As ProfilePropertyDefinitionCollection = ProfileController.GetPropertyDefinitionsByPortal(PortalId, False) For Each definition As ProfilePropertyDefinition In profileProperties Dim controller As New ListController Dim imageDataType As ListEntryInfo = controller.GetListEntryInfo("DataType", "Image") If imageDataType Is Nothing OrElse definition.DataType = imageDataType.EntryID Then Exit For End If ddlSearchType.Items.Add(AddSearchItem(definition.PropertyName)) Next 'Localize the Headers Localization.LocalizeDataGrid(grdUsers, Me.LocalResourceFile) BindData(Filter, ddlSearchType.SelectedItem.Value) 'Sent controls to current Filter If (Filter <> "" And Filter.ToUpper() <> "NONE") And FilterProperty <> "" Then txtSearch.Text = Filter ddlSearchType.SelectedValue = FilterProperty End If End If Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' ModuleAction_Click handles all ModuleAction events raised from the skin ''' ''' ''' ''' The object that triggers the event ''' An ActionEventArgs object ''' ''' [cnurse] 03/02/2006 Created ''' ''' ----------------------------------------------------------------------------- Private Sub ModuleAction_Click(ByVal sender As Object, ByVal e As ActionEventArgs) Select Case e.Action.CommandArgument Case "Delete" DeleteUnAuthorizedUsers() Case "Remove" RemoveDeletedUsers() End Select End Sub ''' ----------------------------------------------------------------------------- ''' ''' btnSearch_Click runs when the user searches for accounts by username or email ''' ''' ''' ''' ''' [dancaron] 10/28/2004 Intial Version ''' ''' ----------------------------------------------------------------------------- Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles btnSearch.Click CurrentPage = 1 txtSearch.Text = txtSearch.Text.Trim Response.Redirect(NavigateURL(TabId, "", UserFilter(True))) End Sub ''' ----------------------------------------------------------------------------- ''' ''' grdUsers_ItemCommand runs when any command is trggered ''' ''' ''' ''' ''' [aprasad] 02/16/2011 Intial documentation ''' ''' ----------------------------------------------------------------------------- Private Sub grdUsers_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles grdUsers.ItemCommand Select Case e.CommandName Case "Delete" grdUsers_DeleteCommand(source, e) Case "Remove" grdUsers_RemoveCommand(source, e) Case "Restore" grdUsers_RestoreCommand(source, e) End Select End Sub ''' ----------------------------------------------------------------------------- ''' ''' grdUsers_DeleteCommand runs when the icon in the delete column is clicked ''' ''' ''' ''' ''' [cnurse] 01/05/2007 Intial documentation ''' ''' ----------------------------------------------------------------------------- Private Sub grdUsers_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Try Dim userId As Integer = Int32.Parse(e.CommandArgument.ToString) Dim user As UserInfo = UserController.GetUserById(UsersPortalId, userId) If Not user Is Nothing Then If UserController.DeleteUser(user, True, False) Then UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserDeleted", Me.LocalResourceFile), ModuleMessageType.GreenSuccess) Else UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserDeleteError", Me.LocalResourceFile), ModuleMessageType.RedError) End If End If If txtSearch.Text <> "" Then Filter = txtSearch.Text End If BindData(Filter, ddlSearchType.SelectedItem.Value) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' grdUsers_RemoveCommand runs when the icon in the delete column is clicked ''' ''' ''' ''' ''' [aprasad] 02/16/2011 Intial documentation ''' ''' ----------------------------------------------------------------------------- Private Sub grdUsers_RemoveCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Try Dim userId As Integer = Int32.Parse(e.CommandArgument.ToString) Dim user As UserInfo = UserController.GetUserById(UsersPortalId, userId) If Not user Is Nothing Then If UserController.RemoveUser(user) Then UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserRemoved", Me.LocalResourceFile), ModuleMessageType.GreenSuccess) Else UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserRemoveError", Me.LocalResourceFile), ModuleMessageType.RedError) End If End If If txtSearch.Text <> "" Then Filter = txtSearch.Text End If BindData(Filter, ddlSearchType.SelectedItem.Value) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' grdUsers_RestoreCommand runs when the icon in the delete column is clicked ''' ''' ''' ''' ''' [aprasad] 02/16/2011 Intial documentation ''' ''' ----------------------------------------------------------------------------- Private Sub grdUsers_RestoreCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Try Dim userId As Integer = Int32.Parse(e.CommandArgument.ToString) Dim user As UserInfo = UserController.GetUserById(UsersPortalId, userId) If Not user Is Nothing Then If UserController.RestoreUser(user) Then UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserRestored", Me.LocalResourceFile), ModuleMessageType.GreenSuccess) Else UI.Skins.Skin.AddModuleMessage(Me, Localization.GetString("UserRestoreError", Me.LocalResourceFile), ModuleMessageType.RedError) End If End If If txtSearch.Text <> "" Then Filter = txtSearch.Text End If BindData(Filter, ddlSearchType.SelectedItem.Value) Catch exc As Exception 'Module failed to load ProcessModuleLoadException(Me, exc) End Try End Sub ''' ----------------------------------------------------------------------------- ''' ''' grdUsers_ItemDataBound runs when a row in the grid is bound ''' ''' ''' ''' ''' [cnurse] 01/05/2007 Intial documentation ''' ''' ----------------------------------------------------------------------------- Private Sub grdUsers_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles grdUsers.ItemDataBound Dim item As DataGridItem = e.Item If item.ItemType = ListItemType.Item Or _ item.ItemType = ListItemType.AlternatingItem Or _ item.ItemType = ListItemType.SelectedItem Then Dim imgApprovedDeleted As WebControl = item.FindControl("imgApprovedDeleted") Dim imgNotApprovedDeleted As WebControl = item.FindControl("imgNotApprovedDeleted") Dim imgApproved As WebControl = item.FindControl("imgApproved") Dim imgNotApproved As WebControl = item.FindControl("imgNotApproved") Dim user As UserInfo = CType(item.DataItem, UserInfo) If user IsNot Nothing Then If user.IsDeleted Then For Each control As WebControl In item.Controls() control.Attributes.Remove("class") control.Attributes.Add("class", "NormalDeleted") Next If imgApprovedDeleted IsNot Nothing AndAlso user.Membership.Approved Then imgApprovedDeleted.Visible = True ElseIf imgNotApprovedDeleted IsNot Nothing AndAlso Not user.Membership.Approved Then imgNotApprovedDeleted.Visible = True End If Else If imgApproved IsNot Nothing AndAlso user.Membership.Approved Then imgApproved.Visible = True ElseIf imgNotApproved IsNot Nothing AndAlso Not user.Membership.Approved Then imgNotApproved.Visible = True End If End If End If Dim imgColumnControl As Control = item.Controls(0).Controls(0) If TypeOf imgColumnControl Is HyperLink Then Dim editLink As HyperLink = CType(imgColumnControl, HyperLink) editLink.Visible = Not user.IsInRole(PortalSettings.AdministratorRoleName) OrElse (PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName)) End If imgColumnControl = item.Controls(1).Controls(0) If TypeOf imgColumnControl Is ImageButton Then Dim delImage As ImageButton = CType(imgColumnControl, ImageButton) delImage.Visible = IsCommandAllowed(user, "Delete") End If imgColumnControl = item.Controls(2).Controls(0) If TypeOf imgColumnControl Is HyperLink Then Dim rolesLink As HyperLink = CType(imgColumnControl, HyperLink) rolesLink.Visible = Not user.IsInRole(PortalSettings.AdministratorRoleName) OrElse (PortalSecurity.IsInRole(PortalSettings.AdministratorRoleName)) End If imgColumnControl = item.Controls(3).FindControl("imgOnline") If TypeOf imgColumnControl Is System.Web.UI.WebControls.Image Then Dim userOnlineImage As System.Web.UI.WebControls.Image = CType(imgColumnControl, System.Web.UI.WebControls.Image) userOnlineImage.Visible = user.Membership.IsOnLine End If imgColumnControl = item.Controls(3).Controls(0) If TypeOf imgColumnControl Is ImageButton Then Dim restoreImage As ImageButton = CType(imgColumnControl, ImageButton) restoreImage.Visible = IsCommandAllowed(user, "Restore") End If imgColumnControl = item.Controls(4).Controls(0) If TypeOf imgColumnControl Is ImageButton Then Dim removeImage As ImageButton = CType(imgColumnControl, ImageButton) removeImage.Visible = IsCommandAllowed(user, "Remove") End If End If End Sub #End Region #Region "Optional Interfaces" Public ReadOnly Property ModuleActions() As ModuleActionCollection Implements Entities.Modules.IActionable.ModuleActions Get Dim Actions As New ModuleActionCollection Dim FilterParams(IIf(txtSearch.Text.Trim() = "", 2, 3)) As String If (txtSearch.Text.Trim() = "") Then FilterParams.SetValue("filter=" & Filter, 0) FilterParams.SetValue("currentpage=" & CurrentPage, 1) Else FilterParams.SetValue("filter=" & txtSearch.Text, 0) FilterParams.SetValue("filterproperty=" & IIf(ddlSearchType Is Nothing, "", ddlSearchType.SelectedValue.ToString()), 1) FilterParams.SetValue("currentpage=" & CurrentPage, 2) End If Actions.Add(GetNextActionID, Localization.GetString(ModuleActionType.AddContent, LocalResourceFile), ModuleActionType.AddContent, "", "add.gif", EditUrl(), False, SecurityAccessLevel.Edit, True, False) Actions.Add(GetNextActionID, Localization.GetString("RemoveDeleted.Action", LocalResourceFile), ModuleActionType.AddContent, "Remove", "delete.gif", "", "confirm('" + ClientAPI.GetSafeJSString(Localization.GetString("RemoveItems.Confirm")) + "')", True, SecurityAccessLevel.Edit, True, False) If Not IsSuperUser Then Actions.Add(GetNextActionID, Localization.GetString("DeleteUnAuthorized.Action", LocalResourceFile), ModuleActionType.AddContent, "Delete", "action_delete.gif", "", "confirm('" + ClientAPI.GetSafeJSString(Localization.GetString("DeleteItems.Confirm")) + "')", True, SecurityAccessLevel.Edit, True, False) End If If ProfileProviderConfig.CanEditProviderProperties Then Actions.Add(GetNextActionID, Localization.GetString("ManageProfile.Action", LocalResourceFile), ModuleActionType.AddContent, "", "icon_profile_16px.gif", EditUrl("ManageProfile"), False, SecurityAccessLevel.Edit, True, False) End If Actions.Add(GetNextActionID, Localization.GetString("UserSettings.Action", LocalResourceFile), ModuleActionType.AddContent, "", "settings.gif", EditUrl("UserSettings"), False, SecurityAccessLevel.Edit, True, False) Return Actions End Get End Property #End Region End Class End Namespace