Merge pull request #70 from ventrian/latest-news

Latest news

App_LocalResources/LatestArticlesOptions.ascx.resx

@@ -112,10 +112,10 @@
     <value>2.0</value>
   </resheader>
   <resheader name="reader">
-    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <resheader name="writer">
-    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
   <data name="LatestArticlesHelp.Text" xml:space="preserve">
     <value>In this section, you can adjust the settings for the "Latest Articles" module.</value>
@@ -675,4 +675,7 @@
   <data name="TemplateSaves.Text" xml:space="preserve">
     <value>Template Saves</value>
   </data>
+  <data name="ImageTitle.Text" xml:space="preserve">
+    <value>The tile for the image of the article, displays nothing if no image selected.</value>
+  </data>
 </root>

Components/Layout/LayoutController.vb

@@ -1706,6 +1706,18 @@ Namespace Ventrian.NewsArticles
                                 End If
                             End If
 
+                        Case "IMAGETITLE"
+                            If (objArticle.ImageCount > 0) Then
+                                Dim objImageController As New ImageController
+                                Dim objImages As List(Of ImageInfo) = objImageController.GetImageList(objArticle.ArticleID, Null.NullString())
+
+                                If (objImages.Count > 0) Then
+                                    Dim objLiteral As New Literal
+                                    objLiteral.Text = objImages(0).Title
+                                    objPlaceHolder.Add(objLiteral)
+                                End If
+                            End If
+
                         Case "IMAGECOUNT"
                             Dim objLiteral As New Literal
                             objLiteral.Text = objArticle.ImageCount.ToString()

LatestArticlesOptions.ascx

@@ -536,6 +536,14 @@
 			                        <asp:label id="lblImage" resourcekey="Image" cssclass="Normal" runat="server" enableviewstate="False"></asp:label>
 		                        </td>
 	                        </tr>
+
+	                        <tr valign="top">
+		                        <TD class="SubHead" width="150">[IMAGETITLE]</TD>
+		                        <td class="Normal" align="left" width="325">
+			                        <asp:label id="lblImageTitle" resourcekey="ImageTitle" cssclass="Normal" runat="server" enableviewstate="False"></asp:label>
+		                        </td>
+	                        </tr>
+
 	                        <tr valign="top">
 		                        <TD class="SubHead" width="150">[IMAGELINK]</TD>
 		                        <td class="Normal" align="left">