' If $EX ' $System.Access Login ' Else ' $System.Access Create Schedule ' EndIf ' Init $ID = 0 ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $System.IsPost ' If $Register ' $EID = $Command.Schedule.Entry ' $System.Redirect $Server?page=$BPage&id=$ID&gid=$GID&date=$BDate&eid=$EID ' Elif $SubmitDetail and ! $Login ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&ex=1&gc=1&init=1&rw=1 ' Elif $SubmitDetail ' $Command.Schedule.DetailInit ' $Command.Schedule.DetailUpdate ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&ex=1&gc=1 ' Elif $SubmitEasy ' $Command.Schedule.DetailUpdate ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&es=1 ' Elif $SubmitBanner ' $Command.Schedule.DetailUpdate ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&bn=1 ' Elif $Add or $Remove ' $Command.Schedule.DetailUpdate ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&ex=1&group=$Group&#member ' Else ' $Command.Schedule.DetailUpdate ' $System.Redirect $Server?page=ScheduleEntry&id=$ID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&ex=1&gc=1&group=$Group&#member ' EndIf ' Exit ' EndIf $Office.Name - Registering Schedule ' If $Init ' $Command.Schedule.DetailInit ' $Command.Schedule.DetailUpdate ' EndIf ' If $EX or $ES or $BN ' Set $Temp = $Login.Schedule.Temp ' EndIf ' $BackPage = $BPage ' $BackDate = $BDate ' If $BN ' $SetDate = $BDate
' Else $Date.Day $Date.MONTH, $Date.Year
' EndIf ' If ($ID = $Login.ID) or (! $ID and $Login and $Contains) or ! $Schedule.OC
Register
' If $BN $User.Name's All-Day Schedule $_User.Mail.MailTo $Tail ' Else $User.Name's Schedule $_User.Mail.MailTo $Tail ' EndIf ' If $Temp.SetDate ' $SetDate = $Temp.SetDate ' Else ' $SetDate = $Date ' EndIf ' If $EX

Do Not Repeat

/ / Only
Repeat
' If $Temp.Type = day ' $DayType = checked ' Elif $Temp.Type = month ' $MonthType = checked ' Else ' $WeekType = checked ' EndIf Everyday
' $v = $Temp.Week
' If $Temp.Day or ($Temp.Day = 0) ' $Day = $Temp.Day ' Else ' $Day = $Date.Day ' EndIf Every of Month

No Time Limit
Until / /

' Elif $BN

Date / / - / /

' Else

' If ! $User.Schedule.Banner.$Date ' EndIf

Note: M.M.A. indicates Multiple-Member Assignment.

' EndIf ' If ! $BN ' If ! $EX ' EndIf ' $Step = $Schedule.Unit ' If ! $Step ' $Step = 30 ' EndIf ' EndIf ' If ! $EX and ! $BN and $Schedule.Private and ($ID = $Login.ID) ' Else ' EndIf ' If $EX
Date / /
Time : - :
Schedule
Location
Memo
Public Private
This Schedule is open to All Users.
' Else ' EndIf ' If $EX and ! $Schedule.OC

Multiple-Member Assignment
' Init $Group = $GID
Member

Note: Multiple Selection Available.
' EndIf

' Else No Right to Register $User.Name's Schedule.

' EndIf ' If $BPage = index ' $Caption = "Top Page" ' Elif $BPage = ScheduleIndex ' $Caption = "Weekly View" ' Elif $BPage = ScheduleMonth ' $Caption = "Monthly View" ' Elif ($BPage = ScheduleZoom) or ($BPage = ScheduleDay) ' $Caption = "Daily View" ' Else ' $Caption = "Back" ' EndIf
[$Caption] [Top Page] [Help]