#
# priority-labels-rt3.0.11.patch
# By Colin Henein, Parliant Corporation after Eric Berggren
# Replaces numeric priorities with labels in rt3.2.2
# see http://www.parliant.com/~cmh/rt/ for details and instructions
#
diff -Naur rt3-dist/lib/RT/Ticket_Overlay.pm rt3/lib/RT/Ticket_Overlay.pm
--- rt3-dist/lib/RT/Ticket_Overlay.pm	Wed Apr 28 22:41:16 2004
+++ rt3/lib/RT/Ticket_Overlay.pm	Sun Oct  3 15:38:21 2004
@@ -4090,6 +4090,56 @@
 
 # }}}
 
+
+
+=head2 PriorityAsString
+
+ B<Returns> String: Various Ticket Priorities as either a string or integer
+
+=cut
+
+sub PriorityAsString {
+    my $self=shift;
+
+    unless ($self->CurrentUserHasRight('ShowTicket')) {
+        return undef;
+    }
+    return priorityString($self->Priority)
+}
+sub InitialPriorityAsString {
+    my $self=shift;
+
+    unless ($self->CurrentUserHasRight('ShowTicket')) {
+        return undef;
+    }
+    return priorityString($self->InitialPriority)
+}
+sub FinalPriorityAsString {
+    my $self=shift;
+
+    unless ($self->CurrentUserHasRight('ShowTicket')) {
+        return undef;
+    }
+    return priorityString($self->FinalPriority)
+}
+
+sub priorityString {
+    my $priority=shift;
+
+    if ( $RT::PriorityType ) {
+        foreach my $pridx ( @RT::PrioritySortedKeys ) {
+            if ( $priority >= $RT::PriorityLabels{ $pridx } ) {
+                return($pridx."/".$priority) if ( $RT::PriorityType != 1 );
+                return($pridx);
+            }
+        }
+        return "unknown";
+    }
+    return ($priority);
+}
+
+
+
 1;
 
 =head1 AUTHOR
diff -Naur rt3-dist/share/html/Elements/SelectPriority rt3/share/html/Elements/SelectPriority
--- rt3-dist/share/html/Elements/SelectPriority	Thu Jan  1 00:00:00 1970
+++ rt3/share/html/Elements/SelectPriority	Sun Oct  3 18:43:05 2004
@@ -0,0 +1,34 @@
+%#
+
+<SELECT NAME ="<%$Name%>">
+% foreach $priidx (@RT::PrioritySortedKeys) {
+%   my($value)=$RT::PriorityLabels{$priidx};
+%   my($prilabel)=$priidx;
+%   if ( $priidx eq $defprilabel ) {
+%     $prilabel .= " (".$defprivalue.")" if ($RT::PriorityType > 1);
+<OPTION VALUE="<%$defprivalue%>" SELECTED><%$prilabel%></OPTION>
+%   } else {
+%     $prilabel .= " (".$value.")" if ($RT::PriorityType > 1);
+<OPTION VALUE="<%$value%>"><%$prilabel%></OPTION>
+%   }
+% }
+</SELECT>
+<%ARGS>
+$Name => undef
+$Default => undef
+ 
+</%ARGS>
+<%INIT>
+my($priidx,$defprilabel,$defprivalue);
+foreach $priidx (@RT::PrioritySortedKeys) {
+      if ( $Default >= $RT::PriorityLabels{$priidx}) {
+              # save current equivalent priority label
+              $defprilabel=$priidx;
+              # save current priority value to prevent tickets from having
+              #  their priorities "snap"ed to closest level
+              $defprivalue=$Default;
+              last;
+      }
+}
+</%INIT>
+
diff -Naur rt3-dist/share/html/Search/Bulk.html rt3/share/html/Search/Bulk.html
--- rt3-dist/share/html/Search/Bulk.html	Sun Nov 16 07:26:32 2003
+++ rt3/share/html/Search/Bulk.html	Sun Oct  3 17:55:04 2004
@@ -63,7 +63,11 @@
 <A HREF="<% $RT::WebPath%>/Ticket/Display.html?id=<%$Ticket->Id%>"><%$Ticket->Id()%></A>
 % }
 %else {
-<% eval "\$Ticket->$col()" %>&nbsp;
+%   if (($col eq "Priority") && ($RT::PriorityType)) {
+       <%$Ticket->PriorityAsString()%>
+%   } else {
+       <% eval "\$Ticket->$col()" %>&nbsp;
+%   }
 %}
 </TD>
 %}
@@ -103,7 +107,11 @@
 <tr><td class=label> <&|/l&>Make subject</&>: </td>
 <td class=value> <INPUT Name="Subject" SIZE=20> </td></tr>
 <tr><td class=label> <&|/l&>Make priority</&>: </td>
-<td class=value> <INPUT Name="Priority" SIZE=4> </td></tr>
+% if ($RT::PriorityType) {
+	<td class=value><& /Elements/SelectPriority, Name => 'Priority', Default => 0 &></td></tr>
+% } else {
+	<td class=value> <INPUT Name="Priority" SIZE=4> </td></tr>
+% }
 <tr><td class=label> <&|/l&>Make queue</&>: </td>
 <td class=value> <& /Elements/SelectQueue, Name => "Queue" &> </td></tr>
 <tr><td class=label> <&|/l&>Make Status</&>: </td>
