8 % foreach my $username ( @username ) {
9 % my $mapname = "$username-$date";
10 % my $img = "$RT::WebPath/Schedule/UserBar?Username=$username;Date=$date";
11 <span class="calendarright"
12 ><% $username %><img src = "<%$img|n%>"
13 useMap = "#<%$mapname%>"
18 <MAP name="<%$mapname%>">
20 % my %schedule = UserDaySchedule( CurrentUser => $CurrentUser,
21 % username => $username,
22 % 'date' => $Date->strftime('%F'),
25 % #XXX block out unavailable times
27 % #block out / show / color code existing appointments
28 % foreach my $id ( keys %{ $schedule{'scheduled'} } ) {
29 % my( $starts, $due, $col, $t ) = @{ $schedule{'scheduled'}->{$id} };
30 % my $s = int(($starts-$stime)/10);
31 % my $e = int(($due-$stime)/10)-1;
33 onmouseover = "overlib('<%$id%>: XX miles away<BR>more info', BGCOLOR, '#000000', FGCOLOR, '#<%$col%>')"
34 onmouseout = "nd(); return true;"
36 coords = "<%$s%>,0,<%$e%>,<%$height-1%>"
48 my $stime = RT->Config->Get('CalendarWeeklyStartMin');
49 $stime = 480 unless $stime =~ /^\d+$/; #8am
50 my $etime = RT->Config->Get('CalendarWeeklyEndMin');
51 $etime = 1080 unless $etime =~ /^\d+$/; #6pm
53 my $width = int( ( $etime - $stime ) / 10 );
54 my $height = 12; #Schedule/UserBar
59 use RTx::Schedule qw( UserDaySchedule );
61 my( $date, $time ) = split('T', $Date);