' If $Detail or $Short $Facility.Name
' Else $Facility.Name
' EndIf ' If $Detail ' For Each $Item in $Reserve.Items ' $IID = $Item.ID $Facility.$IID
' Next ' EndIf ' For Each $WDate in $System.Week ' Set $s = $Facility.Calendar.$WDate ' $s.EndTime = $Reserve.EndTime ' For Each $e in $s $_e.Time12 $e.Title
' Next ' Next