#75 cast ArrayList to IList(Of RoleInfo)

ventrian · Jan 11, 2022 · 1ef98de · 1ef98de
1 parent 2dc19c6
commit 1ef98de
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 2 deletions.
diff --git a/Components/Common.vb b/Components/Common.vb
@@ -796,6 +796,18 @@ Namespace Ventrian.NewsArticles
             return retval
         End Function
 
+        Public shared Function ToList(Of T As Class)(objArrayList As ArrayList) As List(Of T)
+            Dim retval As New List(Of T)()
+
+            For Each objItem As Object In objArrayList
+                Dim newItem As T = TryCast(objItem, T)
+                If Not newItem Is Nothing Then
+                    retval.Add(newItem)
+                End If
+            Next
+
+            Return retval
+        End Function
 
 #End Region
 

diff --git a/ucViewOptions.ascx.vb b/ucViewOptions.ascx.vb
@@ -79,9 +79,9 @@ Namespace Ventrian.NewsArticles
                 roles = RoleController.Instance.GetRoles(PortalId)
             Else
                 Dim objRole As New RoleController
-                roles = objRole.GetRolesByGroup(PortalId, Convert.ToInt32(drpSecurityRoleGroups.SelectedValue))
+                roles = Common.ToList(Of RoleInfo)(objRole.GetRolesByGroup(PortalId, Convert.ToInt32(drpSecurityRoleGroups.SelectedValue)))
             End If
-
+            
             If Not roles Is Nothing Then
                 For Each Role As RoleInfo In roles
                     availableRoles.Add(New ListItem(Role.RoleName, Role.RoleName))