Imports System.Data
Imports LYB.VB
Imports LYB.VB.CLASSES
Partial Class group2_Default
    Inherits System.Web.UI.Page

    Dim data As New DataUtils
    Dim groupID As Integer = 2
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim btnLedning As LinkButton = Master.FindControl("btnLedning")
        btnLedning.Style.Add("color", "yellow")
        Dim btnMedlemmar As LinkButton = Master.FindControl("btnMedlemmar")
        btnMedlemmar.Style.Add("color", "yellow")
        Dim btnRepertoar As LinkButton = Master.FindControl("btnRepertoar")
        btnRepertoar.Style.Add("color", "yellow")
        Dim btnBildarkiv As LinkButton = Master.FindControl("btnBildarkiv")
        btnBildarkiv.Style.Add("color", "yellow")
        Dim btnKalender As LinkButton = Master.FindControl("btnKalender")
        btnKalender.Style.Add("color", "white")

        Dim webPages As DataView = data.GetWebPagesData(2)
        lblLastChanged.Text = Resources.Resource.PageLastChanged & " " & data.FindWebPageData(webPages, "Default")

        Dim display As New Display
        tableCalendar.CellSpacing = 0
        tableCalendar.CellPadding = 5
        Dim member As Member = CType(Session("member"), Member)
        member.CurrentLoginGroup = groupID
        Session("member") = member
        Dim memberid As Integer
        Dim userIDCookie As String() = {"", "", ""}
        Try
            userIDCookie = data.GetUserIDCookie(Request)
            memberid = CType(userIDCookie(0), Integer)
        Catch ee As System.Exception
            If InStr(ee.Message, "not set to an instance") > 0 Or InStr(ee.Message, "Objektreferensen har inte angetts till en instans av ett objekt.") > 0 Then
                memberid = member.MemberID
            Else
                Throw New Exception(ee.Message)
            End If
        End Try
        Dim dw As DataView = data.GetCalendar(memberid)
        If Not IsNothing(dw) Then
            Dim tbRowHeader As New TableRow
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Datum", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Aktivitet", member.FontFamily, member.FontSize))
            tbRowHeader.Cells.Add(display.MakeTableHeaderCell("Kaffeansvariga", member.FontFamily, member.FontSize))
            tableCalendar.Rows.Add(tbRowHeader)
            For Each row As DataRowView In dw
                Dim tbrow As New TableRow
                Dim celltext As String
                If Not row.Item("calendardate") Is System.DBNull.Value Then
                    Dim dateString As String = ""
                    Dim dayOfWeek As Integer = Weekday(row.Item("calendardate"))
                    Select Case dayOfWeek
                        Case 1
                            dateString = "Sön"
                        Case 2
                            dateString = "Mån"
                        Case 3
                            dateString = "Tis"
                        Case 4
                            dateString = "Ons"
                        Case 5
                            dateString = "Tor"
                        Case 6
                            dateString = "Fre"
                        Case 7
                            dateString = "Lör"
                    End Select
                    celltext = dateString & " " & Format(row.Item("calendardate"), "M")
                Else
                    celltext = " "
                End If
                tbrow.Cells.Add(display.MakeTableCell(celltext, member.FontFamily, member.FontSize))
                tbrow.Cells.Add(display.MakeTableCell(row.Item("activitydescription").ToString, member.FontFamily, member.FontSize))
                If Not row.Item("activitycomment") Is System.DBNull.Value Then
                    celltext = row.Item("activitycomment").ToString
                Else
                    celltext = " "
                End If
                tbrow.Cells.Add(display.MakeTableCell(celltext, member.FontFamily, member.FontSize))
                tableCalendar.Rows.Add(tbrow)
            Next
        End If

    End Sub
End Class