Table: DesktopModules, row (Effority Ealo HTML), columns [BusinessControllerClass] = effority.Ealo.HTML.HtmlTextController, [SupportedFeatures] = 7
file: App_Code\effority.Ealo.HTML\HtmlTextController.vb
Public Function GetSearchItems(ByVal ModInfo As Entities.Modules.ModuleInfo) As DotNetNuke.Services.Search.SearchItemInfoCollection Implements Entities.Modules.ISearchable.GetSearchItems
Dim SearchItemCollection As New SearchItemInfoCollection
Dim lCollection As LocaleCollection = Localization.GetSupportedLocales
'For Each localeInfo As Locale In lCollection
Dim AllSearchItems As New SearchItemInfo
For Each localeInfo As String In lCollection
Try
Dim objText As effority.Ealo.StringInfo
Dim objSummary As effority.Ealo.StringInfo
objText = effority.Ealo.Controller.GetStringByQualifierAndStringName(Consts.DesktopHTMLQualifier, ModInfo.ModuleID, localeInfo, True)
objSummary = effority.Ealo.Controller.GetStringByQualifierAndStringName(Consts.DesktopSummaryQualifier, ModInfo.ModuleID, localeInfo, True)
If Not objText.StringTextIsNull Then
'DesktopHTML is encoded in the Database so Decode before Indexing
Dim strDesktopHtml As String = HttpUtility.HtmlDecode(objText.StringText)
'Get the description string
Dim strDescription As String = HtmlUtils.Shorten(HtmlUtils.Clean(strDesktopHtml, False), MAX_DESCRIPTION_LENGTH, "...")
' User und PublishDate sind aufgrund des fehlenden eigenen Datenmodels nicht vorhanden
Dim SearchItem As SearchItemInfo = New SearchItemInfo(ModInfo.ModuleTitle, "<br /><b>" & localeInfo & "</b>: " & strDescription, -1, Now(), ModInfo.ModuleID, "", objSummary.StringText & " " & strDesktopHtml, "", Null.NullInteger)
With AllSearchItems
.Author = SearchItem.Author
.Content = .Content & SearchItem.Content
.Description = .Description & SearchItem.Description
.GUID = SearchItem.GUID
.HitCount = SearchItem.HitCount
.ImageFileId = SearchItem.ImageFileId
.ModuleId = SearchItem.ModuleId
.PubDate = SearchItem.PubDate
.SearchItemId = SearchItem.SearchItemId
.SearchKey = SearchItem.SearchKey
.Title = .Title & SearchItem.Title
End With
End If
Catch ex As Exception
ex.Message.ToString()
End Try
Next
SearchItemCollection.Add(AllSearchItems)
Return SearchItemCollection
End Function