[Rt-commit] r4602 - in rt/branches/3.7-EXPERIMENTAL: .

[jesse at bestpractical.com]

Author: jesse
Date: Wed Mar  1 00:06:46 2006
New Revision: 4602

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/PickCFs

Log:
 r24792 at truegrounds:  jesse | 2006-02-28 01:08:44 -0500
 * Added a callback for RTIR 


Modified: rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/PickCFs
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/PickCFs	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Search/Elements/PickCFs	Wed Mar  1 00:06:46 2006
@@ -49,13 +49,20 @@
 <%INIT>
 my $CustomFields = RT::CustomFields->new( $session{'CurrentUser'});
 foreach my $id (keys %cfqueues) {
-    $id =~ s/^.'*(.*).'*$/$1/;
     # Gotta load up the $queue object, since queues get stored by name now. my $id
     my $queue = RT::Queue->new($session{'CurrentUser'});
     $queue->Load($id);
+    unless ($queue->id) {
+        # XXX TODO: This ancient code dates from a former developer
+        # we have no idea what it means or why cfqueues are so encoded.
+        $id =~ s/^.'*(.*).'*$/$1/;
+        $queue->Load($id);
+    }
     $CustomFields->LimitToQueue($queue->Id);
 }
 $CustomFields->LimitToGlobal();
+  $m->comp('/Elements/Callback', _CallbackName => 'MassageCustomFields',  
+                                  CustomFields => $CustomFields);
 
 
 my @lines;