rt/lib/RT/Ticket_Vendor.pm

   1 package RT::Ticket;
   2 use strict;
   3
   4 sub SetPriority {
   5   # Special case: Pass a value starting with 'R' to set priority
   6   # relative to the current level.  Used for bulk updates, though
   7   # it can be used anywhere else too.
   8   my $Ticket = shift;
   9   my $value = shift;
  10   if ( $value =~ /^R([+-]?\d+)$/ ) {
  11     $value = $1 + ($Ticket->Priority || 0);
  12   }
  13   $Ticket->SUPER::SetPriority($value);
  14 }
  15
  16 1;