Imports Rocktime
Imports Rocktime.Core
Imports Rocktime.DBAccess
Imports Rocktime.Base

Partial Class Acx_JobsList
    Inherits UserControlExClass

    Private _Pager As PagerClass
    Public JobData As New rtJobsClass.JobData

    Protected Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender

        Dim DBStatus As New DBStatusClass(10, PagerClass.PageNumberFormatType.LimitFollow, 10, "JobsDisplay")
        _Pager = DBStatus.Pager

        If JobData Is Nothing Then
            Response.Redirect("jobs.aspx")
        Else
            JobData.Title.SearchType = SQLFn.WhereClass.SearchType.StringLike
            JobData.Description.SearchType = SQLFn.WhereClass.SearchType.StringLike
            JobData.Reference.SearchType = SQLFn.WhereClass.SearchType.StringLike
            JobData.Location.SearchType = SQLFn.WhereClass.SearchType.StringLike
            JobData.Salary.SearchType = SQLFn.WhereClass.SearchType.StringLike

            Dim Jobs As ArrayList = rtJobsClass.SearchJoin(DBStatus, JobData, "JobDateTime DESC", , , True)
            repJobs.DataSource = Jobs
            repJobs.DataBind()
            repJobs.Visible = (Jobs.Count > 0)
            txtNoJobs.Visible = (Jobs.Count = 0)
        End If

    End Sub

    Protected Sub repJobs_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.RepeaterItemEventArgs) Handles repJobs.ItemDataBound

        Dim Data As rtJobsClass.JobData

        Select Case e.Item.ItemType
            Case ListItemType.Header
                GetLiteral(e, "txtPageInfo").Text = _Pager.InfoBarPage(False, "", "")

            Case ListItemType.Footer
                GetLiteral(e, "txtPageInfo").Text = _Pager.InfoBarPage(False, "", "")
                GetLiteral(e, "txtNavBar").Text = _Pager.NavBar
                GetLiteral(e, "txtButtonPreviousBlock").Text = _Pager.ButtonPreviousBlock()
                GetLiteral(e, "txtButtonNextBlock").Text = _Pager.ButtonNextBlock()

            Case ListItemType.Separator

            Case ListItemType.EditItem, ListItemType.Pager, ListItemType.SelectedItem

            Case Else
                Data = CType(e.Item.DataItem, rtJobsClass.JobData)

                GetLiteral(e, "txtJobCategoryName").Text = "<strong>" & Data.JobCategoriesData.Name.Text & "</strong><br />"
                GetLiteral(e, "txtJobTitle").Text = "<strong>" & Data.Title.Text & "</strong><br />"
                GetLiteral(e, "txtJobReference").Text = Data.Reference.Text
                GetLiteral(e, "txtJobLocation").Text = Data.Location.Text
                GetLiteral(e, "txtJobWorkingHours").Text = Data.WorkingHours.Text
                GetLiteral(e, "txtJobSalary").Text = Data.Salary.Text
                GetLiteral(e, "txtJobVacanciesAvailable").Text = Data.VacanciesAvailable.Text
                GetLiteral(e, "txtJobStartDate").Text = Data.StartDate.Text
                GetLiteral(e, "txtJobDescription").Text = Data.Description.Html

                CType(e.Item.FindControl("btnApplyForJob"), HyperLink).NavigateUrl = "/apply-for-job.aspx?fdJobId=" & Data.Id.Value

        End Select

    End Sub

End Class