Description

Returns edition object where the current page belongs.

Syntax

Example

  Public Function HasSection(ByVal sectName)

    Dim Edition = Page.GetEditionObj

    Dim edtid = Edition.idAttr

    Dim sectionname As String

    Dim edtpageids As List(Of Integer) = EditorialLogin.Get().GetPageList(edtid)

    Dim edtpage As Schema.Class.pageObj

    Dim idx = 0

    For Each pageid As Integer In edtpageids

      edtpage = EditorialLogin.Get().PageGet(pageid)

      sectionname = UtilsBase.GetObjAttrValue(edtpage.sectionRefAttr, "name")

      If sectionname = sectName Then

        Return True

      End If

    Next

    Return False

  End Function

Context

Page designer