Dim objTabs As New TabControllerDim objTab As TabInfoDim objModules As New ModuleControllerDim objModule As ModuleInfoDim iNew As Integer = 0' get items
Dim i As Integer = 0Dim ResultItem As SearchResultsInfoDim Results As SearchResultsInfoCollection = SearchDataStoreProvider.Instance.GetSearchItems(PortalSettings.PortalId, PortalSettings.ActiveTab.TabID, Null.NullInteger)'Parse through the Items
ResultItem = Results(i)
objTab = objTabs.GetTab(ResultItem.TabId, PortalSettings.PortalId,
For i = 0 To Results.Count - 1True)If PortalSecurity.IsInRoles(objTab.AuthorizedRoles) And CType(IIf(objTab.StartDate = Null.NullDate, Date.MinValue, objTab.StartDate), Date) < Now And CType(IIf(objTab.EndDate = Null.NullDate, Date.MaxValue, objTab.EndDate), Date) > Now Then
objModule = objModules.GetModule(ResultItem.ModuleId, ResultItem.TabId)
If objModule.IsDeleted = False And PortalSecurity.IsInRoles(objModule.AuthorizedViewRoles) = True And CType(IIf(objModule.StartDate = Null.NullDate, Date.MinValue, objModule.StartDate), Date) < Now And CType(IIf(objModule.EndDate = Null.NullDate, Date.MaxValue, objModule.EndDate), Date) > Now Then
If ResultItem.PubDate > PortalSettings.ActiveTab.StartDate() Then
DataProvider.Instance().ExecuteNonQuery(
PortalSettings.ActiveTab.StartDate = ResultItem.PubDate
"UpdateLastUpdated", ResultItem.TabId, ResultItem.PubDate)End If
End If
Else
Exit For
End If
Next
end if
j ai cree une procedure UpdateLastUpdated qui permet de definir une date de creation pour une page donnee.
une fois la recherche et la date remplie, il ne reste plus qu a l afficher, pour moi dans le skin.
Dim homepage As TabInfo = CBO.FillObject(Of TabInfo)(DataProvider.Instance().ExecuteReader("GetTabByTitle", "Home", PortalSettings.PortalId))If homepage.StartDate < PortalSettings.ActiveTab.StartDate Then