Static Tags List

App_LocalResources/ucViewOptions.ascx.resx

@@ -546,6 +546,9 @@
   <data name="CategorySettings.Text" xml:space="preserve">
     <value>Category Settings</value>
   </data>
+  <data name="TagSettings.Text" xml:space="preserve">
+    <value>Tag Settings</value>
+  </data>
   <data name="DefaultCategories.Help" xml:space="preserve">
     <value>Check categories to auto-select them on the create article screen.</value>
   </data>
@@ -1134,6 +1137,9 @@
   <data name="CategoryFilterSubmit.Text" xml:space="preserve">
     <value>Filter Category Submit</value>
   </data>
+  <data name="UseStaticTagsList.Text" xml:space="preserve">
+    <value>Use Static Tags List</value>
+  </data>
   <data name="AllGroups.Text" xml:space="preserve">
     <value>-- All Groups -- </value>
   </data>

Components/ArticleSettings.vb

@@ -244,6 +244,16 @@ Namespace Ventrian.NewsArticles
             End Get
         End Property
 
+        Public ReadOnly Property UseStaticTagsListSubmit() As Boolean
+            Get
+                If (Settings.Contains(ArticleConstants.USE_STATIC_TAGS_LIST_SUBMIT_SETTING)) Then
+                    Return Convert.ToBoolean(Settings(ArticleConstants.USE_STATIC_TAGS_LIST_SUBMIT_SETTING).ToString())
+                Else
+                    Return ArticleConstants.USE_STATIC_TAGS_LIST_SUBMIT_SETTING_DEFAULT
+                End If
+            End Get
+        End Property
+
         Public ReadOnly Property IncludeInPageName() As Boolean
             Get
                 If (Settings.Contains(ArticleConstants.CATEGORY_NAME_SETTING)) Then

Components/Common/ArticleConstants.vb

@@ -113,6 +113,9 @@ Namespace Ventrian.NewsArticles
         Public Const CATEGORY_FILTER_SUBMIT_SETTING_DEFAULT As Boolean = False
         Public Const CATEGORY_SORT_SETTING As String = "CategorySortType"
         Public Const CATEGORY_SORT_SETTING_DEFAULT As CategorySortType = CategorySortType.SortOrder
+        Public Const USE_STATIC_TAGS_LIST_SUBMIT_SETTING As String = "UseStaticTagsList"
+        Public Const USE_STATIC_TAGS_LIST_SUBMIT_SETTING_DEFAULT As Boolean = False
+
 
         ' Category Security Settings
         Public Const PERMISSION_CATEGORY_VIEW_SETTING As String = "PermissionCategoryView"

ucEditTags.ascx.vb

@@ -17,7 +17,10 @@ Namespace Ventrian.NewsArticles
 
             Localization.LocalizeDataGrid(grdTags, Me.LocalResourceFile)
 
-            grdTags.DataSource = objTagController.List(Me.ModuleId, Null.NullInteger)
+            Dim objTags As ArrayList = objTagController.List(Me.ModuleId, Null.NullInteger)
+
+            objTags.Sort()
+            grdTags.DataSource = objTags
             grdTags.DataBind()
 
             If (grdTags.Items.Count > 0) Then

ucSubmitNews.ascx

@@ -226,9 +226,10 @@
 		</tr>
 		<tr runat="Server" id="trTags">
 			<td class="SubHead" width="150"><dnn:label id="plTags" text="Tags:" runat="server" controlname="txtTags"></dnn:label></td>
-			<td>    
-			    <asp:textbox id="txtTags" cssclass="NormalTextBox" width="300" maxlength="255" runat="server" /><br />
+			<td>
+				<asp:textbox id="txtTags" cssclass="NormalTextBox" width="300" maxlength="255" runat="server" /><br />
 			    <asp:Label ID="lblTags" ResourceKey="TagsHelp" runat="server" CssClass="Normal" />
+				<asp:ListBox ID="lstTags" runat="server" CssClass="Normal" DataTextField="Name" DataValueField="Name" Width="300px" Height="150px" SelectionMode="Multiple" />
 			</td>
 		</tr>
 		</table>

ucSubmitNews.ascx.vb

@@ -191,7 +191,13 @@ Namespace Ventrian.NewsArticles
                         li.Selected = True
                     End If
                 Next
-                txtTags.Text = objArticle.Tags
+
+                If (ArticleSettings.UseStaticTagsListSubmit) Then
+                    SelectTags(objArticle.Tags)
+                Else
+                    txtTags.Text = objArticle.Tags
+                End If
+
 
                 Dim objPageController As New PageController
                 Dim pages As ArrayList = objPageController.GetPageList(_articleID)
@@ -336,6 +342,38 @@ Namespace Ventrian.NewsArticles
 
         End Sub
 