diff -Naur rt3-dist/share/html/Search/Elements/PickRestriction rt3/share/html/Search/Elements/PickRestriction
--- rt3-dist/share/html/Search/Elements/PickRestriction	Wed May 12 06:46:25 2004
+++ rt3/share/html/Search/Elements/PickRestriction	Sun Oct  3 17:59:50 2004
@@ -53,7 +53,11 @@
 
 <li><&|/l&>Priority</&> <& /Elements/SelectEqualityOperator, Name => "PriorityOp" &>
 
-<INPUT Name="ValueOfPriority" SIZE=5>
+% if ($RT::PriorityType) {
+  <& /Elements/SelectPriority, Name => 'ValueOfPriority' &>
+% } else {
+  <INPUT Name="ValueOfPriority" SIZE=5>
+% }
 
 <li>
 <& /Elements/SelectDateType, Name => 'DateType' &>
diff -Naur rt3-dist/share/html/Search/Elements/TicketRow rt3/share/html/Search/Elements/TicketRow
--- rt3-dist/share/html/Search/Elements/TicketRow	Fri Jan  2 22:55:55 2004
+++ rt3/share/html/Search/Elements/TicketRow	Sun Oct  3 17:44:34 2004
@@ -34,7 +34,7 @@
 <TD><%loc($Ticket->Status)%></TD>
 <TD><%$Ticket->QueueObj->Name%></TD>
 <TD><%$Ticket->Owner == $RT::Nobody->Id ? loc('Nobody') : $Ticket->OwnerObj->Name%></TD>
-<TD><%$Ticket->Priority%></TD>
+<TD><%$RT::PriorityType ? $Ticket->PriorityAsString() : $Ticket->Priority%></TD>
 </TR>
 <TR
 % if ($i%2) {
diff -Naur rt3-dist/share/html/Ticket/Elements/EditBasics rt3/share/html/Ticket/Elements/EditBasics
--- rt3-dist/share/html/Ticket/Elements/EditBasics	Sun Nov 16 07:21:25 2003
+++ rt3/share/html/Ticket/Elements/EditBasics	Sun Oct  3 17:00:13 2004
@@ -50,26 +50,33 @@
       </TD>
       <TD>
         <& /Elements/ShadedBox,
-	    title => loc('Priority'),
-	    content => "<input name=Priority value=\"".$TicketObj->Priority."\" SIZE=3>" &>
-      </TD>
-      <TD>
-        <& /Elements/ShadedBox,
-	    title => loc('Final Priority'),
-	    content => "<input name=FinalPriority value=\"".$TicketObj->FinalPriority."\" SIZE=3>" &>
-      </TD>
-      <TD>
-        <& /Elements/ShadedBox,
             title => loc('Queue'),
             content => "$SelectQueue" &>
       </TD>
     </table>
   </td></TR>
+  <tr><td>
+    <table>
+      <TR>
+        <TD>
+          <& /Elements/ShadedBox,
+  	      title => loc('Priority'),
+	      content => $RT::PriorityType ? $SelectPriority : "<input name=Priority value=\"".$TicketObj->Priority."\" SIZE=3>" &>
+        </TD>
+        <TD>
+          <& /Elements/ShadedBox,
+	      title => loc('Final Priority'),
+	      content => $RT::PriorityType ? $SelectFinalPriority : "<input name=FinalPriority value=\"".$TicketObj->FinalPriority."\" SIZE=3>" &>
+        </TD>
+      </TR></table>
+    </td></tr>
 </TABLE>
 
 <%INIT>
 #It's hard to do this inline, so we'll preload the html of the selectstatus in here.
 my $SelectStatus = $m->scomp("/Elements/SelectStatus", Name => 'Status', Default=> $TicketObj->Status);
+my $SelectPriority = $m->scomp("/Elements/SelectPriority", Name => 'Priority', Default => $TicketObj->Priority);
+my $SelectFinalPriority = $m->scomp("/Elements/SelectPriority", Name => 'FinalPriority', Default=> $TicketObj->FinalPriority);
 my $SelectQueue = $m->scomp("/Elements/SelectQueue", Name => 'Queue', Default =>$TicketObj->QueueObj->Id);
 
 </%INIT>
diff -Naur rt3-dist/share/html/Ticket/Elements/ShowBasics rt3/share/html/Ticket/Elements/ShowBasics
--- rt3-dist/share/html/Ticket/Elements/ShowBasics	Sun Nov 16 07:21:25 2003
+++ rt3/share/html/Ticket/Elements/ShowBasics	Sun Oct  3 16:54:22 2004
@@ -36,7 +36,11 @@
   </tr>
   <tr>
     <td class="label"><&|/l&>Priority</&>:</td>
-    <td class="value"><%$Ticket->Priority%>/<%$Ticket->FinalPriority %></td>
+% if ($RT::PriorityType == 0) {
+        <td class="value"><%$Ticket->Priority%>/<%$Ticket->FinalPriority %></td>
+% } else {
+	<td class="value"><%$Ticket->PriorityAsString()%>/<%$Ticket->FinalPriorityAsString()%></td>
+% }
   </tr>
   <tr>
     <td class="label"><&|/l&>Queue</&>:</td>