[Rt-commit] r5918 - in rtir/branches/2.1-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Tue Sep 12 17:45:47 2006
New Revision: 5918

Modified:
   rtir/branches/2.1-EXPERIMENTAL/   (props changed)
   rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Elements/NewQuery

Log:
 r1561 at cubic-pc:  cubic | 2006-09-13 01:31:51 +0400
 * filter @add_states argument with "grep $_, ..."


Modified: rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Elements/NewQuery
==============================================================================
--- rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Elements/NewQuery	(original)
+++ rtir/branches/2.1-EXPERIMENTAL/html/RTIR/Elements/NewQuery	Tue Sep 12 17:45:47 2006
@@ -3,10 +3,9 @@
 unless( @states ) {
     @states = $m->comp("/RTIR/Elements/States", %ARGS );
 }
-push @states, @add_states;
 
 my %seen = ();
- at states =  grep !$seen{$_}++, map lc, @states;
+ at states =  grep !$seen{$_}++, map lc, grep $_, @states, @add_states;
 
 my $query = join " OR ",
             map "'CF.{_RTIR_State}' = '$_'",