1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
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.
|
