diff options
Diffstat (limited to 'rt/share/html/Elements/SelectStatus')
-rwxr-xr-x | rt/share/html/Elements/SelectStatus | 62 |
1 files changed, 50 insertions, 12 deletions
diff --git a/rt/share/html/Elements/SelectStatus b/rt/share/html/Elements/SelectStatus index af1ff615f..7e3e0cc67 100755 --- a/rt/share/html/Elements/SelectStatus +++ b/rt/share/html/Elements/SelectStatus @@ -2,7 +2,7 @@ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2012 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC %# <sales@bestpractical.com> %# %# (Except where explicitly superseded by other copyright notices) @@ -50,21 +50,29 @@ % if ( $DefaultValue ) { <option value=""<% !$Default && qq[ selected="selected"] |n %>><% $DefaultLabel %></option> % } -% foreach my $status (@status) { -% next if ($SkipDeleted && $status eq 'deleted'); -% my $selected = defined $Default && $status eq $Default ? 'selected="selected"' : ''; +% for my $lifecycle (sort keys %statuses_by_lifecycle) { +% if ($group_by_lifecycle) { +<optgroup label="<% $lifecycle %>"> +% } +% foreach my $status (@{$statuses_by_lifecycle{$lifecycle}}) { +% next if ($SkipDeleted && $status eq 'deleted'); +% my $selected = defined $Default && $status eq $Default ? 'selected="selected"' : ''; <option value="<% $status %>" <% $selected |n %>><% loc($status) %></option> +% } +% if ($group_by_lifecycle) { +</optgroup> +% } % } </select> <%INIT> ### XXX: no cover for Tools/MyDay.html - -my @status; +my %statuses_by_lifecycle; if ( @Statuses ) { - @status = @Statuses; + $statuses_by_lifecycle{''} = \@Statuses; } elsif ( $TicketObj ) { + my @status; my $current = $TicketObj->Status; push @status, $current; @@ -77,20 +85,50 @@ elsif ( $TicketObj ) { unless exists $has{ $check }; push @status, $next if $has{ $check }; } + $statuses_by_lifecycle{$lifecycle->Name} = \@status; } elsif ( $QueueObj ) { - @status = $QueueObj->Lifecycle->Transitions(''); + my $lifecycle = $QueueObj->Lifecycle; + $statuses_by_lifecycle{$lifecycle->Name} = [ $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; + if ($queue->id) { + my $lifecycle = $queue->Lifecycle; + $statuses_by_lifecycle{$lifecycle->Name} = [ $lifecycle->Valid ]; + } } - my %seen; - @status = grep { not $seen{$_}++ } @status; } else { - @status = RT::Queue->Lifecycle->Valid; + for my $lifecycle (map { RT::Lifecycle->Load($_) } RT::Lifecycle->List) { + $statuses_by_lifecycle{$lifecycle->Name} = [ $lifecycle->Valid ]; + } +} + +if (keys %statuses_by_lifecycle) { + my %simplified; + my $key = sub { + join "\0", sort @{$_[0]}; + }; + for my $name (sort keys %statuses_by_lifecycle) { + my $matched; + my $statuses = $statuses_by_lifecycle{$name}; + for my $simple (sort keys %simplified) { + if ($key->($statuses) eq $key->($simplified{$simple})) { + # Statuses are the same, join 'em! + $simplified{"$simple, $name"} = delete $simplified{$simple}; + $matched++; + last; + } + } + unless ($matched) { + $simplified{$name} = $statuses; + } + } + %statuses_by_lifecycle = %simplified; } + +my $group_by_lifecycle = keys %statuses_by_lifecycle > 1; </%INIT> <%ARGS> $Name => undef |