Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Configuration
Imports GROKLibrary
Imports USSWITEADLibrary

Partial Class adtScheduleAssessment_M
    Inherits System.Web.UI.Page
    Dim cn, cn1 As SqlConnection
    Dim cmd1, cmd2, cmd3, cmd4 As SqlCommand
    Dim treenode As TreeNode
    Dim i, j, moveflag As Integer
    Dim dr, dr1, dr2, dr3 As SqlDataReader
    Dim control1, str As String
    Dim tmp As DateTime
    Dim strconnection, sts As String
    Dim isEditGroup As Boolean
    Dim aname, sname, gname As String
    Dim aid, grpid As Integer

    Protected Sub Page_Error(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Error
        If TypeOf Server.GetLastError().GetBaseException() Is System.Web.HttpRequestValidationException Then
            Response.Clear()
            Response.Write("Sorry. There was invalid input in your comment. This can occur when html or javascript is included in your text. Please hit the browser back buttion and try again.")
            Response.StatusCode = 200
            Response.End()

        End If
        Try
            If cn.State = ConnectionState.Open Then
                cn.Close()
                cn.Dispose()
            End If
            If cn1.State = ConnectionState.Open Then
                cn1.Close()
                cn1.Dispose()
            End If

        Catch ex As Exception
            Dim errorhandler As New helper
            errorhandler.errorHandler(Server.GetLastError().GetBaseException())

        End Try
    End Sub

    Protected Sub cmdSchedule_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSchedule.Click
        Try

            Dim cmdselect As SqlCommand
            Dim scheduleid, i As Integer
            Dim stdt, endt As DateTime
            cmdselect = New SqlCommand("SELECT max(ScheduleID) FROM AssessmentSchedule;", cn)
            dr = cmdselect.ExecuteReader
            dr.Read()
            If IsDBNull(dr(0)) = False Then
                scheduleid = dr(0) + 1
            Else
                scheduleid = 1
            End If
            dr.Close()
            strconnection = ConfigurationManager.ConnectionStrings("ptitestConnectionString").ConnectionString
            cn1 = New SqlConnection(strconnection)

            cn1.Open()
            stdt = Date.Parse(txtStartDate.Text & " " & ddlStartTime.SelectedItem.Text & ":" & ddlStartTimeMin.SelectedItem.Text)
            endt = Date.Parse(txtEndDate.Text & " " & ddlEndTime.SelectedItem.Text & ":" & ddlEndTimeMin.SelectedItem.Text)


            If Len(Trim(txtLimit.Text)) = 0 Then txtLimit.Text = "1000"

            Dim gid As Integer
            Dim str1 As String
            '        Dim p As Guid
            'username = Gridview1.
            'If Len(Trim(Membership.GetUser.UserName)) <> 0 Then
            '    gid = 0
            '    username = Membership.GetUser.UserName
            '    'MsgBox(username)
            '    p = Membership.GetUser(username).ProviderUserKey

            '    'cmdselect = New SqlCommand("SELECT ParticipantId from Participant where ParticipantId='" & username & "'", cn)
            '    str = "SELECT UserName from aspnet_Users where UserName='" & username & "'"
            If Len(hidfldGroupID.Value) <> 0 Then
                gid = CInt(hidfldGroupID.Value)
                'Get all the Participants belonging to selected GroupId.
                'cmdselect = New SqlCommand("SELECT ParticipantId from ParticipantGroup where GroupId=" & gid, cn)
                str1 = "SELECT UserName from aspnet_Users,ParticipantGroup_Membership where ParticipantGroup_Membership.ParticipantId=aspnet_Users.UserId and ParticipantGroup_Membership.GroupId=" & gid
                cmdselect = New SqlCommand(str1, cn1)
                dr1 = cmdselect.ExecuteReader
                If dr1.HasRows Then

                    sts = "NEW"
                    While dr1.Read()
                        i = 0
                        While i < ChkAssessList.Items.Count

                            If ChkAssessList.Items(i).Selected Then
                                scheduleid = scheduleid + 1
                                str = "Insert into AssessmentSchedule(ScheduleId,AssessmentId,ParticipantId,ScheduleName,StartDateTime,EndDateTime,LimitAttempts,LimitdaysBetweenRetakes,Status,GroupId,RetakeCount) Values(@ScheduleId,@AssessmentId,@ParticipantId,@ScheduleName,@StartDateTime,@EndDateTime,@LimitAttempts,@LimitdaysBetweenRetakes,@status,@GroupId,@Retakecount)"
                                cmd2 = New SqlCommand(str, cn)
                                cmd2.Parameters.AddWithValue("@ScheduleId", scheduleid)
                                cmd2.Parameters.AddWithValue("@AssessmentId", ChkAssessList.Items(i).Value)
                                cmd2.Parameters.AddWithValue("@ParticipantId", dr1(0))
                                cmd2.Parameters.AddWithValue("@ScheduleName", txtScheduleName.Text)
                                cmd2.Parameters.AddWithValue("@StartDateTime", stdt)
                                cmd2.Parameters.AddWithValue("@EndDateTime", endt)
                                cmd2.Parameters.AddWithValue("@LimitAttempts", CInt(txtLimit.Text))
                                cmd2.Parameters.AddWithValue("@LimitdaysBetweenRetakes", CInt(txtRetakes.Text))
                                cmd2.Parameters.AddWithValue("@Status", sts)
                                cmd2.Parameters.AddWithValue("@GroupId", gid)
                                cmd2.Parameters.AddWithValue("@Retakecount", 0)
                                cmd2.ExecuteNonQuery()
                            End If
                            i = i + 1
                        End While
                    End While
                    dr1.Close()

                End If


                cn1.Close()
                cn1.Dispose()
                Page.Response.Redirect("~/AdminTeacher/adtShowSchedule.aspx", False)

            ElseIf Len(hidfldGroupName.Value) <> 0 Then  ' From Show GroupSchedule Page

                str = "Update AssessmentSchedule set ScheduleName=@ScheduleName,StartDateTime=@StartDateTime, "
                str += " EndDateTime=@EndDateTime,LimitAttempts=@LimitAttempts,LimitdaysBetweenRetakes=@LimitdaysBetweenRetakes"
                str += " Where AssessmentId=" & CInt(hidfldAssessName.Value) & " and GroupId=" & CInt(hidfldGroupName.Value) & ";"
                cmd2 = New SqlCommand(str, cn)
                ' cmd2.Parameters.AddWithValue("@ScheduleId", scheduleid)
                '  cmd2.Parameters.AddWithValue("@AssessmentId", ChkAssessList.Items(i).Value)
                'cmd2.Parameters.AddWithValue("@ParticipantId", dr1(0))
                cmd2.Parameters.AddWithValue("@ScheduleName", txtScheduleName.Text)
                cmd2.Parameters.AddWithValue("@StartDateTime", stdt)
                cmd2.Parameters.AddWithValue("@EndDateTime", endt)
                cmd2.Parameters.AddWithValue("@LimitAttempts", CInt(txtLimit.Text))
                cmd2.Parameters.AddWithValue("@LimitdaysBetweenRetakes", CInt(txtRetakes.Text))
                '   cmd2.Parameters.AddWithValue("@GroupId", gid)
                'cmd2.Parameters.AddWithValue("@Retakecount", 0)
                cmd2.ExecuteNonQuery()

                cn1.Close()
                cn1.Dispose()
                Page.Response.Redirect("~/AdminTeacher/adtGroupSchedule.aspx", False)

            ElseIf Len(hidfldScheduleName.Value) <> 0 Then  ' From Show GroupSchedule Page

                str = "Update AssessmentSchedule set ScheduleName=@ScheduleName,StartDateTime=@StartDateTime, "
                str += " EndDateTime=@EndDateTime,LimitAttempts=@LimitAttempts,LimitdaysBetweenRetakes=@LimitdaysBetweenRetakes"
                str += " Where AssessmentId=" & CInt(hidfldAssessName.Value) & " and ScheduleName='" & hidfldScheduleName.Value & "' and participantid='" & hidfldUser.Value & "'"

                cmd2 = New SqlCommand(str, cn)
                ' cmd2.Parameters.AddWithValue("@ScheduleId", scheduleid)
                '  cmd2.Parameters.AddWithValue("@AssessmentId", ChkAssessList.Items(i).Value)
                'cmd2.Parameters.AddWithValue("@ParticipantId", dr1(0))
                cmd2.Parameters.AddWithValue("@ScheduleName", txtScheduleName.Text)
                cmd2.Parameters.AddWithValue("@StartDateTime", stdt)
                cmd2.Parameters.AddWithValue("@EndDateTime", endt)
                cmd2.Parameters.AddWithValue("@LimitAttempts", CInt(txtLimit.Text))
                cmd2.Parameters.AddWithValue("@LimitdaysBetweenRetakes", CInt(txtRetakes.Text))
                '   cmd2.Parameters.AddWithValue("@GroupId", gid)
                'cmd2.Parameters.AddWithValue("@Retakecount", 0)
                cmd2.ExecuteNonQuery()

                cn1.Close()
                cn1.Dispose()
                Page.Response.Redirect("~/AdminTeacher/adtGroupSchedule.aspx", False)
            Else

                Response.Write("Cannot Schedule at this moment, as there are 0 Participants in selected Group.  ")
                cn1.Close()
                cn1.Dispose()

                'Page.Response.Redirect("~/Admin/CreateGroupLinks.aspx")
            End If
            '    'Only if one participant is selected
            'ElseIf Len(hidfldUser.Value) <> 0 Then

            '    gid = CInt(hidfldGroupID.Value)
        Catch ex As Exception
            If cn1.State = ConnectionState.Open Then
                cn1.Close()
                cn1.Dispose()
            End If
            Dim errorhandler As New helper
            errorhandler.errorHandler(ex)
        End Try

    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try

       
            strconnection = ConfigurationManager.ConnectionStrings("ptitestConnectionString").ConnectionString
            cn = New SqlConnection(strconnection)


            cn.Open()
            Dim strUser As String
            strUser = Membership.GetUser.UserName

            ' All assessments if Admin, selected ones for teachers.

            If Roles.IsUserInRole(strUser, "Admin") Then

                cmd3 = New SqlCommand("SELECT * from Assessment", cn)
                dr = cmd3.ExecuteReader

            ElseIf Roles.IsUserInRole(strUser, "Teacher") Then

                cmd3 = New SqlCommand("SELECT * from Assessment where ForTeachers='True' ", cn)
                dr = cmd3.ExecuteReader

            End If


            i = 0
            'ChkAssessList.Items.Clear()
            While dr.Read()
                ChkAssessList.Items.Add(dr(2))
                ChkAssessList.Items(i).Value = dr(0)
                ChkAssessList.Items(i).Text = dr(2)
                i = i + 1
            End While
            dr.Close()
            If Not Page.IsPostBack Then
                txtStartDate.Text = Date.Today
                txtEndDate.Text = Date.Today.AddMonths(1)

            End If
            'New Group Schedule

            If Not IsNothing(Request.Params("GroupID")) Then
                hidfldGroupID.Value = Request.Params("GroupID")

            End If
            ' Edit Group Schedule

            If Not IsNothing(Request.Params("Assessid")) And Not IsNothing(Request.Params("GroupEditid")) And Not Me.IsPostBack Then
                hidfldGroupName.Value = Request.Params("GroupEditid")
                'Made one more Hiddenfield whit grpname as its id to avoid confusion
                hidfldAssessName.Value = Request.Params("Assessid")
                ' hidfldScheduleName.Value = Request.Params("ScheduleName")

                Show_Schedule() ' Fill in the Controls
                isEditGroup = True

            End If

            'Edit Individual Schedule

            If Not IsNothing(Request.Params("Assessid")) And Not IsNothing(Request.Params("ScheduleName")) And Not Me.IsPostBack Then
                hidfldUser.Value = Request.Params("User")

                hidfldAssessName.Value = Request.Params("Assessid")
                hidfldScheduleName.Value = Request.Params("ScheduleName")

                Show_Individual_Schedule()

            End If
        Catch ex As Exception
            Dim errorhandler As New helper
            errorhandler.errorHandler(ex)

        End Try

    End Sub

    Protected Sub Show_Individual_Schedule()
        Dim uname, sname, t1, t2, t3, t4 As String
        'Dim str2 As String
        Dim startdate, enddate As Date

        ''Show Schedule for Editing...
        ' uname = Membership.GetUser.UserName
        uname = hidfldUser.Value
        sname = hidfldScheduleName.Value
        aname = hidfldAssessName.Value

        'MsgBox(uname)
        'q = Membership.GetUser(uname).ProviderUserKey
        'MsgBox(q.ToString)

        cmd4 = New SqlCommand("Select AssessmentID, AssessmentType, AssessmentDescription from Assessment where AssessmentID=" & CInt(aname), cn)
        'MsgBox(cmd4.CommandText)
        dr1 = cmd4.ExecuteReader
        'dr1.Read()
        i = 0
        'ChkAssessList.Items.Clear()
        While dr1.Read()
            ChkAssessList.Items.Add(dr1(2))
            ChkAssessList.Items(i).Value = dr1(0)
            ChkAssessList.Items(i).Text = dr1(2)
            ChkAssessList.Items().FindByValue(dr1(0)).Selected = True
            aid = dr1(0)
            i = i + 1
        End While
        dr1.Close()


        cmd3 = New SqlCommand("Select ScheduleId,AssessmentId,ParticipantId,ScheduleName,StartDateTime,EndDateTime,LimitAttempts,LimitdaysBetweenRetakes from AssessmentSchedule where AssessmentId=" & aname & " and ScheduleName='" & sname & "' and participantID='" & uname & "'", cn)
        'MsgBox(cmd3.CommandText)
        dr = cmd3.ExecuteReader
        dr.Read()
        txtScheduleName.Text = dr(3)
        txtLimit.Text = dr(6)
        txtRetakes.Text = dr(7)

        startdate = dr(4)
        t3 = startdate.Date.ToShortDateString
        txtStartDate.Text = t3
        enddate = dr(5)
        t4 = enddate.Date.ToShortDateString
        txtEndDate.Text = t4

        t1 = startdate.ToLongTimeString
        ddlStartTime.SelectedValue = t1.Substring(0, t1.IndexOf(":"))
        t2 = enddate.ToLongTimeString
        ddlEndTime.SelectedValue = t2.Substring(0, t2.IndexOf(":"))

        '  t1 = startdate.Date.Minute()
        ddlStartTimeMin.SelectedValue = t1.Substring(t1.IndexOf(":") + 1, t1.LastIndexOf(":"))
        '   t2 = enddate.Date.Minute()
        ddlEndTimeMin.SelectedValue = t2.Substring(t2.IndexOf(":"), t1.LastIndexOf(":"))
        ddlAM.SelectedValue = Right(t1, 2)
        ddlPM.SelectedValue = Right(t2, 2)


        dr.Close()


        ' Disable all the Assessments list :
        ' While ChkAssessList.HasControls
        ChkAssessList.Enabled = False
        cmdSelectAll.Visible = False



    End Sub
    Protected Sub chkPeriod_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkPeriod.CheckedChanged
        'MsgBox("changed")
        If chkPeriod.Checked = True Then

            ddlEndTime.Enabled = True
            ddlStartTimeMin.Enabled = True
            ddlStartTime.Enabled = True
            ddlEndTimeMin.Enabled = True
            chkPeriod.AutoPostBack = True
        End If
        If chkPeriod.Checked = False Then

            ddlEndTime.Enabled = False
            ddlStartTimeMin.Enabled = False
            ddlStartTime.Enabled = True
            ddlEndTimeMin.Enabled = True
            chkPeriod.AutoPostBack = True
        End If

    End Sub
    Protected Sub chkBoxSchedule_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles chkBoxSchedule.CheckedChanged
        If chkBoxSchedule.Checked = True Then
            lblScheduleName.Enabled = True
            txtScheduleName.Enabled = True
            chkBoxSchedule.AutoPostBack = True
        End If
        If chkBoxSchedule.Checked = False Then
            lblScheduleName.Enabled = False
            txtScheduleName.Enabled = False
            chkBoxSchedule.AutoPostBack = True
        End If
    End Sub
    Sub Show_Schedule()
        Dim uname, t1, t2, t3, t4 As String
        ' Dim str1, str2 As String
        Dim startdate, enddate As Date

        ''Show Schedule for Editing...
        uname = Membership.GetUser.UserName
        gname = hidfldGroupName.Value
        'sname = hidfldScheduleName.Value
        aname = hidfldAssessName.Value
        
        'MsgBox(uname)
        'q = Membership.GetUser(uname).ProviderUserKey
        'MsgBox(q.ToString)
      
        cmd4 = New SqlCommand("Select AssessmentID, AssessmentType, AssessmentDescription from Assessment where AssessmentID=" & CInt(aname), cn)
        'MsgBox(cmd4.CommandText)
        dr1 = cmd4.ExecuteReader
        'dr1.Read()
        i = 0
        'ChkAssessList.Items.Clear()
        While dr1.Read()
            ChkAssessList.Items.Add(dr1(2))
            ChkAssessList.Items(i).Value = dr1(0)
            ChkAssessList.Items(i).Text = dr1(2)
            ChkAssessList.Items().FindByValue(dr1(0)).Selected = True
            aid = dr1(0)
            i = i + 1
        End While
        dr1.Close()


        cmd3 = New SqlCommand("Select ScheduleId,AssessmentId,ParticipantId,ScheduleName,StartDateTime,EndDateTime,LimitAttempts,LimitdaysBetweenRetakes from AssessmentSchedule where AssessmentId=" & aname & " and GroupId=" & gname, cn)
        'MsgBox(cmd3.CommandText)
        dr = cmd3.ExecuteReader
        dr.Read()
        txtScheduleName.Text = dr(3)
        txtLimit.Text = dr(6)
        txtRetakes.Text = dr(7)

        startdate = dr(4)
        t3 = startdate.Date.ToShortDateString
        txtStartDate.Text = t3
        enddate = dr(5)
        t4 = enddate.Date.ToShortDateString
        txtEndDate.Text = t4

        t1 = startdate.ToLongTimeString
        ddlStartTime.SelectedValue = t1.Substring(0, t1.IndexOf(":"))
        t2 = enddate.ToLongTimeString
        ddlEndTime.SelectedValue = t2.Substring(0, t2.IndexOf(":"))

        '  t1 = startdate.Date.Minute()
        ddlStartTimeMin.SelectedValue = t1.Substring(t1.IndexOf(":") + 1, t1.LastIndexOf(":"))
        '   t2 = enddate.Date.Minute()
        ddlEndTimeMin.SelectedValue = t2.Substring(t2.IndexOf(":"), t1.LastIndexOf(":"))
        ddlAM.SelectedValue = Right(t1, 2)
        ddlPM.SelectedValue = Right(t2, 2)


        dr.Close()


        ' Disable all the Assessments list :
        ' While ChkAssessList.HasControls
        ChkAssessList.Enabled = False
        cmdSelectAll.Visible = False

        '  End While
    End Sub

    Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
        If Not cn Is Nothing Then
            If cn.State = ConnectionState.Open Then
                cn.Close()
                cn.Dispose()
            End If      
        End If
        If Not cn1 Is Nothing Then
            If cn1.State = ConnectionState.Open Then
                cn1.Close()
                cn1.Dispose()
            End If
        End If
    End Sub

    Protected Sub cmdSelectAll_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSelectAll.Click
        ' need to write code that selects all of the Assessments

        For Each listItem As ListItem In ChkAssessList.Items
            listItem.Selected = True

        Next

    End Sub

    
End Class