<%args> $Date => undef $Tickets => undef $DateTypes => undef @username => () $CurrentUser => undef % foreach my $username ( @username ) { % my $mapname = "$username-$date"; % my $img = "$RT::WebPath/Schedule/UserBar?Username=$username;Date=$date"; <% $username %>

width = <%$width%> >
% my %schedule = UserDaySchedule( CurrentUser => $CurrentUser, % username => $username, % 'date' => $Date->strftime('%F'), % ); % #XXX block out unavailable times % % #block out / show / color code existing appointments % foreach my $id ( keys %{ $schedule{'scheduled'} } ) { % my( $starts, $due, $col, $t ) = @{ $schedule{'scheduled'}->{$id} }; % my $s = int(($starts-$stime)/10); % my $e = int(($due-$stime)/10)-1; % } % } <%once> my $stime = RT->Config->Get('CalendarWeeklyStartMin'); $stime = 480 unless $stime =~ /^\d+$/; #8am my $etime = RT->Config->Get('CalendarWeeklyEndMin'); $etime = 1080 unless $etime =~ /^\d+$/; #6pm my $width = int( ( $etime - $stime ) / 10 ); my $height = 12; #Schedule/UserBar <%init> use RTx::Schedule qw( UserDaySchedule ); my( $date, $time ) = split('T', $Date);