[Catalyst-commits] r7730 - in CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk: . lib/CatalystX/CRUD/Model lib/CatalystX/CRUD/Object

[karpet at dev.catalyst.perl.org]

Author: karpet
Date: 2008-05-09 17:06:51 +0100 (Fri, 09 May 2008)
New Revision: 7730

Modified:
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/Changes
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
   CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Object/RDBO.pm
Log:
bump version and add boolean to list of treat_like_int

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/Changes
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/Changes	2008-05-09 00:43:05 UTC (rev 7729)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/Changes	2008-05-09 16:06:51 UTC (rev 7730)
@@ -38,3 +38,7 @@
 0.11    06 Feb 2008
         * fix bug with calculating treat_like_int(). Only set in hash if matches.
 
+0.12    xxx
+        * add ::Manager::Debug to debugging option
+        * add 'boolean' to _treat_like_int match
+

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2008-05-09 00:43:05 UTC (rev 7729)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Model/RDBO.pm	2008-05-09 16:06:51 UTC (rev 7730)
@@ -5,7 +5,7 @@
 use CatalystX::CRUD::Iterator;
 use Class::C3;
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 __PACKAGE__->mk_ro_accessors(qw( name manager treat_like_int ));
 __PACKAGE__->config->{object_class} = 'CatalystX::CRUD::Object::RDBO';
@@ -104,6 +104,7 @@
     if ( $ENV{CATALYST_DEBUG} && $ENV{CATALYST_DEBUG} > 1 ) {
         $Rose::DB::Object::QueryBuilder::Debug = 1;
         $Rose::DB::Object::Debug               = 1;
+        $Rose::DB::Object::Manager::Debug      = 1;
     }
 
 }
@@ -288,7 +289,7 @@
     # treat wildcard timestamps like ints not text (>= instead of ILIKE)
     for my $name (@$col_names) {
         my $col = $self->name->meta->column($name);
-        if ( $col->type =~ m/date|time/ ) {
+        if ( $col->type =~ m/date|time|boolean/ ) {
             $self->{treat_like_int}->{$name} = 1;
         }
     }

Modified: CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Object/RDBO.pm
===================================================================
--- CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Object/RDBO.pm	2008-05-09 00:43:05 UTC (rev 7729)
+++ CatalystX-CRUD/CatalystX-CRUD-Model-RDBO/trunk/lib/CatalystX/CRUD/Object/RDBO.pm	2008-05-09 16:06:51 UTC (rev 7730)
@@ -3,7 +3,7 @@
 use warnings;
 use base qw( CatalystX::CRUD::Object );
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 =head1 NAME