--- share/html/Elements/RT__Ticket/ColumnMap	2008-01-25 02:53:07.000000000 +0100
+++ share/html/Elements/RT__Ticket/ColumnMap	2008-01-28 10:58:32.000000000 +0100
@@ -117,17 +117,40 @@
     },
     Priority => {
         attribute => 'Priority',
-        value     => sub { return $_[0]->Priority }
+	value     => sub {
+
+          my $pstring = $RT::PriorityType?$_[0]->PriorityAsString() : $_[0]->Priority;
+
+          # optional color-coding is below. comment it out if you dont like it.
+
+          # start-color-coding
+          my $priority = $_[0]->Priority;
+          my $colors = undef;
+            if ($priority ge '75') {
+                 $colors = "#FF0000";
+            } elsif ($priority ge '50') {
+                 $colors = "#FFA000";
+            } elsif ($priority ge '0') {
+                 $colors = "#009000";
+            }
+
+            if ($colors) {
+                 $pstring = "<font color=$colors>$pstring</font>"
+            }
+          # end-color-coding
+
+          return \"<b>$pstring</b>";
+        }
     },
     InitialPriority => {
         attribute => 'InitialPriority',
         name => 'Initial Priority',
-        value     => sub { return $_[0]->InitialPriority }
+        value     => sub { return $RT::PriorityType?$_[0]->InitialPriorityAsString(): $_[0]->InitialPriority }
     },
     FinalPriority => {
         attribute => 'FinalPriority',
         name => 'Final Priority',
-        value     => sub { return $_[0]->FinalPriority }
+	value     => sub { return $RT::PriorityType?$_[0]->FinalPriorityAsString():$_[0]->FinalPriority }
     },
     EffectiveId => {
         attribute => 'EffectiveId',
--- share/html/Search/Bulk.html	2008-01-25 02:53:05.000000000 +0100
+++ share/html/Search/Bulk.html	2008-01-28 11:08:04.000000000 +0100
@@ -102,7 +102,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 => -1 &></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>
--- share/html/Ticket/Create.html	2008-01-25 02:53:00.000000000 +0100
+++ share/html/Ticket/Create.html	2008-01-28 11:25:10.000000000 +0100
@@ -183,8 +183,16 @@
 		title_class=> 'inverse',  
 		color => "#993333" &>
 <table border="0">
+% if ($RT::PriorityType) {
+<tr><td align=right><&|/l&>Priority</&>:</td><td><&/Elements/SelectPriority, Name=>"InitialPriority", Default=> $ARGS{InitialPriority}?$ARGS{InitialPriority} :$QueueObj->InitialPriority &></td></tr>
+%} else {
 <tr><td align="right"><&|/l&>Priority</&>:</td><td><input size="3" name="InitialPriority" value="<% $ARGS{InitialPriority} ? $ARGS{InitialPriority} : $QueueObj->InitialPriority %>" /></td></tr>
+%}
+% if ($RT::PriorityType) {
+<tr><td align=right><&|/l&>Final Priority</&>:</td><td><&/Elements/SelectPriority, Name=>"FinalPriority", Default=> $ARGS{FinalPriority}?$ARGS{FinalPriority} :$QueueObj->FinalPriority &></td></tr>
+%} else {
 <tr><td align="right"><&|/l&>Final Priority</&>:</td><td><input size="3" name="FinalPriority" value="<% $ARGS{FinalPriority} ? $ARGS{FinalPriority} : $QueueObj->FinalPriority %>" /></td></tr>
+%}
 <tr><td align="right"><&|/l&>Time Estimated</&>:</td>
 <td>
 <input size="3" name="TimeEstimated" value="<%$ARGS{TimeEstimated} || ''%>" />
--- share/html/Ticket/Elements/EditBasics	2008-01-25 02:53:01.000000000 +0100
+++ share/html/Ticket/Elements/EditBasics	2008-01-28 11:31:25.000000000 +0100
@@ -95,14 +95,22 @@
 
   <tr>
       <td class="label"><&|/l&>Priority</&>:</td>
+% if ($RT::PriorityType) {
+      <td class="value"><&/Elements/SelectPriority, Name=>"Priority", Default=>$TicketObj->Priority &></td>
+% } else {
       <td class="value"><input name="Priority" 
         value="<%$TicketObj->Priority || ''|h%>" size="5" /></td>
+% }
     </tr>
 
   <tr>
       <td class="label"><&|/l&>Final Priority</&>:</td>
+% if ($RT::PriorityType) {
+      <td class="value"><&/Elements/SelectPriority, Name=>"FinalPriority", Default=>$TicketObj->FinalPriority &></td>
+% } else {
       <td class="value"><input name="FinalPriority" 
             value="<%$TicketObj->FinalPriority || '' |h%>" size="5" /></td>
+% }
     </tr>
 
 
--- share/html/Ticket/Elements/ShowBasics	2008-01-25 02:53:01.000000000 +0100
+++ share/html/Ticket/Elements/ShowBasics	2008-01-28 11:36:02.000000000 +0100
@@ -74,7 +74,11 @@
 % }
   <tr>
     <td class="label priority"><&|/l&>Priority</&>:</td>
