From 7bc8a8853ece188baef573d1163a8ece0f79a07b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Vicen=C3=A7=20Masanas?= <vmasanas@disgrafic.com>
Date: Wed, 1 Sep 2021 10:58:57 +0200
Subject: [PATCH] Lastest new template does not support "TITLE" tag for IMAGE
 Issue #69

---
 Components/Layout/LayoutController.vb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Components/Layout/LayoutController.vb b/Components/Layout/LayoutController.vb
index 26164c1..53cf948 100755
--- a/Components/Layout/LayoutController.vb
+++ b/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()