[Rt-commit] r8237 - in rt/branches/3.6-RELEASE: .

[jesse at bestpractical.com]

Author: jesse
Date: Fri Jul 20 16:37:33 2007
New Revision: 8237

Modified:
   rt/branches/3.6-RELEASE/   (props changed)
   rt/branches/3.6-RELEASE/lib/RT/CustomField_Overlay.pm
   rt/branches/3.6-RELEASE/lib/RT/Record.pm

Log:
 r60980 at pinglin:  jesse | 2007-07-20 16:36:52 -0400
 * Some custom fields (mixed case ones) didn't work properly on case-sensitive databases from the CLI client


Modified: rt/branches/3.6-RELEASE/lib/RT/CustomField_Overlay.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/CustomField_Overlay.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/CustomField_Overlay.pm	Fri Jul 20 16:37:33 2007
@@ -292,7 +292,7 @@
 
     my $CFs = RT::CustomFields->new($self->CurrentUser);
 
-    $CFs->Limit( FIELD => 'Name', VALUE => $args{'Name'} );
+    $CFs->Limit( FIELD => 'Name', VALUE => $args{'Name'}, CASESENSITIVE => 0);
     # Don't limit to queue if queue is 0.  Trying to do so breaks
     # RT::Group type CFs.
     if (defined $args{'Queue'}) {

Modified: rt/branches/3.6-RELEASE/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.6-RELEASE/lib/RT/Record.pm	(original)
+++ rt/branches/3.6-RELEASE/lib/RT/Record.pm	Fri Jul 20 16:37:33 2007
@@ -1862,7 +1862,7 @@
     } else {
 
         my $cfs = $self->CustomFields($self->CurrentUser);
-        $cfs->Limit(FIELD => 'Name', VALUE => $field);
+        $cfs->Limit(FIELD => 'Name', VALUE => $field, CASESENSITIVE => 0);
         $cf = $cfs->First || RT::CustomField->new($self->CurrentUser);
     }
     return $cf;