+% if ($RT::PriorityType) {
+    <td class="value priority"><%$Ticket->PriorityAsString()%>/<%$Ticket->FinalPriorityAsString()%></td>
+% } else {
     <td class="value priority"><%$Ticket->Priority||0%>/<%$Ticket->FinalPriority||0 %></td>
+% }
   </tr>
   <tr>
     <td class="label queue"><&|/l&>Queue</&>:</td>
--- share/html/Search/Elements/PickBasics	2008-01-25 02:53:05.000000000 +0100
+++ share/html/Search/Elements/PickBasics	2008-01-28 14:16:20.000000000 +0100
@@ -179,6 +179,23 @@
         ],
     },
     {
+        Name => 'Links',
+        Field => { Type => 'component', Path => 'SelectLinks' },
+        Op => {
+            Type => 'component',
+            Path => '/Elements/SelectBoolean',
+            Arguments => { TrueVal=> '=', FalseVal => '!=' },
+        },
+        Value => { Type => 'text', Size => 5 }
+    },
+);
+
+
+
+
+if ($RT::PriorityType) {
+	push (@lines,
+    {
         Name => 'Priority',
         Field => {
             Type    => 'select',
@@ -192,19 +209,32 @@
             Type => 'component',
             Path => '/Elements/SelectEqualityOperator',
         },
-        Value => { Type => 'text', Size => 5 }
-    },
+        Value =>
+                {
+			Type => 'component',
+			Path => '/Elements/SelectPriority',
+		}
+	},);
+} else{
+	push (@lines,
     {
-        Name => 'Links',
-        Field => { Type => 'component', Path => 'SelectLinks' },
+        Name => 'Priority',
+        Field => {
+            Type    => 'select',
+            Options => [
+                Priority => loc('Priority'),
+                InitialPriority => loc('Initial Priority'),
+                FinalPriority => loc('Final Priority'),
+            ],
+        },
         Op => {
             Type => 'component',
-            Path => '/Elements/SelectBoolean',
-            Arguments => { TrueVal=> '=', FalseVal => '!=' },
+            Path => '/Elements/SelectEqualityOperator',
         },
-        Value => { Type => 'text', Size => 5 }
-    },
-);
+        Value =>
+                { Type => 'text', Size => 5 },
+    },);
+}
 
 $m->callback( Conditions => \@lines );
 
--- share/html/Elements/SelectPriority	2008-02-19 15:35:54.000000000 +0100
+++ share/html/Elements/SelectPriority	2008-02-29 12:26:16.000000000 +0100
@@ -0,0 +1,42 @@
+%#
+
+<SELECT NAME ="<%$Name%>">
+% foreach $priidx (@RT::PrioritySortedKeys) {
+%   my($value)=$RT::PriorityLabels{$priidx};
+%   my($prilabel)=$priidx;
+%   if ( ( $priidx eq $defprilabel ) && ( $Default != -1) ) {
+%     $prilabel .= " (".$defprivalue.")" if ($RT::PriorityType > 1);
+<OPTION VALUE="<%$defprivalue%>" SELECTED><%$prilabel%></OPTION>
+%   } else {
+%     $prilabel .= " (".$value.")" if ($RT::PriorityType > 1);
+<OPTION VALUE="<%$value%>"><%$prilabel%></OPTION>
+%   }
+% }
+% if ( $Default == -1) {
+<OPTION VALUE="" SELECTED>-</OPTION>
+% } else {
+<OPTION VALUE="">-</OPTION>
+% }
+</SELECT>
+<%ARGS>
+$Name => undef
+$Default => undef
+ 
+</%ARGS>
+<%INIT>
+my($priidx,$defprilabel,$defprivalue);
+
+if ($Default != -1) {
+    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>
+
--- /usr/local/rt3/lib/RT/Ticket_Overlay.pm.orig	2008-04-18 19:14:41.000000000 +0200
+++ /usr/local/rt3/lib/RT/Ticket_Overlay.pm	2008-04-22 15:56:28.000000000 +0200
@@ -3501,6 +3501,54 @@
     "RT::Queue-RT::Ticket";
 }
 
+=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);
+}
+
 =head2 ACLEquivalenceObjects
 
 This method returns a list of objects for which a user's rights also apply