[Jifty-commit] r6687 - Jifty-DBI/branches/tisql/lib/Jifty/DBI

[Jifty commits]

Author: ruz
Date: Fri Mar 20 20:12:01 2009
New Revision: 6687

Modified:
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm

Log:
* make Q(has => 'attrs') work or Q('has no' => 'attrs')

Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Tisql.pm	Fri Mar 20 20:12:01 2009
@@ -826,7 +826,12 @@
         }
     }
 
-    if ( @args == 2 ) {
+    if ( @args == 1 && $res{'modifier'} ) {
+        @res{qw(op_type lhs op rhs)} = ('col_op', $args[0], $res{'modifier'} eq 'has'? 'IS NOT': 'IS', 'NULL');
+        $res{'modifier'} = '';
+        push @{ $res{'lhs'}{'chain'} }, { name => 'id', placeholders => {} };
+    }
+    elsif ( @args == 2 ) {
         if ( $args[1] =~ /^$re_sql_op_un$/i ) {
             @res{qw(op_type lhs op rhs)}
                 = ('col_op', $args[0], split /\s*(?=null)/i, $args[1]);