For DNN 3.3.3 I replaced BindData in /admin/users/users.ascx.vb with this code:

Private Sub BindData(ByVal SearchText As String, ByVal SearchField As String)

CreateLetterSearch()

' Get the list of registered users from the database

Select Case SearchText

Case Localization.GetString("All")

Filter = ""

Case Localization.GetString("OnLine")

Filter = ""

Case Localization.GetString("Unauthorized")

Filter = ""

Case Else

Filter = SearchText

End Select

If Filter = "" Then

Select Case SearchText

Case Localization.GetString("Unauthorized")

Users = UserController.GetUnAuthorizedUsers(UsersPortalId, False)

' Hide pagingcontrol while diplaying UnAuthorized members, since they are not used here

ctlPagingControl.Visible = False

Case Localization.GetString("OnLine")

Users = UserController.GetOnlineUsers(UsersPortalId)

Case Else

Users = UserController.GetUsers(UsersPortalId, False, CurrentPage - 1, PageSize, TotalRecords)

End Select

ElseIf Filter <> "None" Then

Select Case SearchField

Case "email"

Users = UserController.GetUsersByEmail(UsersPortalId, False, Filter + "%", CurrentPage - 1, PageSize, TotalRecords)

Case "username"

Users = UserController.GetUsersByUserName(UsersPortalId, False, Filter + "%", CurrentPage - 1, PageSize, TotalRecords)

Case Else

Dim propertyName As String = ddlSearchType.SelectedItem.Value

Users = UserController.GetUsersByProfileProperty(UsersPortalId, False, propertyName, Filter + "%", CurrentPage - 1, PageSize, TotalRecords)

End Select

End If

grdUsers.DataSource = Users

grdUsers.DataBind()

ctlPagingControl.TotalRecords = TotalRecords

ctlPagingControl.PageSize = PageSize

ctlPagingControl.CurrentPage = CurrentPage

Dim strQuerystring As String

strQuerystring = "PageRecords=" + PageSize.ToString

If Filter <> "" Then

strQuerystring += "&filter=" + Filter

End If

ctlPagingControl.QuerystringParams = strQuerystring

ctlPagingControl.TabID = TabId

End Sub

---

Cheers from Germany,
Sebastian Leupold

   

Speed up your DNN Websites with TurboDNN

The function in 4.3.2 actually wasn't working. The change was made because the "All" filter was not paging properly, as the old code set the Filter="" for the All case.

This meant that the "Filter=All" parameter was not added to the Pager links, and you could only ever see the first page of Users.  Try it in 4.3.2 - if you have more than 1 page of users you will see all the pager links - click on one and you will get no list.

In 4.3.3, the problem appears to be the line:

ElseIf Filter = "All" Then

which should be

ElseIf Filter = Localization.GetString("All") Then

This would explain why some experience this (as only the non-english spellings of All would be affected).

The work-around is either to change the line in the code (or to modify through the Languages editor the Localization of the All filter to set it to the English spelling)

---

Charles Nurse Chief Architect Evoq Content Team Lead, DNN Corp. Want to contribute to the Platform project? - See here

MVP (ASP.NET) and ASPInsiders Member