[rt-devel] Patch for tested-State

[Leif Jakob]

Hi!

I needed an additional state for a Ticket (tested), here are the
patches if someone is interested.

Leif
-------------- next part --------------
Index: lib/RT/Ticket.pm
===================================================================
RCS file: /raid/cvsroot/rt/lib/RT/Attic/Ticket.pm,v
retrieving revision 1.1.2.250
diff -r1.1.2.250 Ticket.pm
2437c2437
<     unless ($status =~ /^(new|open|stalled|resolved|dead)$/) {
---
>     unless ($status =~ /^(new|open|tested|stalled|resolved|dead)$/) {
2508a2509,2524
> 
> # {{{ sub ToTest
> 
> =head2 ToTest
> 
> Sets this ticket's status to "to be tested"
> 
> =cut
> 
> sub ToTest {
>   my $self = shift;
>   return ($self->SetStatus('totest'));
> }
> 
> # }}}
> 
Index: webrt/Elements/Quicksearch
===================================================================
RCS file: /raid/cvsroot/rt/webrt/Elements/Attic/Quicksearch,v
retrieving revision 1.1.2.9
diff -r1.1.2.9 Quicksearch
7a8
>        <th align=left><font size=-1>Resolved</font></th>          
18a20,24
>      $Tickets->LimitStatus(VALUE => "resolved");                                
>      $Tickets->LimitQueue(VALUE => $queue->id, OPERATOR => '=');            
>      my $resolved = $Tickets->Count();
> 
>      $Tickets->ClearRestrictions;                                           
30a37,39
> <TD>
>  <A HREF="<% $RT::WebPath%>/Search/Listing.html?ValueOfStatus=resolved&StatusOp=%3D&QueueOp=%3D&ValueOfQueue=<%$queue->Id%>&RowsPerPage=50&NewSearch=1"><%$resolved%></A>
> </TD>
Index: webrt/Elements/SelectStatus
===================================================================
RCS file: /raid/cvsroot/rt/webrt/Elements/Attic/SelectStatus,v
retrieving revision 1.1.2.8
diff -r1.1.2.8 SelectStatus
10c10
< my @status = qw(new open stalled resolved dead);
---
> my @status = qw(new open stalled resolved tested dead);
Index: webrt/Ticket/Elements/Tabs
===================================================================
RCS file: /raid/cvsroot/rt/webrt/Ticket/Elements/Attic/Tabs,v
retrieving revision 1.1.2.18
diff -r1.1.2.18 Tabs
75c75
<            path => "Ticket/Update.html?Action=Comment&DefaultStatus=resolved&id=".$id,
---
>            path => "Ticket/Update.html?Action=Respond&DefaultStatus=resolved&id=".$id,
78a79,88
> 
>     if ($Ticket->Status eq 'resolved') {
> 	$actions->{'Tested'} = 
> 	  { 
>            path => "Ticket/Update.html?Action=Comment&DefaultStatus=tested&id=".$id,
> 	   title => 'Tested'
> 	  };
>     }	
> 
>