Imports Rocktime
Imports Rocktime.Core
Imports Rocktime.Base

Partial Class jobs
    Inherits PageExClass

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

        Dim Job As New rtJobsClass.JobData


        If Request("fdSubmit") = "Apply" Or Request("fdGotoPage_JobsDisplay") > "" Then

            Job = Session.Item("JobCriteria")
            JobsList1.JobData = Job
            pnlResults.Visible = True
            pnlSearchForm.Visible = False

        End If

        rtJobCategoriesClass.FillDroplist(fdJobJobCategoryId, rtJobCategoriesClass.Fields.Name, rtJobCategoriesClass.Fields.Id, False, True, , , , , , "Any Category")

    End Sub

    Protected Sub fdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles fdSubmit.Click

        Dim Job As New rtJobsClass.JobData

        Job.FillByPageObject(Me, , , , "ContentPlaceHolder1")

        pnlResults.Visible = True
        pnlSearchForm.Visible = False

        Session.Add("JobCriteria", Job)
        JobsList1.JobData = Job

    End Sub

    Protected Sub btnBackToSearchForm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBackToSearchForm.Click

        Dim Job As New rtJobsClass.JobData
        Job = Session.Item("JobCriteria")

        If (Not Job Is Nothing) And (StringFn.FixNum(Job.JobCategoryId.Value) > 0) Then
            fdJobJobCategoryId.SelectedValue = Job.JobCategoryId.Value
        End If

        pnlResults.Visible = False
        pnlSearchForm.Visible = True

    End Sub

End Class