increment priority via bulk ticket update, #12901

1 files changed, 16 insertions, 0 deletions

diff --git a/rt/lib/RT/Ticket_Vendor.pm b/rt/lib/RT/Ticket_Vendor.pm
new file mode 100644
index 000000000..604a84aa2
--- /dev/null
+++ b/rt/lib/RT/Ticket_Vendor.pm
@@ -0,0 +1,16 @@
+package RT::Ticket;
+use strict;
+
+sub SetPriority {
+  # Special case: Pass a value starting with 'R' to set priority 
+  # relative to the current level.  Used for bulk updates, though 
+  # it can be used anywhere else too.
+  my $Ticket = shift;
+  my $value = shift;
+  if ( $value =~ /^R([+-]?\d+)$/ ) {
+    $value = $1 + ($Ticket->Priority || 0);
+  }
+  $Ticket->SUPER::SetPriority($value);
+}
+
+1;