7 % foreach my $username ( @username ) {
8 % my $mapname = "$username-$date";
9 <span class="calendarright"><% $username %><img src="<%$RT::WebPath%>/Schedule/UserBar?Username=<%$username%>;Date=<%$date%>" useMap="#<%$mapname%>"><span><br>
10 <MAP name="<%$mapname%>">
11 %# false laziness w/Schedule/UserBar
12 %#XXX block out unavailable times
13 %#alas. abstractions break, freeside-specific stuff to get availability
14 %# move availability to RT side? make it all callback/pluggable?
16 %#XXX block out / show / color code existing appointments
18 <AREA onmouseover="overlib('XX miles away<BR>more info')"
19 onmouseout="nd(); return true;"
30 my( $date, $time ) = split('T', $Date);