[Rt-commit] r8384 - in rt/branches/3.7-EXPERIMENTAL-TUNIS: lib/RT

[thayes at bestpractical.com]

Author: thayes
Date: Thu Aug  2 15:55:51 2007
New Revision: 8384

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/   (props changed)
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Ticket.pm

Log:
 r8570 at toth:  toth | 2007-08-02 15:55:32 -0400
 * Made Ticket Type case insensitive for convenience
 


Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Ticket.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Ticket.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Ticket.pm	Thu Aug  2 15:55:51 2007
@@ -243,8 +243,8 @@
     	my $priority;
     	my $LockPriority;
 		for(my $i = 0; $i < scalar @Types; $i++) {
-			$priority = $i if $Types[$i] eq $type;
-			$LockPriority = $i if $Types[$i] eq $LockType;
+			$priority = $i if (lc $Types[$i]) eq (lc $type);
+			$LockPriority = $i if (lc $Types[$i]) eq (lc $LockType);
 		}
 		return undef if $priority <= $LockPriority;
     } else {
@@ -273,8 +273,8 @@
     my $priority;
 	my $LockPriority;
 	for(my $i = 0; $i < scalar @Types; $i++) {
-		$priority = $i if $Types[$i] eq $type;
-		$LockPriority = $i if $Types[$i] eq $LockType;
+		$priority = $i if (lc $Types[$i]) eq (lc $type);
+		$LockPriority = $i if (lc $Types[$i]) eq (lc $LockType);
 	}
 	return undef if $priority < $LockPriority;
     $ticket->DeleteAttribute('RT_Lock');