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

[ruz at bestpractical.com]

Author: ruz
Date: Fri Jun  2 21:40:07 2006
New Revision: 5328

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

Log:
 r3138 at cubic-pc:  cubic | 2006-06-03 05:41:55 +0400
 * allow filter queues with callback


Modified: rt/branches/3.7-EXPERIMENTAL/html/Elements/QueueSummary
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Elements/QueueSummary	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Elements/QueueSummary	Fri Jun  2 21:40:07 2006
@@ -73,18 +73,24 @@
 else {
     my $Queues = RT::Queues->new($session{'CurrentUser'});
     $Queues->UnLimit();
-    @queues = map {
-	{ Name => $_->Name, Description => $_->Description,
-	  id => $_->Id } }
-	grep $queue_filter->($_), @{$Queues->ItemsArrayRef};
+    @queues = grep $queue_filter->($_), @{$Queues->ItemsArrayRef};
+
+    $m->comp('/Elements/Callback', _CallbackName => 'Filter', Queues => \@queues );
+
+    @queues = map { {
+        id          => $_->Id,
+        Name        => $_->Name,
+        Description => $_->Description,
+    } } grep $_, @queues;
 
     $session{$cache} = \@queues if $cache;
 }
 
+
 my $Tickets = RT::Tickets->new($session{'CurrentUser'});
 </%INIT>
 <%ARGS>
 $cache => undef
 $queue_filter => undef
-$conditions => ()
+$conditions => []
 </%ARGS>