+% #white out available times
+% foreach my $avail ( @{ $schedule{'avail'} } ) {
+% my( $start, $end ) = @$avail;
+%
+% my $s = $start >= $stime ? int(($start-$stime)/10) : 0;
+% my $e = int(($end-$stime)/10)-1;
+ <AREA
+ onmouseover = "overlib('Available', WRAP, BGCOLOR, '#000000', FGCOLOR, '#FFFFFF')"
+ onmouseout = "nd(); return true;"
+ shape = "rect"
+ coords = "<%$s%>,0,<%$e%>,<%$height%>"
+%# XXX link to book - if the appointment we want can fit
+%# href = "test_href"
+%# alt =
+%# title =
+ >
+% }
+
+ <AREA
+ onmouseover = "overlib('Not available', WRAP, BGCOLOR, '#000000', FGCOLOR, '#666666', TEXTCOLOR, '#FFFFFF' )"
+ onmouseout = "nd(); return true;"
+ shape = "default"
+%# href = "test_href"
+%# alt =
+%# title =
+ >
+
+ </MAP>
+