rt/share/html/Elements/CalendarDaySchedule

   1 <%args>
   2 $Date        => undef
   3 $Tickets     => undef
   4 $DateTypes   => undef
   5 @username    => ()
   6 $CurrentUser => undef
   7 </%args>
   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%>"
  14                          height = <%$height%>
  15                          width  = <%$width%>
  16     ></span><br>
  17
  18     <MAP name="<%$mapname%>">
  19
  20 %   my %schedule = UserDaySchedule( CurrentUser => $CurrentUser,
  21 %                                   username    => $username,
  22 %                                   'date'      => $Date->strftime('%F'),
  23 %                                 );
  24
  25 %   #XXX block out unavailable times
  26 %
  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;
  32       <AREA
  33          onmouseover = "overlib('<%$id%>: XX miles away<BR>more info', BGCOLOR, '#000000', FGCOLOR, '#<%$col%>')"
  34          onmouseout  = "nd(); return true;"
  35          shape       = "rect"
  36          coords      = "<%$s%>,0,<%$e%>,<%$height-1%>"
  37 %#         href        = "test_href"
  38 %#         alt         =
  39 %#         title       =
  40       >
  41 %   }
  42
  43     </MAP>
  44
  45 % }
  46 <%once>
  47
  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
  52
  53 my $width = int( ( $etime - $stime ) / 10 );
  54 my $height = 12; #Schedule/UserBar
  55
  56 </%once>
  57 <%init>
  58
  59 use RTx::Schedule qw( UserDaySchedule );
  60
  61 my( $date, $time ) = split('T', $Date);
  62
  63 </%init>