+        Private Sub BindTags()
+            If (ArticleSettings.UseStaticTagsListSubmit) Then
+                txtTags.Visible = False
+                lblTags.Visible = False
+
+                Dim objTagController As New TagController
+                Dim objTags As ArrayList = objTagController.List(ModuleId, Null.NullInteger)
+
+                objTags.Sort()
+                lstTags.DataSource = objTags
+                lstTags.DataBind()
+            Else
+                lstTags.Visible = False
+            End If
+        End Sub
+
+        Private Sub SelectTags(ByVal tagList As String)
+            Dim objTagController As New TagController
+            For Each tag As String In tagList.Split(","c)
+                If (tag <> "") Then
+                    Dim objTag As TagInfo = objTagController.Get(ModuleId, tag)
+
+                    If Not (objTag Is Nothing) Then
+                        Dim li As ListItem = lstTags.Items.FindByValue(objTag.Name)
+                        If Not (li Is Nothing) Then
+                            li.Selected = True
+                        End If
+                    End If
+                End If
+            Next
+        End Sub
+
         Private Sub BindCustomFields()
 
             Dim objCustomFieldController As New CustomFieldController()
@@ -1145,30 +1183,46 @@ Namespace Ventrian.NewsArticles
                 Dim objLinkedArticle As ArticleInfo = objArticleController.GetArticle(Convert.ToInt32(drpMirrorArticle.SelectedValue))
 
                 If (objLinkedArticle IsNot Nothing) Then
-                    txtTags.Text = objLinkedArticle.Tags
+                    If (ArticleSettings.UseStaticTagsListSubmit) Then
+                        SelectTags(objLinkedArticle.Tags)
+                    Else
+                        txtTags.Text = objLinkedArticle.Tags
+                    End If
                 End If
             End If
 
             Dim objTagController As New TagController
             objTagController.DeleteArticleTag(articleID)
 
-            If (txtTags.Text <> "") Then
-                Dim tags As String() = txtTags.Text.Split(","c)
-                For Each tag As String In tags
-                    If (tag <> "") Then
-                        Dim objTag As TagInfo = objTagController.Get(ModuleId, tag)
-
-                        If (objTag Is Nothing) Then
-                            objTag = New TagInfo
-                            objTag.Name = tag
-                            objTag.NameLowered = tag.ToLower()
-                            objTag.ModuleID = ModuleId
-                            objTag.TagID = objTagController.Add(objTag)
-                        End If
+            If (ArticleSettings.UseStaticTagsListSubmit) Then
+                For Each li As ListItem In lstTags.Items
+                    If (li.Selected) Then
+                        Dim objTag As TagInfo = objTagController.Get(ModuleId, li.Value)
 
-                        objTagController.Add(articleID, objTag.TagID)
+                        If Not (objTag Is Nothing) Then
+                            objTagController.Add(articleID, objTag.TagID)
+                        End If
                     End If
                 Next
+            Else
+                If (txtTags.Text <> "") Then
+                    Dim tags As String() = txtTags.Text.Split(","c)
+                    For Each tag As String In tags
+                        If (tag <> "") Then
+                            Dim objTag As TagInfo = objTagController.Get(ModuleId, tag)
+
+                            If (objTag Is Nothing) Then
+                                objTag = New TagInfo
+                                objTag.Name = tag
+                                objTag.NameLowered = tag.ToLower()
+                                objTag.ModuleID = ModuleId
+                                objTag.TagID = objTagController.Add(objTag)
+                            End If
+
+                            objTagController.Add(articleID, objTag.TagID)
+                        End If
+                    Next
+                End If
             End If
 
         End Sub
@@ -1517,6 +1571,7 @@ Namespace Ventrian.NewsArticles
 
                     BindStatus()
                     BindCategories()
+                    BindTags()
                     SetVisibility()
                     BindArticle()
                     SetValidationGroup()

ucViewOptions.ascx

@@ -177,6 +177,16 @@
 							</tr>
 						</table>
 						<br />
+						<dnn:sectionhead id="dshTags" cssclass="Head" runat="server" text="Tag Settings" resourcekey="TagSettings"
+							section="tblTags" isexpanded="False" />
+						<table id="tblTags" cellspacing="2" cellpadding="2" summary="Appearance Design Table"
+							border="0" runat="server">
+							<tr>
+								<td class="SubHead" width="200"><dnn:label id="Label12" runat="server" resourcekey="UseStaticTagsList" controlname="chkUseStaticTagsList"></dnn:label></td>
+								<td valign="top"><asp:checkbox id="chkUseStaticTagsList" Runat="server" CssClass="NormalTextBox"></asp:checkbox></td>
+							</tr>
+						</table>
+						<br />
 						<dnn:sectionhead id="dshComments" cssclass="Head" runat="server" text="Comment Settings" resourcekey="CommentSettings"
 							section="tblComments" isexpanded="False" />
 						<table id="tblComments" cellspacing="2" cellpadding="2" summary="Appearance Design Table"