[Rt-commit] r4699 - in rtir/branches/1.9-EXPERIMENTAL: html/RTIR/Search/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Sun Mar  5 18:59:46 2006
New Revision: 4699

Modified:
   rtir/branches/1.9-EXPERIMENTAL/   (props changed)
   rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Search/Elements/PickCFs

Log:
 r872 at cubic-pc:  cubic | 2006-03-06 01:03:41 +0300
 * limit search with SQL instead of perl code


Modified: rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Search/Elements/PickCFs
==============================================================================
--- rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Search/Elements/PickCFs	(original)
+++ rtir/branches/1.9-EXPERIMENTAL/html/RTIR/Search/Elements/PickCFs	Sun Mar  5 18:59:46 2006
@@ -51,14 +51,14 @@
 my $QueueObj = RT::Queue->new($session{'CurrentUser'});
 $QueueObj->Load($Queue);
 
-$CustomFields->{"find_disabled_rows"} = 1;
 $CustomFields->LimitToQueue( $QueueObj->Id );
 $CustomFields->LimitToGlobal;
+$CustomFields->Limit( FIELD => 'Name', OPERATOR => 'STARTSWITH', VALUE => '_RTIR_' );
 
 my @lines;
 while ( my $CustomField = $CustomFields->Next ) {
     my $label = $CustomField->Name;
-    next unless $label =~ s/^_RTIR_//;
+    $label =~ s/^_RTIR_//;
 
     my %line;
     $line{'Name'} = "'CF.{" . $CustomField->Name . "}'";