' Init $GID = 0
' Init $BPage = ReserveIndex
' If $Reserve.EndHour
'  $SetHour = $Reserve.SetHour
'  $EndHour = $Reserve.EndHour
' Else
'  $SetHour = 8
'  $EndHour = 20
' EndIf
' $TimeSpan = $System.TimeSpan $Reserve.Unit
<table border=1 width="100%" cellspacing=0 cellpadding=1>
 <tr align=center>
' For $t = $SetHour to $EndHour
'  If $t != $EndHour
'   $Color = $System.TimeColor $t
  <td width=40 bgcolor="$Color" colspan="$TimeSpan">$t</td>
'  EndIf
' Next
 </tr>
 <tr>
' $Count = 0
' For $t = $SetHour to $EndHour
'  If $t != $EndHour
'   $Color = $System.TimeColor $t
'   For $i = 1 to $TimeSpan
  <td width=5 bgcolor="$Color"><img src="/cb3/spacer.gif"></td>
'   Next
'   Inc $Count $TimeSpan
'  EndIf
' Next
 </tr>
 <tr align=center>
' Set $s = $Facility.Schedule.Get $Date
' If $s
'  $s.SetHour = $SetHour
'  $s.EndHour = $EndHour
'  $s.Unit = $Reserve.Unit
'  For Each $e in $s
'   If $e.Span
'    If $e.Critical
'     $Color = #ffffcc
'     If $e.UID = $Login.ID
'      $Color = #ccffcc
'     EndIf
  <td colspan="$e.Span" bgcolor="$Color"><a href="$Server?page=ReserveView&fid=$FID&gid=$GID&date=$Date&eid=$e.ID&bpage=$BPage&bdate=$BDate">
'     If $Reserve.Purpose
   $e.Title</a></td>
'     Else
   $e.Name</a></td>
'     EndIf
'    Else
  <td colspan="$e.Span" bgcolor=#ffffff><a href="$Server?page=ReserveEntry&fid=$FID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate&dhour=$e.SetTime.Hour&dminute=$e.SetTime.Minute"><img src="/cb3/write.gif" border=0></a></td>
'    EndIf
'   EndIf
'  Next
' Else
  <td colspan="$Count" bgcolor=#ffffff><a href="$Server?page=ReserveEntry&fid=$FID&gid=$GID&date=$Date&bpage=$BPage&bdate=$BDate"><img src="/cb3/write.gif" border=0></a></td>
' EndIf
 </tr>
</table><p>