X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FElements%2FCalendarDaySchedule;h=5be5b06bc604b4d639c40213cb568a0a7cb2a626;hb=01ffb4debe929b4d28f2ff9aee2f2bfc9b67fb47;hp=f378674ff22776b7f5f594d1a8b7fd9af6efe10b;hpb=cebcd8658ba5f45fc21d59769d591b1418a3fdd2;p=freeside.git
diff --git a/rt/share/html/Elements/CalendarDaySchedule b/rt/share/html/Elements/CalendarDaySchedule
index f378674ff..5be5b06bc 100644
--- a/rt/share/html/Elements/CalendarDaySchedule
+++ b/rt/share/html/Elements/CalendarDaySchedule
@@ -1,10 +1,14 @@
<%args>
$Date => undef
+$today => undef
$Tickets => undef
$DateTypes => undef
@username => ()
$CurrentUser => undef
%args>
+%if ( DateTime->compare( $Date, $today ) == -1 ) {#flag to show the past anyway?
+% #the past already happened...
+%} else {
% foreach my $username ( @username ) {
% my $mapname = "$username-$date";
% my $img = "$RT::WebPath/Schedule/UserBar?Username=$username;Date=$date";
@@ -19,10 +23,8 @@ $CurrentUser => undef
% my %schedule = UserDaySchedule( CurrentUser => $CurrentUser,
% username => $username,
-% 'date' => $Date->strftime('%F'),
+% 'date' => $date, #$Date->strftime('%F'),
% );
-
-% #XXX block out unavailable times
%
% #block out / show / color code existing appointments
% foreach my $id ( keys %{ $schedule{'scheduled'} } ) {
@@ -30,19 +32,47 @@ $CurrentUser => undef
% my $s = int(($starts-$stime)/10);
% my $e = int(($due-$stime)/10)-1;
+% }
+%
+% #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;
+
% }
+
+
% }
+%}
<%once>
my $stime = RT->Config->Get('CalendarWeeklyStartMin');
@@ -57,7 +87,9 @@ my $height = 12; #Schedule/UserBar
<%init>
use RTx::Schedule qw( UserDaySchedule );
+use FS::sched_avail; #just for pretty_time
-my( $date, $time ) = split('T', $Date);
+#my( $date, $time ) = split('T', $Date);
+my $date = $Date->strftime('%F');
%init>