$Facility.Name
' If $Detail and ! $Short ' For Each $Item in $Reserve.Items ' $IID = $Item.ID $Facility.$IID
' Next ' EndIf ' Set $s = $Facility.Calendar.$Date ' If $s ' $s.SetHour = $SetHour ' $s.EndHour = $EndHour ' $s.Unit = $Reserve.Unit ' For Each $e in $s ' If $e.Span and $e.Critical ' $Color = #ffffcc ' If $e.UID = $Login.ID ' $Color = #ccffcc ' EndIf $e.Title ' Elif $e.Span ' EndIf ' Next ' Else ' EndIf