' $System.Access Write Schedule ' Init $ID = 0 ' $Contains = $Groups.$GID.Users.Contains $Login.ID ' If $System.IsPost ' If ($ID = $Login.ID) or (! $ID and $Login and $Contains) or ! $Schedule.OW ' $Command.Schedule.BannerModify ' $System.Redirect $Server?page=$BPage&id=$ID&gid=$GID&date=$BDate ' Else ' $System.Redirect $Server?page=ErrorAccess ' EndIf ' Exit ' EndIf $Office.Name - Modifying All-Day Schedule ' $BackPage = $BPage ' $BackDate = $BDate ' $SetDate = $BDate
' Set $b = $User.Schedule.Banner.$Date ' If ($ID = $Login.ID) or (! $ID and $Login and $Contains) or ! $Schedule.OW
Modify or Delete
$User.Name's All-Day Schedule $_User.Mail.MailTo $Tail

Date / / - / /

Schedule
Location
Memo

' Else No Right to Modify $User.Name's All-Day Schedule.

' EndIf
[Back to All-Day Entry View] [Top Page] [Help]