[Rt-commit] r8141 - rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Web/QueryBuilder

[ruz at bestpractical.com]

Author: ruz
Date: Thu Jul 12 17:17:20 2007
New Revision: 8141

Modified:
   rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Web/QueryBuilder/Tree.pm

Log:
* add Error callback

Modified: rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Web/QueryBuilder/Tree.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Web/QueryBuilder/Tree.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-TUNIS/lib/RT/Interface/Web/QueryBuilder/Tree.pm	Thu Jul 12 17:17:20 2007
@@ -271,6 +271,7 @@
         my $clause = { Key => $key, Op => $op, Value => $value };
         $node->addChild( __PACKAGE__->new( $clause ) );
     };
+    $callback{'Error'} = sub { push @results, @_ };
 
     require RT::SQL;
     RT::SQL::Parse($string, \%callback);