+<%INIT>
+### XXX: no cover for Tools/MyDay.html
+
+
+my @status;
+if ( @Statuses ) {
+ @status = @Statuses;
+}
+elsif ( $TicketObj ) {
+ my $current = $TicketObj->Status;
+ push @status, $current;
+
+ my $lifecycle = $TicketObj->QueueObj->Lifecycle;
+
+ my %has = ();
+ foreach my $next ( $lifecycle->Transitions( $current ) ) {
+ my $check = $lifecycle->CheckRight( $current => $next );
+ $has{ $check } = $TicketObj->CurrentUserHasRight( $check )
+ unless exists $has{ $check };
+ push @status, $next if $has{ $check };
+ }
+}
+elsif ( $QueueObj ) {
+ @status = $QueueObj->Lifecycle->Transitions('');
+} elsif ( %Queues ) {
+ for my $id (keys %Queues) {
+ my $queue = RT::Queue->new($session{'CurrentUser'});
+ $queue->Load($id);
+ push @status, $queue->Lifecycle->Valid if $queue->id;
+ }
+ my %seen;
+ @status = grep { not $seen{$_}++ } @status;
+} else {
+ @status = RT::Queue->Lifecycle->Valid;
+}
+</%INIT>