Merge pull request #76 from 40fingers/feature/75-settings-rolegroups-…

…issue

Feature/75 settings rolegroups issue

Closes #75

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
 

My Project/AssemblyInfo.vb

@@ -30,5 +30,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.8.02")> 
-<Assembly: AssemblyFileVersion("1.0.8.02")> 
+<Assembly: AssemblyVersion("1.12.00.00")> 
+<Assembly: AssemblyFileVersion("1.12.00.00")> 

NewsArticles.dnn

@@ -1,6 +1,6 @@
 <dotnetnuke type="Package" version="6.0">
   <packages>
-    <package name="DnnForge - NewsArticles" type="Module" version="00.11.03">
+    <package name="DnnForge - NewsArticles" type="Module" version="00.12.00">
       <friendlyName>News Articles</friendlyName>
       <description>
         <![CDATA[
@@ -864,7 +864,7 @@
         </component>
       </components>
     </package>
-    <package name="DnnForge - LatestArticles" type="Module" version="00.11.03">
+    <package name="DnnForge - LatestArticles" type="Module" version="00.12.00">
       <friendlyName>News Articles Latest</friendlyName>
       <description>Allows you to display a list of the latest articles.</description>
       <iconFile />
@@ -925,7 +925,7 @@
         </component>
       </components>
     </package>
-    <package name="DnnForge - LatestComments" type="Module" version="00.11.03">
+    <package name="DnnForge - LatestComments" type="Module" version="00.12.00">
       <friendlyName>News Articles Comments</friendlyName>
       <description>Allows you to display a list of the latest comments.</description>
       <iconFile />
@@ -986,7 +986,7 @@
         </component>
       </components>
     </package>
-    <package name="DnnForge - NewsArchives" type="Module" version="00.11.03">
+    <package name="DnnForge - NewsArchives" type="Module" version="00.12.00">
       <friendlyName>News Articles Archives</friendlyName>
       <description>Allows you to display a list of articles by month.</description>
       <iconFile />
@@ -1047,7 +1047,7 @@
         </component>
       </components>
     </package>
-    <package name="DnnForge - NewsSearch" type="Module" version="00.11.03">
+    <package name="DnnForge - NewsSearch" type="Module" version="00.12.00">
       <friendlyName>News Articles Search</friendlyName>
       <description>Allows you to display a list of articles by month.</description>
       <iconFile />

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))