' If $Login and $Admin ' $System.Access Admin ' Else ' $System.Access Login ' EndIf ' If $System.IsPost ' Set $e = $Reserve.Facilities.$FID.Calendar.$Date.$EID ' If ! $Reserve.OW or $Admin or ($e.UID = $Login.ID) ' $Command.Reserve.Modify ' $DateTime = $SetTime ' $System.Redirect $Server?page=ReserveView&fid=$FID&gid=$GID&date=$DateTime.Date&eid=$EID&bpage=$BPage&bdate=$BDate ' Else ' $System.Redirect $Server?page=ErrorAccessDenied ' EndIf ' Exit ' EndIf $Office.Name - Modifying Reservation ' If $Admin ' Else ' EndIf ' Set $Facility = $Reserve.Facilities.$FID ' Set $Items = $Reserve.Items ' $Short = 1 $Date.Day $Date.MONTH, $Date.Year ($Date.wday)
' Set $s = $Facility.Calendar.$Date ' Set $e = $s.$EID ' If ! $Reserve.OW or $Admin or ($e.UID = $Login.ID)
Modifying Reservation ' If $Reserve.Unit ' $Step = $Reserve.Unit ' Else ' $Step = 30 ' EndIf
Registered by$e.Name $_e.Mail.MailTo ' If $Groups.Count ' EndIf
Time : , / - : , /
Purpose
Contact
Number of Users
Memo

' Else

No Right to Modify or Delete this Reservation.

[Modify or Delete as System Administrator]

' EndIf
[Confirm Reservation Status] [Top Page] [Help]