+package RTx::Schedule;
+use base qw( Exporter );
+
+use strict;
+use RTx::Calendar qw( FindTickets LocalDate );
+
+our $VERSION = '0.01';
+
+our @EXPORT_OK = qw( UserDaySchedule );
+
+#ala Calendar.html
+# Default Query and Format
+our $DefaultFormat = "__Starts__ __Due__";
+our $DefaultQuery = "( Status = 'new' OR Status = 'open' OR Status = 'stalled')
+ AND ( Type = 'reminder' OR 'Type' = 'ticket' )";
+
+sub UserDaySchedule {
+ my %arg = @_;
+ my $username = $arg{username};
+ my $date = $arg{date};
+
+ my $Tickets;
+ if ( $arg{Tickets} ) {
+ $Tickets = $arg{Tickets};
+ } else {
+
+ my $Query = $DefaultQuery;
+
+# # we overide them if needed
+# $TempQuery = $Query if $Query;
+# $TempFormat = $Format if $Format;
+
+# # we search all date types in Format string
+# my @Dates = grep { $TempFormat =~ m/__${_}(Relative)?__/ } @DateTypes;
+
+ my @Dates = qw( Starts Due );
+
+# # used to display or not a date in Element/CalendarEvent
+# my %DateTypes = map { $_ => 1 } @Dates;
+#
+# $TempQuery .= DatesClauses(\@Dates, $start->strftime("%F"), $end->strftime("%F"));
+
+ my %t = FindTickets( $arg{CurrentUser}, $Query, \@Dates, $date x2 );
+
+ $Tickets = $t{ $date };
+ }
+
+ #XXX block out unavailable times
+ #alas. abstractions break, freeside-specific stuff to get availability
+ # move availability to RT side? make it all callback/pluggable?
+
+ return (
+
+ #avail/unavailable times
+ 'avail' => {
+ },
+
+ #block out / show / color code existing appointments
+ 'scheduled' => {
+ map {
+ #$_->Id => [ $_->StartsObj, $t->DueObj ];
+
+ my($sm, $sh) = ($_->StartsObj->Localtime('user'))[1,2];
+ my $starts = $sh*60 + $sm;
+
+ my($dm, $dh) = ($_->DueObj->Localtime('user'))[1,2];
+ my $due = $dh*60 + $dm;
+
+ #XXX color code existing appointments by... city? proximity? etc.
+ my $col = '99ff99'; #green
+
+ $_->Id => [ $starts, $due, $col, $_ ];
+ }
+ grep {
+ LocalDate($_->StartsObj->Unix) eq $date
+ and $_->OwnerObj->Name eq $username
+ }
+ @$Tickets
+ },
+
+ );
+
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+RTx::Schedule - Scheduling extension for Request Tracker
+
+=head1 DESCRIPTION
+
+This RT extension adds scheduling functionality to Request Tracker.
+
+=head1 CONFIGURATION
+
+CalendarWeeklyStartMin (default 480, 8am)
+
+CalendarWeeklyEndMin (default 1080, 6pm)
+
+CalendarWeeklySizeMin (default 30)
+
+CalendarWeeklySlots (unused now?)
+
+=head1 AUTHOR
+
+Ivan Kohler
+
+=head1 COPYRIGHT
+
+Copyright 2014 Freeside Internet Services, Inc.
+
+This program is free software; you can redistribute it and/or
+modify it under the same terms as Request Tracker itself.
+